[BACK]Return to main.fs CVS log [TXT] [DIR] Up to [gforth] / gforth / kernel

Diff for /gforth/kernel/main.fs between versions 1.21 and 1.22

version 1.21, 2000/09/23 15:47:10 version 1.22, 2001/07/10 20:36:26
Line 1 Line 1
 \ MAIN.FS      Kernal main load file                   20may93jaw  \ MAIN.FS      Kernel main load file                   20may93jaw
   
 \ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998,2000 Free Software Foundation, Inc.
   
Line 39  Constant fd-symbol-table Line 39  Constant fd-symbol-table
   
   
 bl word vocabulary find nip 0= [IF]  bl word vocabulary find nip 0= [IF]
 \ if search order stuff is missing assume we compile on a gforth      \ if search order stuff is missing assume we are compiling on a gforth
 \ system and include it      \ system and include it.
 \ We want the files taken from out current gforth installation      \ We want the files taken from our current gforth installation
 \ so we don't include relatively to this file      \ so we don't include relatively to this file
       require search.fs
 require search.fs      require environ.fs
 require environ.fs      require envos.fs
 require envos.fs      require errors.fs
 require errors.fs      require extend.fs              \ core-extended
 require extend.fs              \ load core-extended      require hash.fs
 require hash.fs  
   
 [THEN]  [THEN]
   
 \ include etags.fs  \ include etags.fs
   
 include ./../cross.fs               \ include cross-compiler  include ./../cross.fs              \ cross-compiler
   
 decimal  decimal
   
 has? kernel-size makekernel ( size )  has? kernel-size makekernel ( size )
 \ create image-header  \ create image-header
 has? header [IF]  has? header [IF]
 0 A,    \ base address      0 A,                \ base address
 0 ,     \ checksum      0 ,                 \ checksum
 0 ,     \ image size (without tags)      0 ,                 \ image size (without tags)
 >address ,      \ dict size      >address ,          \ dict size
 has? stack-size ,       \ data stack size      has? stack-size ,   \ data stack size
 has? fstack-size ,      \ FP stack size      has? fstack-size ,  \ FP stack size
 has? rstack-size ,      \ return stack size      has? rstack-size ,  \ return stack size
 has? lstack-size ,      \ locals stack size      has? lstack-size ,  \ locals stack size
 0 A,    \ code entry point      0 A,                \ code entry point
 0 A,    \ throw entry point      0 A,                \ throw entry point
 has? stack-size ,       \ unused (possibly tib stack size)      has? stack-size ,   \ unused (possibly tib stack size)
 0 ,     \ unused      0 ,                 \ unused
 0 ,     \ data stack base      0 ,                 \ data stack base
 0 ,     \ fp stack base      0 ,                 \ fp stack base
 0 ,     \ return stack base      0 ,                 \ return stack base
 0 ,     \ locals stack base      0 ,                 \ locals stack base
 [THEN]  [THEN]
   
 UNLOCK ghost - drop \ ghost must exist because - would be treated as number  UNLOCK ghost - drop \ need a ghost otherwise "-" would be treated as a number
 LOCK  LOCK
   
 doc-off  doc-off
 has? prims [IF]  has? prims [IF]
     include ./aliases.fs             \ include primitive aliases      include ./aliases.fs             \ primitive aliases
 [ELSE]  [ELSE]
     prims-include      prims-include
     undef-words      undef-words
Line 96  doc-on Line 94  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                  \ kernel
 \ include ./special.fs             \ special must be last!  
 \ include ./errore.fs  \ include ./errore.fs
 include ./doers.fs  include ./doers.fs
 has? file [IF]  has? file [IF]
 include ./args.fs      include ./args.fs
 include ./files.fs               \ load file words      include ./files.fs               \ file words
 include ./paths.fs      include ./paths.fs
 include ./require.fs      include ./require.fs
 [THEN]  [THEN]
   
 has? compiler [IF]  has? compiler [IF]
 has? glocals [IF]      has? glocals [IF]
 include ./cond.fs                \ load IF and co          include ./cond.fs            \ IF and co.
 [ELSE]      [ELSE]
 include ./cond-old.fs            \ load IF and co w/o locals          include ./cond-old.fs        \ IF and co. withoutlocals
 [THEN]      [THEN]
 \ include arch/misc/tt.fs      \ these two games can be added to provide complex examples for the 4stack
 \ include arch/misc/sokoban.fs      \ and misc simulators (see arch/4stack/README and arch/misc/README).
       \ include arch/misc/tt.fs
       \ include arch/misc/sokoban.fs
 [THEN]  [THEN]
 include ./quotes.fs  include ./quotes.fs
 include ./toolsext.fs  include ./toolsext.fs
Line 126  include ./getdoers.fs Line 125  include ./getdoers.fs
 \ Setup                                                13feb93py  \ Setup                                                13feb93py
   
 has? header [IF]  has? header [IF]
 \    UNLOCK      \    UNLOCK
     here >address 2 cells  !  \ image size      here >address 2 cells  !         \ image size
     ' boot >body  8 cells A!  \ Entry point      ' boot >body  8 cells A!         \ image entry point
 \    LOCK      \    LOCK
 [ELSE]  [ELSE]
   >boot      >boot
 [THEN]  [THEN]
   
 include ./pass.fs  include ./pass.fs                    \ pass pointers from cross to target
   
 .unresolved  .unresolved                          \ how did we do?
Removed from v.1.21  
changed lines
  Added in v.1.22

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>