[gforth] / gforth / kernel / int.fs  

gforth: gforth/kernel/int.fs

Diff for /gforth/kernel/int.fs between version 1.29 and 1.30

version 1.29, Mon Mar 29 22:52:33 1999 UTC version 1.30, Wed May 5 12:03:30 1999 UTC
Line 320 
Line 320 
     (name>x) tuck (x>int) ( b xt )      (name>x) tuck (x>int) ( b xt )
     swap immediate-mask and flag-sign ;      swap immediate-mask and flag-sign ;
   
   const Create ???  0 , 3 c, char ? c, char ? c, char ? c,
   \ ??? is used by dovar:, must be created/:dovar
   
   [IFDEF] forthstart
   \ if we have a forthstart we can define head? with it
   \ otherwise leave out the head? check
   
 : head? ( addr -- f )  : head? ( addr -- f )
     \G heuristic check whether addr is a name token; may deliver false      \G heuristic check whether addr is a name token; may deliver false
     \G positives; addr must be a valid address      \G positives; addr must be a valid address
Line 341 
Line 348 
     \ in dubio pro:      \ in dubio pro:
     drop true ;      drop true ;
   
 const Create ???  0 , 3 c, char ? c, char ? c, char ? c,  
 \ ??? is used by dovar:, must be created/:dovar  
   
 : >head ( cfa -- nt ) \ gforth  to-head  : >head ( cfa -- nt ) \ gforth  to-head
     $21 cell do ( cfa )      $21 cell do ( cfa )
         dup i - count $9F and + cfaligned over alias-mask + =          dup i - count $9F and + cfaligned over alias-mask + =
Line 357 
Line 361 
         cell +loop          cell +loop
     drop ??? ( wouldn't 0 be better? ) ;      drop ??? ( wouldn't 0 be better? ) ;
   
   [ELSE]
   
   : >head ( cfa -- nt ) \ gforth  to-head
       $21 cell do ( cfa )
           dup i - count $9F and + cfaligned over alias-mask + =
           if ( cfa ) i - cell - unloop exit
           then
           cell +loop
       drop ??? ( wouldn't 0 be better? ) ;
   
   [THEN]
   
 ' >head ALIAS >name  ' >head ALIAS >name
   
 : body> 0 >body - ;  : body> 0 >body - ;
Line 696 
Line 712 
 \ command-line arguments  \ command-line arguments
 ' noop IS 'cold  ' noop IS 'cold
   
 include ../chains.fs  include ./../chains.fs
   
 Variable init8  Variable init8
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help