From ad24823466a52926eb20b83b07fd60d39fd139c6 Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Fri, 28 Jun 1996 16:48:18 -0400 Subject: [PATCH] (__objc_block_forward): New function. (get_imp, objc_msg_lookup): Use different forwarding function when the returning a floating point value. From-SVN: r12371 --- gcc/objc/sendmsg.c | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) diff --git a/gcc/objc/sendmsg.c b/gcc/objc/sendmsg.c index d3ef66cd9ce..97b49fede67 100644 --- a/gcc/objc/sendmsg.c +++ b/gcc/objc/sendmsg.c @@ -49,6 +49,14 @@ static void __objc_install_dispatch_table_for_class (Class); /* Forward declare some functions */ static void __objc_init_install_dtable(id, SEL); + +/* Various forwarding functions that are used based upon the + return type for the selector. + __objc_block_forward for structures. + __objc_double_forward for floats/doubles. + __objc_word_forward for pointers or types that fit in registers. + */ +static double __objc_double_forward(id, SEL, ...); static id __objc_word_forward(id, SEL, ...); typedef struct { id many[8]; } __big; #if INVISIBLE_STRUCT_RETURN @@ -80,6 +88,8 @@ get_imp (Class class, SEL sel) const char *t = sel->sel_types; if (t && (*t == '[' || *t == '(' || *t == '{')) res = (IMP)__objc_block_forward; + else if (t && (*t == 'f' || *t == 'd')) + res = (IMP)__objc_double_forward; else res = (IMP)__objc_word_forward; } @@ -116,6 +126,8 @@ objc_msg_lookup(id receiver, SEL op) const char *t = op->sel_types; if (t && (*t == '[' || *t == '(' || *t == '{')) result = (IMP)__objc_block_forward; + else if (t && (*t == 'f' || *t == 'd')) + result = (IMP)__objc_double_forward; else result = (IMP)__objc_word_forward; } @@ -458,6 +470,7 @@ search_for_method_in_list (MethodList_t list, SEL op) static retval_t __objc_forward (id object, SEL sel, arglist_t args); +/* Forwarding pointers/integers through the normal registers */ static id __objc_word_forward (id rcv, SEL op, ...) { @@ -471,6 +484,21 @@ __objc_word_forward (id rcv, SEL op, ...) return res; } +/* Specific routine for forwarding floats/double because of + architectural differences on some processors. i386s for + example which uses a floating point stack versus general + registers for floating point numbers. This forward routine + makes sure that GCC restores the proper return values. */ +static double +__objc_double_forward (id rcv, SEL op, ...) +{ + void *args, *res; + + args = __builtin_apply_args (); + res = __objc_forward (rcv, op, args); + __builtin_return (res); +} + #if INVISIBLE_STRUCT_RETURN static __big #else -- 2.30.2