Changeset 26 for trunk/orca/bytecode.c

Timestamp:

02/07/06 00:52:42 (3 years ago)

Author:

krobillard

Message:

Atom names are now stored in a single string.
Maximum word length is now 32.

Files:

• trunk/orca/bytecode.c (modified) (1 diff)

trunk/orca/bytecode.c

@@ -55 +55 @@
         case OT_REFINEMENT:
         {
-            int len;
+            int pos;
             int atom;
-            OString* str;
 
             atom = (val->type == OT_REFINEMENT) ? val->index : val->word.atom;
-
-            str = orAtomString( atom );
-
-            // LIMIT: Assuming word names are never more than 255 characters.
-
-            len = str->used + 2;
-            RESERVE( len );
+            pos = bin->used;
+
+            orArrayReserve( bin, 1, bin->used + 2 );
+            bin->used += 2;
+
+            orAtomStr( atom, bin );
+
+            // LIMIT: Word names can never be more than 255 characters.
+            cp = bin->byteArray + pos;
             *cp++ = val->type;
-            *cp++ = str->used;
-
-            memCpy( cp, str->charArray, str->used );
+            *cp   = bin->used - pos - 2;
         }
             break;