Changeset 128 for trunk/orca

Timestamp:

04/29/06 01:43:30 (3 years ago)

Author:

krobillard

Message:

Insert now copies values with 64 bit words when WORDSIZE == 64.

Location:

trunk/orca

Files:

• TODO (modified) (1 diff)
• series.c (modified) (4 diffs)

trunk/orca/TODO

@@ -25 +25 @@
 Thune Backport
 
+  * Parse
   * UCell union
   * Value structure hidden more using macros (ur_int(), etc.)

trunk/orca/series.c

@@ -338 +338 @@
 static void copyV( OValue* src, OValue* srcEnd, OValue* dest )
 {
+#if __WORDSIZE == 64
+    uint64_t* it  = (uint64_t*) src;
+    uint64_t* end = (uint64_t*) srcEnd;
+    uint64_t* dst = (uint64_t*) dest;
+    while( it != end )
+    {
+        *dst++ = *it++;
+        *dst++ = *it++;
+    }
+#else
     uint32_t* it  = (uint32_t*) src;
     uint32_t* end = (uint32_t*) srcEnd;
@@ -348 +358 @@
         *dst++ = *it++;
     }
+#endif
 }
 
@@ -353 +364 @@
 static void copyReverseV( OValue* src, OValue* srcEnd, OValue* dest )
 {
+#if __WORDSIZE == 64
+    uint64_t* it  = (uint64_t*) src;
+    uint64_t* end = (uint64_t*) srcEnd;
+    uint64_t* dst = (uint64_t*) dest;
+    it  += 1;
+    dst += 1;
+    end += 1;
+    while( it != end )
+    {
+        *dst-- = *it--;
+        *dst-- = *it--;
+    }
+#else
     uint32_t* it  = (uint32_t*) src;
     uint32_t* end = (uint32_t*) srcEnd;
@@ -366 +390 @@
         *dst-- = *it--;
     }
+#endif
 }