Add compile-dependencies? flag, can be switched off for debugging
parent
b2ade7f556
commit
8eacd0e58b
|
@ -73,9 +73,14 @@ SYMBOL: +failed+
|
|||
] [ drop ] if
|
||||
] tri ;
|
||||
|
||||
! Only switch this off for debugging.
|
||||
SYMBOL: compile-dependencies?
|
||||
|
||||
t compile-dependencies? set-global
|
||||
|
||||
: save-asm ( asm -- )
|
||||
[ [ code>> ] [ label>> ] bi compiled get set-at ]
|
||||
[ calls>> [ maybe-compile ] each ]
|
||||
[ compile-dependencies? get [ calls>> [ maybe-compile ] each ] [ drop ] if ]
|
||||
bi ;
|
||||
|
||||
: backend ( nodes word -- )
|
||||
|
|
Loading…
Reference in New Issue