OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

(__objc_block_return): New function. 

(__objc_word_return, __objc_double_return): New functions.
(__objc_init_install_dtable): Call appropriate return function
based upon method type.

From-SVN: r13715
This commit is contained in:
Richard Kenner 1997-03-16 08:40:47 -05:00
parent 74775c7ae2
commit 8235e418bc
1 changed files with 48 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
gcc/objc/sendmsg.c
View File

@ -166,6 +166,46 @@ void __objc_init_dispatch_tables()
= sarray_new(200, __objc_init_install_dtable);
}
/* Various return functions that are used based upon the
return type for the selector.
__objc_block_return for structures.
__objc_double_return for floats/doubles.
__objc_word_return for pointers or types that fit in registers.
*/
#if INVISIBLE_STRUCT_RETURN
static __big
#else
static id
#endif
__objc_block_return(IMP imp, void * args)
{
void * result = __builtin_apply((apply_t)imp, args, 96);
if (result)
__builtin_return (result);
else
return;
}
static id
__objc_word_return(IMP imp, void * args)
{
void * result = __builtin_apply((apply_t)imp, args, 96);
if (result)
__builtin_return (result);
else
return;
}
static double
__objc_double_return(IMP imp, void * args)
{
void * result = __builtin_apply((apply_t)imp, args, 96);
if (result)
__builtin_return (result);
else
return;
}
/* This one is a bit hairy. This function is installed in the
premature dispatch table, and thus called once for each class,
namely when the very first message is send to it. */
@ -176,6 +216,7 @@ static void __objc_init_install_dtable(id receiver, SEL op)
IMP imp;
void* args;
void* result;
const char *t;
/* This may happen, if the programmer has taken the address of a
method before the dtable was initialized... too bad for him! */
@ -217,13 +258,15 @@ already_initialized:
/* Get real method for this in newly installed dtable */
imp = get_imp(receiver->class_pointer, op);
/* Perform the appropriate return based upon the method return type */
args = __builtin_apply_args();
result = __builtin_apply((apply_t)imp, args, 96);
if (result)
__builtin_return (result);
t = op->sel_types;
if (t && (*t == '[' || *t == '(' || *t == '{'))
((id(*)())__objc_block_return)(imp, args);
else if (t && (*t == 'f' || *t == 'd'))
((id(*)())__objc_double_return)(imp, args);
else
return;
__objc_word_return(imp, args);
}
/* Install dummy table for class which causes the first message to