Bootstrap fixes
parent
c9590d2560
commit
7a591325dc
|
@ -66,7 +66,7 @@ libc math namespaces sequences strings words ;
|
||||||
|
|
||||||
: struct-return ( ret types quot -- ret types quot )
|
: struct-return ( ret types quot -- ret types quot )
|
||||||
pick c-struct? [
|
pick c-struct? [
|
||||||
pick c-size [ memcpy (pre-stret) ] curry append
|
pick c-size [ memcpy ] curry append
|
||||||
>r { "void*" } swap append >r drop "void" r> r>
|
>r { "void*" } swap append >r drop "void" r> r>
|
||||||
] when ;
|
] when ;
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,7 @@
|
||||||
! Copyright (C) 2006 Slava Pestov.
|
! Copyright (C) 2006 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
IN: objc
|
IN: objc
|
||||||
|
USING: assembler compiler ;
|
||||||
|
|
||||||
! In their infinite wisdom, Apple's struct-returning Objective C
|
! In their infinite wisdom, Apple's struct-returning Objective C
|
||||||
! messages do not use their own documented ABI; instead they
|
! messages do not use their own documented ABI; instead they
|
||||||
|
|
Loading…
Reference in New Issue