[gforth] / gforth / intcomp.fs  

gforth: gforth/intcomp.fs

Diff for /gforth/intcomp.fs between version 1.1 and 1.2

version 1.1, Mon Aug 26 10:07:19 1996 UTC version 1.2, Tue Sep 10 16:08:38 1996 UTC
Line 34 
Line 34 
   
 : create-interpret/compile ( -- )  : create-interpret/compile ( -- )
     0 0 interpret/compile:      0 0 interpret/compile:
     here lastxt interpret/compile-int !  
     no-interpretation-does-code here does-code!  
     0 >body allot  
     here lastxt interpret/compile-comp !      here lastxt interpret/compile-comp !
     no-compilation-does-code here does-code!      no-compilation-does-code here does-code!
     0 >body allot ; \ restrict?      [ 0 >body ] literal allot
       here lastxt interpret/compile-int !
       no-interpretation-does-code here does-code!
       [ 0 >body ] literal allot ; \ restrict?
   
 : fix-does-code ( addr ret-addr -- )  : fix-does-code ( addr ret-addr -- )
     lastxt [ interpret/compile-struct drop ] literal + >r      lastxt [ interpret/compile-struct drop ] literal + >r
     lastxt interpret/compile?      lastxt interpret/compile?
     lastxt interpret/compile-int @ r@ = and      lastxt interpret/compile-int @ r@ >body = and
     lastxt interpret/compile-comp @ r> >body = and      lastxt interpret/compile-comp @ r> = and
     0= abort" not created with create-interpret/compile"      0= abort" not created with create-interpret/compile"
     cell+ cell+ /does-handler + \ to does-code      [ /does-handler cell+ cell+ ] literal + \ to does-code
     swap @ does-code! ;      swap @ does-code! ;
   
 : (interpretation>) ( -- )  : (interpretation>) ( -- )
Line 55 
Line 55 
   
 : interpretation> ( -- orig colon-sys )  : interpretation> ( -- orig colon-sys )
     POSTPONE (interpretation>) POSTPONE ahead      POSTPONE (interpretation>) POSTPONE ahead
     dodoes, defstart dead-code off 0 set-locals-size-list POSTPONE >body ; immediate restrict      dodoes, defstart dead-code off 0 set-locals-size-list ; immediate restrict
   
 : <interpretation ( orig colon-sys -- )  : <interpretation ( orig colon-sys -- )
     ?struc POSTPONE exit      ?struc POSTPONE exit
Line 66 
Line 66 
   
 : compilation> ( -- orig colon-sys )  : compilation> ( -- orig colon-sys )
     POSTPONE (compilation>) POSTPONE ahead      POSTPONE (compilation>) POSTPONE ahead
     dodoes, defstart dead-code off 0 set-locals-size-list ; immediate restrict      dodoes, defstart dead-code off 0 set-locals-size-list POSTPONE >body ; immediate restrict
   
 comp' <interpretation drop Alias <compilation immediate restrict  comp' <interpretation drop Alias <compilation immediate restrict
   

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help