stack-checker.known-words: stack effect for <callback> is switched, it

should be ( word integer -- alien )
db4
Björn Lindqvist 2014-09-15 12:35:55 +02:00 committed by John Benediktsson
parent 4a96e6163b
commit a338fa08e7
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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 ) }