version 1.86, 2001/02/27 21:17:10
|
version 1.89, 2001/03/04 13:39:34
|
Line 60 warnings off
|
Line 60 warnings off
|
\ different directory with the wordlibraries) |
\ different directory with the wordlibraries) |
include ./search.fs |
include ./search.fs |
include ./extend.fs |
include ./extend.fs |
[THEN] |
|
include ./stuff.fs |
include ./stuff.fs |
|
[THEN] |
|
|
[IFUNDEF] environment? |
[IFUNDEF] environment? |
include ./environ.fs |
include ./environ.fs |
Line 670 s" IP" save-mem w s" error don't use # o
|
Line 670 s" IP" save-mem w s" error don't use # o
|
|
|
: output-profile ( -- ) |
: output-profile ( -- ) |
\ generate code for postprocessing the VM block profile stuff |
\ generate code for postprocessing the VM block profile stuff |
." if (*ip == VM_INST(" function-number @ 0 .r ." )) {" cr |
." if (VM_IS_INST(*ip, " function-number @ 0 .r ." )) {" cr |
." add_inst(b, " quote prim prim-name 2@ type quote ." );" cr |
." add_inst(b, " quote prim prim-name 2@ type quote ." );" cr |
." ip += " inst-stream stack-in @ 1+ 0 .r ." ;" cr |
." ip += " inst-stream stack-in @ 1+ 0 .r ." ;" cr |
prim prim-c-code 2@ s" SET_IP" search nip nip |
prim prim-c-code 2@ s" SET_IP" search nip nip |
Line 1167 Variable c-flag
|
Line 1167 Variable c-flag
|
)) <- simple-primitive ( -- ) |
)) <- simple-primitive ( -- ) |
|
|
(( {{ init-combined }} |
(( {{ init-combined }} |
` = (( white ++ {{ start }} forth-ident {{ end add-prim }} )) ++ |
` = white ** (( {{ start }} forth-ident {{ end add-prim }} white ** )) ++ |
nleof {{ process-combined }} |
nleof {{ process-combined }} |
)) <- combined-primitive |
)) <- combined-primitive |
|
|