Added long int (N times a word) support for emulation of __int128

src/tl/tl/tl.pro

@@ -51,7 +51,8 @@ SOURCES = \
     tlUnitTest.cc \
     tlInt128Support.cc \
     tlHttpStreamCurl.cc \
-    tlHttpStreamQt.cc
+    tlHttpStreamQt.cc \
+    tlLongInt.cc
 
 HEADERS = \
     tlAlgorithm.h \
@@ -102,7 +103,8 @@ HEADERS = \
     tlUnitTest.h \
     tlInt128Support.h \
     tlHttpStreamCurl.h \
-    tlHttpStreamQt.h
+    tlHttpStreamQt.h \
+    tlLongInt.h
 
 INCLUDEPATH =
 DEPENDPATH =

src/tl/tl/tlLongInt.cc

@@ -0,0 +1,29 @@
+
+/*
+
+  KLayout Layout Viewer
+  Copyright (C) 2006-2018 Matthias Koefferlein
+
+  This program is free software; you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation; either version 2 of the License, or
+  (at your option) any later version.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program; if not, write to the Free Software
+  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+*/
+
+
+#include "tlLongInt.h"
+
+namespace tl
+{
+  //  .. nothing yet ..
+}

src/tl/unit_tests/tlLongInt.cc

@@ -0,0 +1,178 @@
+
+/*
+
+  KLayout Layout Viewer
+  Copyright (C) 2006-2018 Matthias Koefferlein
+
+  This program is free software; you can redistribute it and/or modify
+  it under the terms of the GNU General Public License as published by
+  the Free Software Foundation; either version 2 of the License, or
+  (at your option) any later version.
+
+  This program is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY; without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU General Public License for more details.
+
+  You should have received a copy of the GNU General Public License
+  along with this program; if not, write to the Free Software
+  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+*/
+
+
+#include <algorithm>
+#include <stdint.h>
+#include <cstdio>
+
+#include "tlLongInt.h"
+#include "tlUnitTest.h"
+
+typedef tl::long_int<4, uint8_t, uint16_t> li_type;
+typedef int32_t i_type;
+
+typedef tl::long_uint<4, uint8_t, uint16_t> lui_type;
+typedef uint32_t ui_type;
+
+i_type to_i (li_type x)
+{
+  return i_type (x);
+}
+
+ui_type to_i (lui_type x)
+{
+  return ui_type (x);
+}
+
+li_type to_e (i_type x)
+{
+  return li_type (x);
+}
+
+lui_type to_e (ui_type x)
+{
+  return lui_type (x);
+}
+
+template <class I1, class LI1, class I2, class LI2>
+static void run_test_int (tl::TestBase *_this, I1 a, I2 b)
+{
+  typedef typename LI1::basic_type basic_type;
+  if (tl::verbose ()) {
+    printf("Long int test with pair (%ld,%ld)\n", long (a), long (b));
+  }
+
+  LI1 ae = to_e (a);
+  LI2 be = to_e (b);
+  LI1 r;
+
+  EXPECT_EQ (to_i (ae), a);
+  EXPECT_EQ (to_i (be), b);
+
+  EXPECT_EQ (to_i (ae + be), a + b);
+  r = ae;
+  r += be;
+  EXPECT_EQ (to_i (r), a + b);
+  EXPECT_EQ (to_i (ae + basic_type (2)), a + basic_type (2));
+  r = ae;
+  r += basic_type (2);
+  EXPECT_EQ (to_i (r), a + basic_type (2));
+
+  EXPECT_EQ (to_i (ae - be), a - b);
+  r = ae;
+  r -= be;
+  EXPECT_EQ (to_i (r), a - b);
+  EXPECT_EQ (to_i (ae - basic_type (2)), a - basic_type (2));
+  r = ae;
+  r -= basic_type (2);
+  EXPECT_EQ (to_i (r), a - basic_type (2));
+
+  EXPECT_EQ (ae == be, a == b);
+  EXPECT_EQ (ae != be, a != b);
+  EXPECT_EQ (ae < be, a < b);
+  EXPECT_EQ (ae <= be, a <= b);
+  EXPECT_EQ (ae > be, a > b);
+  EXPECT_EQ (ae >= be, a >= b);
+  EXPECT_EQ (ae.is_zero (), a == 0);
+
+  EXPECT_EQ (to_i (ae * be), a * b);
+  r = ae;
+  r *= be;
+  EXPECT_EQ (to_i (r), a * b);
+
+  if (b != 0) {
+    EXPECT_EQ (to_i (ae / be), a / b);
+    r = ae;
+    r /= be;
+    EXPECT_EQ (to_i (r), a / b);
+    EXPECT_EQ (to_i (ae % be), a % b);
+    r = ae;
+    r %= be;
+    EXPECT_EQ (to_i (r), a % b);
+  }
+}
+
+template <class I1, class LI1, class I2, class LI2>
+static void run_test (tl::TestBase *_this, I1 a, I2 b)
+{
+  run_test_int<I1, LI1, I2, LI2> (_this, a, b);
+  run_test_int<I1, LI1, I2, LI2> (_this, a, a);
+  run_test_int<I1, LI1, I2, LI2> (_this, b, b);
+  run_test_int<I1, LI1, I2, LI2> (_this, b, a);
+}
+
+TEST(1)
+{
+  run_test<i_type, li_type, i_type, li_type> (_this, 0, 1);
+  run_test<i_type, li_type, i_type, li_type> (_this, 256, 257);
+  run_test<i_type, li_type, i_type, li_type> (_this, 256, 2);
+  run_test<i_type, li_type, i_type, li_type> (_this, 65535, 65536);
+  run_test<i_type, li_type, i_type, li_type> (_this, 65535, 2);
+  run_test<i_type, li_type, i_type, li_type> (_this, 0xfffffffe, 0xffffffff);
+  run_test<i_type, li_type, i_type, li_type> (_this, 0xfffffffe, 2);
+  for (unsigned int i = 0; i < 100000; ++i) {
+    run_test<i_type, li_type, i_type, li_type> (_this, rand () * rand (), rand () * rand ());
+  }
+}
+
+TEST(2)
+{
+  run_test<ui_type, lui_type, i_type, li_type> (_this, 0, 1);
+  run_test<ui_type, lui_type, i_type, li_type> (_this, 256, 257);
+  run_test<ui_type, lui_type, i_type, li_type> (_this, 256, 2);
+  run_test<ui_type, lui_type, i_type, li_type> (_this, 65535, 65536);
+  run_test<ui_type, lui_type, i_type, li_type> (_this, 65535, 2);
+  run_test<ui_type, lui_type, i_type, li_type> (_this, 0xfffffffe, 0xffffffff);
+  run_test<ui_type, lui_type, i_type, li_type> (_this, 0xfffffffe, 2);
+  for (unsigned int i = 0; i < 100000; ++i) {
+    run_test<ui_type, lui_type, i_type, li_type> (_this, rand () * rand (), rand () * rand ());
+  }
+}
+
+TEST(3)
+{
+  run_test<i_type, li_type, ui_type, lui_type> (_this, 0, 1);
+  run_test<i_type, li_type, ui_type, lui_type> (_this, 256, 257);
+  run_test<i_type, li_type, ui_type, lui_type> (_this, 256, 2);
+  run_test<i_type, li_type, ui_type, lui_type> (_this, 65535, 65536);
+  run_test<i_type, li_type, ui_type, lui_type> (_this, 65535, 2);
+  run_test<i_type, li_type, ui_type, lui_type> (_this, 0xfffffffe, 0xffffffff);
+  run_test<i_type, li_type, ui_type, lui_type> (_this, 0xfffffffe, 2);
+  for (unsigned int i = 0; i < 100000; ++i) {
+    run_test<i_type, li_type, ui_type, lui_type> (_this, rand () * rand (), rand () * rand ());
+  }
+}
+
+TEST(4)
+{
+  run_test<ui_type, lui_type, ui_type, lui_type> (_this, 0, 1);
+  run_test<ui_type, lui_type, ui_type, lui_type> (_this, 256, 257);
+  run_test<ui_type, lui_type, ui_type, lui_type> (_this, 256, 2);
+  run_test<ui_type, lui_type, ui_type, lui_type> (_this, 65535, 65536);
+  run_test<ui_type, lui_type, ui_type, lui_type> (_this, 65535, 2);
+  run_test<ui_type, lui_type, ui_type, lui_type> (_this, 0xfffffffe, 0xffffffff);
+  run_test<ui_type, lui_type, ui_type, lui_type> (_this, 0xfffffffe, 2);
+  for (unsigned int i = 0; i < 100000; ++i) {
+    run_test<ui_type, lui_type, ui_type, lui_type> (_this, rand () * rand (), rand () * rand ());
+  }
+}

src/tl/unit_tests/unit_tests.pro

@@ -32,7 +32,8 @@ SOURCES = \
   tlVariant.cc \
   tlWebDAV.cc \
   tlXMLParser.cc \
-    tlInt128Support.cc
+    tlInt128Support.cc \
+    tlLongInt.cc
 
 INCLUDEPATH += $$TL_INC
 DEPENDPATH += $$TL_INC