[gforth] / gforth / code.fs  

gforth: gforth/code.fs

Diff for /gforth/code.fs between version 1.6 and 1.7

version 1.6, Tue Sep 10 16:08:36 1996 UTC version 1.7, Mon Sep 23 08:52:47 1996 UTC
Line 27 
Line 27 
 : init-asm ( -- )  : init-asm ( -- )
     also assembler ;      also assembler ;
   
 : code ( -- colon-sys ) \ tools-ext  : code ( "name" -- colon-sys )  \ tools-ext
     \ start a native code definition      \ start a native code definition
     header      header
     threading-method      threading-method
Line 47 
Line 47 
     ( create the [;code] part of a low level defining word )      ( create the [;code] part of a low level defining word )
     ;-hook postpone (;code) ?struc postpone [      ;-hook postpone (;code) ?struc postpone [
     defstart init-asm ;      defstart init-asm ;
 interpret/compile: ;code  interpret/compile: ;code ( compilation. colon-sys1 -- colon-sys2 )      \ tools-ext     semicolon-code
   
 : end-code ( colon-sys -- )     \ gforth        end_code  : end-code ( colon-sys -- )     \ gforth        end_code
     ( end a code definition )      ( end a code definition )

Generate output suitable for use with a patch program
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help