gnustep/libs-base
0
0
Fork 0
mirror of https://github.com/gnustep/libs-base.git synced 2025-05-29 16:01:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

More defs for Darwin.

Browse source 
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@10791 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
fedor 2001-08-28 18:45:17 +00:00
parent 93a7da31c4
commit 9e0dd41e9d
7 changed files with 83 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Source/objc-gnu2next.m
View file

@ -25,6 +25,7 @@
#include "config.h"
#include <stdio.h>
#include <base/preface.h>
#include "mframe.h"
#ifndef ROUND
#define ROUND(V, A) \
@ -445,7 +446,33 @@ sel_types_match (const char* t1, const char* t2)
return NO;
}
id next_objc_msg_sendv(id object, SEL op, void* frame)
{
arglist_t argFrame = __builtin_apply_args();
Method *m = class_get_instance_method(object->class_pointer, op);
const char *type;
void *result;
argFrame->arg_ptr = frame;
*((id*)method_types_get_first_argument (m, argFrame, &type)) = object;
*((SEL*)method_types_get_next_argument (argFrame, &type)) = op;
result = __builtin_apply((apply_t)m->method_imp,
argFrame,
method_get_sizeof_arguments (m));
#if !defined(BROKEN_BUILTIN_APPLY) && defined(i386)
/* Special hack to avoid pushing the poped float value back to the fp
stack on i386 machines. This happens with NeXT runtime and 2.7.2
compiler. If the result value is floating point don't call
__builtin_return anymore. */
if(*m->method_types == _C_FLT || *m->method_types == _C_DBL) {
long double value = *(long double*)(((char*)result) + 8);
asm("fld %0" : : "f" (value));
}
else
#endif
__builtin_return(result);
}
/*
** Hook functions for memory allocation and disposal.