stack-checker.known-words: stack effect for <callback> is switched, it
should be ( word integer -- alien )db4
parent
4a96e6163b
commit
a338fa08e7
|
@ -302,7 +302,7 @@ M: object infer-call* \ call bad-macro-input ;
|
|||
\ (word) { object object object } { word } define-primitive \ (word) make-flushable
|
||||
\ <array> { integer object } { array } define-primitive \ <array> make-flushable
|
||||
\ <byte-array> { integer } { byte-array } define-primitive \ <byte-array> make-flushable
|
||||
\ <callback> { integer word } { alien } define-primitive
|
||||
\ <callback> { word integer } { alien } define-primitive
|
||||
\ <displaced-alien> { integer c-ptr } { c-ptr } define-primitive \ <displaced-alien> make-flushable
|
||||
\ <string> { integer integer } { string } define-primitive \ <string> make-flushable
|
||||
\ <tuple> { array } { tuple } define-primitive \ <tuple> make-flushable
|
||||
|
|
|
@ -398,7 +398,7 @@ tuple
|
|||
] dip define-declared ;
|
||||
|
||||
{
|
||||
{ "<callback>" "alien" "primitive_callback" ( return-rewind word -- alien ) }
|
||||
{ "<callback>" "alien" "primitive_callback" ( word return-rewind -- alien ) }
|
||||
{ "<displaced-alien>" "alien" "primitive_displaced_alien" ( displacement c-ptr -- alien ) }
|
||||
{ "alien-address" "alien" "primitive_alien_address" ( c-ptr -- addr ) }
|
||||
{ "alien-cell" "alien.accessors" "primitive_alien_cell" ( c-ptr n -- value ) }
|
||||
|
|
Loading…
Reference in New Issue