Merge branch 'master' into uniscribe
commit
633669302b
|
@ -263,8 +263,9 @@ M: listener-operation invoke-command ( target command -- )
|
||||||
|
|
||||||
: listener-run-files ( seq -- )
|
: listener-run-files ( seq -- )
|
||||||
[
|
[
|
||||||
[ \ listener-run-files ] dip
|
'[ _ [ run-file ] each ]
|
||||||
'[ _ [ run-file ] each ] call-listener
|
\ listener-run-files
|
||||||
|
call-listener
|
||||||
] unless-empty ;
|
] unless-empty ;
|
||||||
|
|
||||||
: com-end ( listener -- )
|
: com-end ( listener -- )
|
||||||
|
|
|
@ -195,8 +195,6 @@ void mark_code_block(F_CODE_BLOCK *compiled)
|
||||||
|
|
||||||
copy_handle(&compiled->literals);
|
copy_handle(&compiled->literals);
|
||||||
copy_handle(&compiled->relocation);
|
copy_handle(&compiled->relocation);
|
||||||
|
|
||||||
flush_icache_for(compiled);
|
|
||||||
}
|
}
|
||||||
|
|
||||||
void mark_stack_frame_step(F_STACK_FRAME *frame)
|
void mark_stack_frame_step(F_STACK_FRAME *frame)
|
||||||
|
|
Loading…
Reference in New Issue