objc4-818.2.tar.gz

[apple/objc4.git] / runtime / Messengers.subproj / objc-msg-win32.m

#include "objc-private.h"\r
\r
// out-of-band parameter to objc_msgForward\r
#define kFwdMsgSend 1\r
#define kFwdMsgSendStret 0\r
\r
// objc_msgSend parameters\r
#define SELF 8[ebp]\r
#define SUPER 8[ebp]\r
#define SELECTOR 12[ebp]\r
#define FIRST_ARG 16[ebp]\r
\r
// objc_msgSend_stret parameters\r
#define STRUCT_ADDR 8[ebp]\r
#define SELF_STRET 12[ebp]\r
#define SUPER_STRET 12[ebp]\r
#define SELECTOR_STRET 16[ebp]\r
\r
// objc_super parameter to sendSuper\r
#define super_receiver 0\r
#define super_class 4\r
\r
// struct objc_class fields\r
#define isa 0\r
#define cache 32\r
\r
// struct objc_method fields\r
#define method_name 0\r
#define method_imp 8\r
\r
// struct objc_cache fields\r
#define mask 0\r
#define occupied 4\r
#define buckets 8\r
\r
void *_objc_forward_handler = NULL;\r
void *_objc_forward_stret_handler = NULL;\r
\r
__declspec(naked) Method _cache_getMethod(Class cls, SEL sel, IMP objc_msgForward_imp)\r
{\r
    __asm {\r
        push ebp\r
        mov ebp, esp\r
\r
        mov ecx, SELECTOR\r
        mov edx, SELF\r
\r
// CacheLookup WORD_RETURN, CACHE_GET\r
        push edi\r
        mov edi, cache[edx]\r
\r
        push esi\r
        mov esi, mask[edi]\r
        mov edx, ecx\r
        shr edx, 2\r
SCAN:\r
        and edx, esi\r
        mov eax, buckets[edi][edx*4]\r
        test eax, eax\r
        je MISS\r
        cmp ecx, method_name[eax]\r
        je HIT\r
        add edx, 1\r
        jmp SCAN\r
\r
MISS:\r
        xor eax, eax\r
        pop esi\r
        pop edi\r
        leave\r
        ret\r
\r
HIT:\r
        mov ecx, FIRST_ARG\r
        cmp ecx, method_imp[eax]\r
        je MISS\r
        pop esi\r
        pop edi\r
        leave\r
        ret\r
    }\r
}\r
\r
__declspec(naked) IMP _cache_getImp(Class cls, SEL sel)\r
{\r
    __asm {\r
        push ebp\r
        mov ebp, esp\r
\r
        mov ecx, SELECTOR\r
        mov edx, SELF\r
\r
// CacheLookup WORD_RETURN, CACHE_GET\r
        push edi\r
        mov edi, cache[edx]\r
\r
        push esi\r
        mov esi, mask[edi]\r
        mov edx, ecx\r
        shr edx, 2\r
SCAN:\r
        and edx, esi\r
        mov eax, buckets[edi][edx*4]\r
        test eax, eax\r
        je MISS\r
        cmp ecx, method_name[eax]\r
        je HIT\r
        add edx, 1\r
        jmp SCAN\r
\r
MISS:\r
        pop esi\r
        pop edi\r
        xor eax, eax\r
        leave\r
        ret\r
\r
HIT:\r
        pop esi\r
        pop edi\r
        mov eax, method_imp[eax]\r
        leave\r
        ret\r
    }\r
}\r
\r
\r
OBJC_EXPORT __declspec(naked) id objc_msgSend(id a, SEL b, ...)\r
{\r
    __asm {\r
        push ebp\r
        mov ebp, esp\r
\r
        // load receiver and selector\r
        mov ecx, SELECTOR\r
        mov eax, SELF\r
\r
        // check whether receiver is nil\r
        test eax, eax\r
        je NIL\r
\r
        // receiver (in eax) is non-nil: search the cache\r
        mov edx, isa[eax]\r
\r
        // CacheLookup WORD_RETURN, MSG_SEND\r
        push edi\r
        mov edi, cache[edx]\r
        push esi\r
        mov esi, mask[edi]\r
        mov edx, ecx\r
        shr edx, 2\r
SCAN:\r
        and edx, esi\r
        mov eax, buckets[edi][edx*4]\r
        test eax, eax\r
        je MISS\r
        cmp ecx, method_name[eax]\r
        je HIT\r
        add edx, 1\r
        jmp SCAN\r
\r
HIT:\r
        mov eax, method_imp[eax]\r
        pop esi\r
        pop edi\r
        mov edx, kFwdMsgSend\r
        leave\r
        jmp eax\r
\r
        // cache miss: search method lists\r
MISS:\r
        pop esi\r
        pop edi\r
        mov edx, SELF\r
        mov eax, isa[edx]\r
\r
        // MethodTableLookup WORD_RETURN, MSG_SEND\r
        push $3\r
        push eax\r
        push ecx\r
        push edx\r
        call lookUpImpOrFoward\r
\r
        mov edx, kFwdMsgSend\r
        leave\r
        jmp eax\r
\r
        // message send to nil: return zero\r
NIL:\r
        // eax is already zero\r
        mov edx, 0\r
        leave\r
        ret\r
    }\r
}\r
\r
\r
OBJC_EXPORT __declspec(naked) double objc_msgSend_fpret(id a, SEL b, ...)\r
{\r
    __asm {\r
        push ebp\r
        mov ebp, esp\r
\r
        // load receiver and selector\r
        mov ecx, SELECTOR\r
        mov eax, SELF\r
\r
        // check whether receiver is nil\r
        test eax, eax\r
        je NIL\r
\r
        // receiver (in eax) is non-nil: search the cache\r
        mov edx, isa[eax]\r
\r
        // CacheLookup WORD_RETURN, MSG_SEND\r
        push edi\r
        mov edi, cache[edx]\r
        push esi\r
        mov esi, mask[edi]\r
        mov edx, ecx\r
        shr edx, 2\r
SCAN:\r
        and edx, esi\r
        mov eax, buckets[edi][edx*4]\r
        test eax, eax\r
        je MISS\r
        cmp ecx, method_name[eax]\r
        je HIT\r
        add edx, 1\r
        jmp SCAN\r
\r
HIT:\r
        mov eax, method_imp[eax]\r
        pop esi\r
        pop edi\r
        mov edx, kFwdMsgSend\r
        leave\r
        jmp eax\r
\r
        // cache miss: search method lists\r
MISS:\r
        pop esi\r
        pop edi\r
        mov edx, SELF\r
        mov eax, isa[edx]\r
\r
        // MethodTableLookup WORD_RETURN, MSG_SEND\r
        push $3\r
        push eax\r
        push ecx\r
        push edx\r
        call lookUpImpOrFoward\r
\r
        mov edx, kFwdMsgSend\r
        leave\r
        jmp eax\r
\r
        // message send to nil: return zero\r
NIL:\r
        fldz\r
        leave\r
        ret\r
    }\r
}\r
\r
\r
OBJC_EXPORT __declspec(naked) id objc_msgSendSuper(struct objc_super *a, SEL b, ...)\r
{\r
    __asm {\r
        push ebp\r
        mov ebp, esp\r
\r
        // load class and selector\r
        mov eax, SUPER\r
        mov ecx, SELECTOR\r
        mov edx, super_class[eax]\r
\r
        // search the cache (class in edx)\r
        // CacheLookup WORD_RETURN, MSG_SENDSUPER\r
        push edi\r
        mov edi, cache[edx]\r
        push esi\r
        mov esi, mask[edi]\r
        mov edx, ecx\r
        shr edx, 2\r
SCAN:\r
        and edx, esi\r
        mov eax, buckets[edi][edx*4]\r
        test eax, eax\r
        je MISS\r
        cmp ecx, method_name[eax]\r
        je HIT\r
        add edx, 1\r
        jmp SCAN\r
\r
HIT:\r
        mov eax, method_imp[eax]\r
        pop esi\r
        pop edi\r
        mov edx, SUPER\r
        mov edx, super_receiver[edx]\r
        mov SUPER, edx\r
        mov edx, kFwdMsgSend\r
        leave\r
        jmp eax\r
\r
        // cache miss: search method lists\r
MISS:\r
\r
        pop esi\r
        pop edi\r
        mov eax, SUPER\r
        mov edx, super_receiver[eax]\r
        mov SUPER, edx\r
        mov eax, super_class[eax]\r
\r
        // MethodTableLookup WORD_RETURN, MSG_SENDSUPER\r
        push $3\r
        push eax\r
        push ecx\r
        push edx\r
        call lookUpImpOrFoward\r
\r
        mov edx, kFwdMsgSend\r
        leave\r
        jmp eax\r
    }\r
}\r
\r
\r
OBJC_EXPORT __declspec(naked) void objc_msgSend_stret(void)\r
{\r
    __asm {\r
        push ebp\r
        mov ebp, esp\r
\r
        // load receiver and selector\r
        mov ecx, SELECTOR_STRET\r
        mov eax, SELF_STRET\r
\r
        // check whether receiver is nil\r
        test eax, eax\r
        je NIL\r
\r
        // receiver (in eax) is non-nil: search the cache\r
        mov edx, isa[eax]\r
\r
        // CacheLookup WORD_RETURN, MSG_SEND\r
        push edi\r
        mov edi, cache[edx]\r
        push esi\r
        mov esi, mask[edi]\r
        mov edx, ecx\r
        shr edx, 2\r
SCAN:\r
        and edx, esi\r
        mov eax, buckets[edi][edx*4]\r
        test eax, eax\r
        je MISS\r
        cmp ecx, method_name[eax]\r
        je HIT\r
        add edx, 1\r
        jmp SCAN\r
\r
HIT:\r
        mov eax, method_imp[eax]\r
        pop esi\r
        pop edi\r
        mov edx, kFwdMsgSendStret\r
        leave\r
        jmp eax\r
\r
        // cache miss: search method lists\r
MISS:\r
        pop esi\r
        pop edi\r
        mov edx, SELF_STRET\r
        mov eax, isa[edx]\r
\r
        // MethodTableLookup WORD_RETURN, MSG_SEND\r
        push $3\r
        push eax\r
        push ecx\r
        push edx\r
        call lookUpImpOrFoward\r
\r
        mov edx, kFwdMsgSendStret\r
        leave\r
        jmp eax\r
\r
        // message send to nil: return zero\r
NIL:\r
        // eax is already zero\r
        mov edx, 0\r
        leave\r
        ret\r
    }\r
}\r
\r
\r
OBJC_EXPORT __declspec(naked) id objc_msgSendSuper_stret(struct objc_super *a, SEL b, ...)\r
{\r
    __asm {\r
        push ebp\r
        mov ebp, esp\r
\r
        // load class and selector\r
        mov eax, SUPER_STRET\r
        mov ecx, SELECTOR_STRET\r
        mov edx, super_class[eax]\r
\r
        // search the cache (class in edx)\r
        // CacheLookup WORD_RETURN, MSG_SENDSUPER\r
        push edi\r
        mov edi, cache[edx]\r
        push esi\r
        mov esi, mask[edi]\r
        mov edx, ecx\r
        shr edx, 2\r
SCAN:\r
        and edx, esi\r
        mov eax, buckets[edi][edx*4]\r
        test eax, eax\r
        je MISS\r
        cmp ecx, method_name[eax]\r
        je HIT\r
        add edx, 1\r
        jmp SCAN\r
\r
HIT:\r
        mov eax, method_imp[eax]\r
        pop esi\r
        pop edi\r
        mov edx, SUPER_STRET\r
        mov edx, super_receiver[edx]\r
        mov SUPER_STRET, edx\r
        mov edx, kFwdMsgSendStret\r
        leave\r
        jmp eax\r
\r
        // cache miss: search method lists\r
MISS:\r
\r
        pop esi\r
        pop edi\r
        mov eax, SUPER_STRET\r
        mov edx, super_receiver[eax]\r
        mov SUPER_STRET, edx\r
        mov eax, super_class[eax]\r
\r
        // MethodTableLookup WORD_RETURN, MSG_SENDSUPER\r
        push $3\r
        push eax\r
        push ecx\r
        push edx\r
        call lookUpImpOrFoward\r
\r
        mov edx, kFwdMsgSendStret\r
        leave\r
        jmp eax\r
    }\r
}\r
\r
\r
OBJC_EXPORT __declspec(naked) id _objc_msgForward(id a, SEL b, ...)\r
{\r
    __asm {\r
        mov ecx, _objc_forward_handler\r
        jmp ecx\r
    }\r
}\r
\r
OBJC_EXPORT __declspec(naked) id _objc_msgForward_stret(id a, SEL b, ...)\r
{\r
    __asm {\r
        mov ecx, _objc_forward_stret_handler\r
        jmp ecx\r
    }\r
}\r
\r
\r
__declspec(naked) id _objc_msgForward_cached(id a, SEL b, ...)\r
{\r
    __asm {\r
        cmp edx, kFwdMsgSendStret\r
        je  STRET\r
        jmp _objc_msgForward\r
STRET:\r
        jmp _objc_msgForward_stret\r
    }\r
}\r
\r
\r
OBJC_EXPORT __declspec(naked) void method_invoke(void)\r
{\r
    __asm {\r
        push ebp\r
        mov ebp, esp\r
\r
        mov ecx, SELECTOR\r
        mov edx, method_name[ecx]\r
        mov eax, method_imp[ecx]\r
        mov SELECTOR, edx\r
\r
        leave\r
        jmp eax\r
    }\r
}\r
\r
\r
OBJC_EXPORT __declspec(naked) void method_invoke_stret(void)\r
{\r
    __asm {\r
        push ebp\r
        mov ebp, esp\r
\r
        mov ecx, SELECTOR_STRET\r
        mov edx, method_name[ecx]\r
        mov eax, method_imp[ecx]\r
        mov SELECTOR_STRET, edx\r
\r
        leave\r
        jmp eax\r
    }\r
}\r