This is objc-runtime.m in view mode; [Download] [Up]
/*
objc-runtime.m
Copyright (C) 1995, 1996 Ovidiu Predescu and Mircea Oancea.
All rights reserved.
Author: Ovidiu Predescu <ovidiu@bx.logicnet.ro>
This file is part of libFoundation.
Permission to use, copy, modify, and distribute this software and its
documentation for any purpose and without fee is hereby granted, provided
that the above copyright notice appear in all copies and that both that
copyright notice and this permission notice appear in supporting
documentation.
We disclaim all warranties with regard to this software, including all
implied warranties of merchantability and fitness, in no event shall
we be liable for any special, indirect or consequential damages or any
damages whatsoever resulting from loss of use, data or profits, whether in
an action of contract, negligence or other tortious action, arising out of
or in connection with the use or performance of this software.
*/
#include <Foundation/NSString.h>
#include "common.h"
#include <extensions/NSException.h>
#include <extensions/objc-runtime.h>
#if GNU_RUNTIME
#include <objc/sarray.h>
void class_add_methods(Class class, struct objc_method_list* mlist)
{
int i;
extern struct sarray* __objc_uninstalled_dtable;
NSCAssert(mlist->method_next == NULL, @"mlist must not be linked");
/* Insert the new method list in the methods linked list. */
mlist->method_next = class->methods;
class->methods = mlist;
if(class->dtable != __objc_uninstalled_dtable) {
/* Insert each method imp in the class dtable. */
for(i = 0; i < mlist->method_count; i++) {
struct objc_method* method = &(mlist->method_list[i]);
sarray_at_put_safe (class->dtable,
(sidx)method->method_name->sel_id,
method->method_imp);
}
}
}
#endif /* GNU_RUNTIME */
#if NeXT_RUNTIME
id nil_method(id receiver, SEL op, ...)
{
return receiver;
}
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_get_first_argument (m, argFrame, &type)) = object;
*((SEL*)method_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);
}
/* Returns YES iff t1 and t2 have same method types, but we ignore
the argframe layout */
BOOL
sel_types_match (const char* t1, const char* t2)
{
if (!t1 || !t2)
return NO;
while (*t1 && *t2)
{
if (*t1 == '+') t1++;
if (*t2 == '+') t2++;
while (isdigit(*t1)) t1++;
while (isdigit(*t2)) t2++;
/* xxx Remove these next two lines when qualifiers are put in
all selectors, not just Protocol selectors. */
t1 = objc_skip_type_qualifiers(t1);
t2 = objc_skip_type_qualifiers(t2);
if (!*t1 && !*t2)
return YES;
if (*t1 != *t2)
return NO;
t1++;
t2++;
}
return NO;
}
#endif /* NeXT_RUNTIME */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.