stack-checker.known-words: add effects for signal-handler and leaf-signal-handler primitives, even though they can't be called directly

db4
Slava Pestov 2011-10-29 17:15:35 -07:00
parent 70056d756b
commit c1b7de8339
1 changed files with 2 additions and 0 deletions

View File

@ -417,6 +417,7 @@ M: object infer-call* \ call bad-macro-input ;
\ innermost-frame-executing { callstack } { object } define-primitive
\ innermost-frame-scan { callstack } { fixnum } define-primitive
\ jit-compile { quotation } { } define-primitive
\ leaf-signal-handler { } { } define-primitive
\ gsp:lookup-method { object array } { word } define-primitive
\ minor-gc { } { } define-primitive
\ modify-code-heap { array object object } { } define-primitive
@ -450,6 +451,7 @@ M: object infer-call* \ call bad-macro-input ;
\ set-slot { object object fixnum } { } define-primitive
\ set-special-object { object fixnum } { } define-primitive
\ set-string-nth-fast { fixnum fixnum string } { } define-primitive
\ signal-handler { } { } define-primitive
\ size { object } { fixnum } define-primitive \ size make-flushable
\ slot { object fixnum } { object } define-primitive \ slot make-flushable
\ special-object { fixnum } { object } define-primitive \ special-object make-flushable