--- gforth/cross.fs	2000/09/23 15:46:52	1.87
+++ gforth/cross.fs	2001/09/04 11:09:59	1.102
@@ -1515,7 +1515,9 @@ variable ResolveFlag
 >CROSS
 \ Header states                                        12dec92py
 
-: flag! ( 8b -- )   tlast @ dup >r T c@ xor r> c! H ;
+\ : flag! ( 8b -- )   tlast @ dup >r T c@ xor r> c! H ;
+bigendian [IF] 0 [ELSE] tcell 1- [THEN] Constant flag+
+: flag! ( w -- )   tlast @ flag+ + dup >r T c@ xor r> c! H ;
 
 VARIABLE ^imm
 
@@ -1537,7 +1539,11 @@ VARIABLE ^imm
 >TARGET
 : string,  ( addr count -- )
   dup T c, H bounds  ?DO  I c@ T c, H  LOOP ; 
-: name,  ( "name" -- )  bl word count T string, cfalign H ;
+
+: lstring, ( addr count -- )
+  dup T , H bounds  ?DO  I c@ T c, H  LOOP ;
+
+: name,  ( "name" -- )  bl word count T lstring, cfalign H ;
 : view,   ( -- ) ( dummy ) ;
 >CROSS
 
@@ -2202,6 +2208,17 @@ Builder Field
 : cell% ( n -- size align )
     T 1 cells H dup ;
 
+
+Build: ( m v -- m' v )  dup T , cell+ H ;
+DO:  abort" Not in cross mode" ;DO
+Builder input-method
+
+Build: ( m v size -- m v' )  over T , H + ;
+DO:  abort" Not in cross mode" ;DO
+Builder input-var
+
+
+
 \ structural conditionals                              17dec92py
 
 >CROSS
@@ -2394,6 +2411,13 @@ Cond: postpone ( -- ) restrict? \ name
          ELSE  dup >magic @ <imm> =
                IF   gexecute
 	       ELSE compile (compile) addr, THEN THEN ;Cond
+
+Cond: [compile] ( -- ) restrict? \ name
+      bl word gfind dup 0= ABORT" CROSS: Can't compile"
+      0> IF    gexecute
+         ELSE  dup >magic @ <imm> =
+               IF   gexecute
+	       ELSE compile (compile) addr, THEN THEN ;Cond
 	   
 \ save-cross                                           17mar93py
 
@@ -2571,6 +2595,10 @@ bigendian Constant bigendian
 : tempdp> tempdp> ;
 : const constflag on ;
 : warnings name 3 = 0= twarnings ! drop ;
+: redefinitions-start twarnings off ;
+: redefinitions-end twarnings on ;
+: group 0 word drop ;
+
 : | ;
 \ : | NoHeaderFlag on ; \ This is broken (damages the last word)