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

Diff for /gforth/prims2x.fs between versions 1.2 and 1.7

version 1.2, 1994/05/18 17:29:59 version 1.7, 1994/09/08 17:20:12
Line 15 Line 15
 \ 5) Words that call NEXT themselves have to be done very carefully.  \ 5) Words that call NEXT themselves have to be done very carefully.
 \  \
 \ To do:  \ To do:
 \ add the store optimization for doubles  
 \ regarding problem 1 above: It would be better (for over) to implement  \ regarding problem 1 above: It would be better (for over) to implement
 \       the alternative  \       the alternative
   
   warnings off
   
   [IFUNDEF] vocabulary  include search-order.fs [THEN]
 include gray.fs  include gray.fs
 include search-order.fs  
   
 100 constant max-effect \ number of things on one side of a stack effect  100 constant max-effect \ number of things on one side of a stack effect
 4096 constant batch-size \ no meaning, just make sure it's >0  4096 constant batch-size \ no meaning, just make sure it's >0
Line 87  variable effect-out-end ( pointer ) Line 88  variable effect-out-end ( pointer )
 2variable effect-in-size  2variable effect-in-size
 2variable effect-out-size  2variable effect-out-size
   
 variable primitive-number -8 primitive-number !  variable primitive-number -9 primitive-number !
   
 \ for several reasons stack items of a word are stored in a wordlist  \ for several reasons stack items of a word are stored in a wordlist
 \ since neither forget nor marker are implemented yet, we make a new  \ since neither forget nor marker are implemented yet, we make a new
Line 195  nowhite ++ Line 196  nowhite ++
   
 (( (( primitive {{ printprim }} )) **  eof ))  (( (( primitive {{ printprim }} )) **  eof ))
 parser primitives2something  parser primitives2something
   warnings @ [IF]
 .( parser generated ok ) cr  .( parser generated ok ) cr
   [THEN]
   
 : primfilter ( file-id xt -- )  : primfilter ( file-id xt -- )
 \ fileid is for the input file, xt ( -- ) is for the output word  \ fileid is for the input file, xt ( -- ) is for the output word
Line 520  set-current Line 523  set-current
  ." NEXT_P1;" cr   ." NEXT_P1;" cr
  stores   stores
  fill-tos   fill-tos
  ." NEXT1_P2;" cr   ." NEXT_P2;" cr
  ." }" cr   ." }" cr
  cr   cr
 ;  ;
Line 537  set-current Line 540  set-current
  if   if
    ." cannot open file" cr abort     ." cannot open file" cr abort
  endif   endif
  ." ------------ CUT HERE -------------" cr   warnings @ if
    ." ------------ CUT HERE -------------" cr  endif
  r> primfilter ;   r> primfilter ;
   
Removed from v.1.2  
changed lines
  Added in v.1.7

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