Changeset 494 for trunk/thune/make.c

Timestamp:

10/29/07 17:30:32 (13 months ago)

Author:

krobillard

Message:

Converting a UCS2 string to binary now creates big-endian words on all
platforms.

Files:

• trunk/thune/make.c (modified) (2 diffs)

trunk/thune/make.c

@@ -172 +172 @@
         if( size )
         {
-            memCpy( bin->ptr.b, cpA, size );
+#ifndef __BIG_ENDIAN__
+            if( ur_is(cell, UT_STRING) && (ur_encoding(cell) == UR_ENC_UCS2) )
+                memSwab( cpA, bin->ptr.b, size );
+            else
+#endif
+                memCpy( bin->ptr.b, cpA, size );
+
             bin->used = size;
         }
@@ -1711 +1717 @@
                 goto init_bin;
             }
+#if 0
+            else if( ur_is(tos, UT_WORD) && (argc == 2) )
+            {
+                binN = ur_makeBinaryFrom( ut, ur_s_prev(tos) );
+                goto init_bin;
+            }
+#endif
             else if( ur_stringSlice(ut, tos, &spA, &spB) )
             {