16 lines
497 B
Factor
16 lines
497 B
Factor
! Copyright (C) 2006 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
IN: objc
|
|
USING: assembler compiler ;
|
|
|
|
! In their infinite wisdom, Apple's struct-returning Objective C
|
|
! messages do not use their own documented ABI; instead they
|
|
! pop one of the input parameters off the stack. We compensate
|
|
! for that here.
|
|
|
|
! when calling an stret via objc_msgSend_stret, it pops the
|
|
! struct off the stack for us!
|
|
: (post-stret) ;
|
|
|
|
\ (post-stret) [ EAX PUSH ] H{ } define-intrinsic
|