[gforth] / gforth / kernel / main.fs  

gforth: gforth/kernel/main.fs

Diff for /gforth/kernel/main.fs between version 1.13 and 1.14

version 1.13, Mon Feb 22 18:31:24 1999 UTC version 1.14, Mon May 17 15:07:04 1999 UTC
Line 27 
Line 27 
   
 Create mach-file here over 1+ allot place  Create mach-file here over 1+ allot place
   
 require ../errors.fs  require ./../errors.fs
 require ../search.fs  require ./../search.fs
 require ../extend.fs  require ./../extend.fs
   
 \ include etags.fs  \ include etags.fs
   
 include ../cross.fs               \ include cross-compiler  include ./../cross.fs               \ include cross-compiler
   
 decimal  decimal
   
Line 63 
Line 63 
   
 doc-off  doc-off
 has? prims [IF]  has? prims [IF]
     include aliases.fs             \ include primitive aliases      include ./aliases.fs             \ include primitive aliases
 [ELSE]  [ELSE]
     prims-include      prims-include
     undef-words      undef-words
     include prim.fs      include ./prim.fs
     all-words  UNLOCK LOCK      all-words  UNLOCK LOCK
 [THEN]  [THEN]
 doc-on  doc-on
   
 0 AConstant forthstart  0 AConstant forthstart
   
 include ./vars.fs                \ variables and other stuff  \ include ./vars.fs                \ variables and other stuff
 include kernel/version.fs \ is in $(build)/kernel  \ include kernel/version.fs \ is in $(build)/kernel
 include ./kernel.fs              \ load kernel  include ./kernel.fs              \ load kernel
 include ./errore.fs  \ include ./errore.fs
 include ./doers.fs  include ./doers.fs
 has? file [IF]  has? file [IF]
 include ./args.fs  include ./args.fs
Line 103 
Line 103 
 \ Setup                                                13feb93py  \ Setup                                                13feb93py
   
 here normal-dp !  here normal-dp !
 tudp H @ minimal udp !  UNLOCK tudp @ LOCK udp !
 decimal  decimal
   
 has? header [IF]  has? header [IF]
Line 117 
Line 117 
   
 UNLOCK Tlast @  UNLOCK Tlast @
 LOCK  LOCK
 1 cells - dup forth-wordlist cell+ ! Last !  1 cells - dup forth-wordlist wordlist-id ! Last !
 .unresolved  .unresolved

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help