Add hashcode method for simple-alien; improves performance of malloc and free
parent
635d4c1ea0
commit
b4a74f55a3
|
@ -49,6 +49,8 @@ M: alien equal?
|
||||||
2drop f
|
2drop f
|
||||||
] if ;
|
] if ;
|
||||||
|
|
||||||
|
M: simple-alien hashcode* nip alien-address ;
|
||||||
|
|
||||||
ERROR: alien-callback-error ;
|
ERROR: alien-callback-error ;
|
||||||
|
|
||||||
: alien-callback ( return parameters abi quot -- alien )
|
: alien-callback ( return parameters abi quot -- alien )
|
||||||
|
|
Loading…
Reference in New Issue