[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
#if SUPPORT_GC\r
        // check whether selector is ignored\r
#error oops\r
#endif\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 eax\r
        push ecx\r
        push edx\r
        call _class_lookupMethodAndLoadCache3\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
#if SUPPORT_GC\r
        // check whether selector is ignored\r
#error oops\r
#endif\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 eax\r
        push ecx\r
        push edx\r
        call _class_lookupMethodAndLoadCache3\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
#if SUPPORT_GC\r
        // check whether selector is ignored\r
#error oops\r
#endif\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 eax\r
        push ecx\r
        push edx\r
        call _class_lookupMethodAndLoadCache3\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
#if SUPPORT_GC\r
        // check whether selector is ignored\r
#error oops\r
#endif\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 eax\r
        push ecx\r
        push edx\r
        call _class_lookupMethodAndLoadCache3\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
#if SUPPORT_GC\r
        // check whether selector is ignored\r
#error oops\r
#endif\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 eax\r
        push ecx\r
        push edx\r
        call _class_lookupMethodAndLoadCache3\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
        // forward:: support omitted here\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
        // forward:: support omitted here\r
        jmp ecx\r
    }\r
}\r
\r
\r
__declspec(naked) id _objc_msgForward_internal(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
\r
\r
__declspec(naked) id _objc_ignored_method(id obj, SEL sel)\r
{\r
    return obj;\r
}\r
Commit	Line	Data
7af964d1 A	1	#include "objc-private.h"\r
	2	\r
	3	// out-of-band parameter to objc_msgForward\r
	4	#define kFwdMsgSend 1\r
	5	#define kFwdMsgSendStret 0\r
	6	\r
	7	// objc_msgSend parameters\r
8972963c A	8	#define SELF 8[ebp]\r
	9	#define SUPER 8[ebp]\r
	10	#define SELECTOR 12[ebp]\r
	11	#define FIRST_ARG 16[ebp]\r
7af964d1 A	12	\r
7af964d1 A	13	// objc_msgSend_stret parameters\r
8972963c A	14	#define STRUCT_ADDR 8[ebp]\r
	15	#define SELF_STRET 12[ebp]\r
	16	#define SUPER_STRET 12[ebp]\r
	17	#define SELECTOR_STRET 16[ebp]\r
7af964d1 A	18	\r
	19	// objc_super parameter to sendSuper\r
	20	#define super_receiver 0\r
	21	#define super_class 4\r
	22	\r
	23	// struct objc_class fields\r
	24	#define isa 0\r
	25	#define cache 32\r
	26	\r
	27	// struct objc_method fields\r
	28	#define method_name 0\r
	29	#define method_imp 8\r
	30	\r
	31	// struct objc_cache fields\r
	32	#define mask 0\r
	33	#define occupied 4\r
	34	#define buckets 8\r
	35	\r
	36	void *_objc_forward_handler = NULL;\r
	37	void *_objc_forward_stret_handler = NULL;\r
	38	\r
	39	__declspec(naked) Method _cache_getMethod(Class cls, SEL sel, IMP objc_msgForward_imp)\r
	40	{\r
	41	__asm {\r
8972963c A	42	push ebp\r
	43	mov ebp, esp\r
	44	\r
	45	mov ecx, SELECTOR\r
	46	mov edx, SELF\r
7af964d1 A	47	\r
	48	// CacheLookup WORD_RETURN, CACHE_GET\r
	49	push edi\r
	50	mov edi, cache[edx]\r
	51	\r
	52	push esi\r
	53	mov esi, mask[edi]\r
	54	mov edx, ecx\r
	55	shr edx, 2\r
	56	SCAN:\r
	57	and edx, esi\r
	58	mov eax, buckets[edi][edx*4]\r
	59	test eax, eax\r
	60	je MISS\r
	61	cmp ecx, method_name[eax]\r
	62	je HIT\r
	63	add edx, 1\r
	64	jmp SCAN\r
	65	\r
	66	MISS:\r
	67	xor eax, eax\r
	68	pop esi\r
	69	pop edi\r
8972963c	70	leave\r
7af964d1 A	71	ret\r
	72	\r
	73	HIT:\r
8972963c	74	mov ecx, FIRST_ARG\r
7af964d1 A	75	cmp ecx, method_imp[eax]\r
	76	je MISS\r
	77	pop esi\r
	78	pop edi\r
8972963c	79	leave\r
7af964d1 A	80	ret\r
	81	}\r
	82	}\r
	83	\r
	84	__declspec(naked) IMP _cache_getImp(Class cls, SEL sel)\r
	85	{\r
	86	__asm {\r
8972963c A	87	push ebp\r
	88	mov ebp, esp\r
	89	\r
	90	mov ecx, SELECTOR\r
	91	mov edx, SELF\r
7af964d1 A	92	\r
	93	// CacheLookup WORD_RETURN, CACHE_GET\r
	94	push edi\r
	95	mov edi, cache[edx]\r
	96	\r
	97	push esi\r
	98	mov esi, mask[edi]\r
	99	mov edx, ecx\r
	100	shr edx, 2\r
	101	SCAN:\r
	102	and edx, esi\r
	103	mov eax, buckets[edi][edx*4]\r
	104	test eax, eax\r
	105	je MISS\r
	106	cmp ecx, method_name[eax]\r
	107	je HIT\r
	108	add edx, 1\r
	109	jmp SCAN\r
	110	\r
	111	MISS:\r
	112	pop esi\r
	113	pop edi\r
	114	xor eax, eax\r
8972963c	115	leave\r
7af964d1 A	116	ret\r
	117	\r
	118	HIT:\r
	119	pop esi\r
	120	pop edi\r
	121	mov eax, method_imp[eax]\r
8972963c	122	leave\r
7af964d1	123	ret\r
7af964d1 A	124	}\r
	125	}\r
	126	\r
	127	\r
	128	OBJC_EXPORT __declspec(naked) id objc_msgSend(id a, SEL b, ...)\r
	129	{\r
	130	__asm {\r
8972963c A	131	push ebp\r
	132	mov ebp, esp\r
	133	\r
7af964d1	134	// load receiver and selector\r
8972963c A	135	mov ecx, SELECTOR\r
8972963c A	136	mov eax, SELF\r
7af964d1	137	\r
8972963c	138	#if SUPPORT_GC\r
7af964d1 A	139	// check whether selector is ignored\r
	140	#error oops\r
	141	#endif\r
	142	\r
	143	// check whether receiver is nil\r
	144	test eax, eax\r
	145	je NIL\r
	146	\r
	147	// receiver (in eax) is non-nil: search the cache\r
	148	mov edx, isa[eax]\r
	149	\r
	150	// CacheLookup WORD_RETURN, MSG_SEND\r
	151	push edi\r
	152	mov edi, cache[edx]\r
	153	push esi\r
	154	mov esi, mask[edi]\r
	155	mov edx, ecx\r
	156	shr edx, 2\r
	157	SCAN:\r
	158	and edx, esi\r
	159	mov eax, buckets[edi][edx*4]\r
	160	test eax, eax\r
	161	je MISS\r
	162	cmp ecx, method_name[eax]\r
	163	je HIT\r
	164	add edx, 1\r
	165	jmp SCAN\r
	166	\r
	167	HIT:\r
	168	mov eax, method_imp[eax]\r
	169	pop esi\r
	170	pop edi\r
	171	mov edx, kFwdMsgSend\r
8972963c	172	leave\r
7af964d1 A	173	jmp eax\r
	174	\r
	175	// cache miss: search method lists\r
	176	MISS:\r
	177	pop esi\r
	178	pop edi\r
cd5f04f5 A	179	mov edx, SELF\r
cd5f04f5 A	180	mov eax, isa[edx]\r
7af964d1 A	181	\r
7af964d1 A	182	// MethodTableLookup WORD_RETURN, MSG_SEND\r
7af964d1	183	push eax\r
cd5f04f5 A	184	push ecx\r
	185	push edx\r
	186	call _class_lookupMethodAndLoadCache3\r
7af964d1 A	187	\r
7af964d1 A	188	mov edx, kFwdMsgSend\r
8972963c	189	leave\r
7af964d1 A	190	jmp eax\r
	191	\r
	192	// message send to nil: return zero\r
	193	NIL:\r
	194	// eax is already zero\r
	195	mov edx, 0\r
8972963c	196	leave\r
7af964d1 A	197	ret\r
	198	}\r
	199	}\r
	200	\r
	201	\r
	202	OBJC_EXPORT __declspec(naked) double objc_msgSend_fpret(id a, SEL b, ...)\r
	203	{\r
	204	__asm {\r
8972963c A	205	push ebp\r
	206	mov ebp, esp\r
	207	\r
7af964d1	208	// load receiver and selector\r
8972963c A	209	mov ecx, SELECTOR\r
8972963c A	210	mov eax, SELF\r
7af964d1	211	\r
8972963c	212	#if SUPPORT_GC\r
7af964d1 A	213	// check whether selector is ignored\r
	214	#error oops\r
	215	#endif\r
	216	\r
	217	// check whether receiver is nil\r
	218	test eax, eax\r
	219	je NIL\r
	220	\r
	221	// receiver (in eax) is non-nil: search the cache\r
	222	mov edx, isa[eax]\r
	223	\r
	224	// CacheLookup WORD_RETURN, MSG_SEND\r
	225	push edi\r
	226	mov edi, cache[edx]\r
	227	push esi\r
	228	mov esi, mask[edi]\r
	229	mov edx, ecx\r
	230	shr edx, 2\r
	231	SCAN:\r
	232	and edx, esi\r
	233	mov eax, buckets[edi][edx*4]\r
	234	test eax, eax\r
	235	je MISS\r
	236	cmp ecx, method_name[eax]\r
	237	je HIT\r
	238	add edx, 1\r
	239	jmp SCAN\r
	240	\r
	241	HIT:\r
	242	mov eax, method_imp[eax]\r
	243	pop esi\r
	244	pop edi\r
	245	mov edx, kFwdMsgSend\r
8972963c	246	leave\r
7af964d1 A	247	jmp eax\r
	248	\r
	249	// cache miss: search method lists\r
	250	MISS:\r
	251	pop esi\r
	252	pop edi\r
cd5f04f5 A	253	mov edx, SELF\r
cd5f04f5 A	254	mov eax, isa[edx]\r
7af964d1 A	255	\r
7af964d1 A	256	// MethodTableLookup WORD_RETURN, MSG_SEND\r
7af964d1	257	push eax\r
cd5f04f5 A	258	push ecx\r
	259	push edx\r
	260	call _class_lookupMethodAndLoadCache3\r
7af964d1 A	261	\r
7af964d1 A	262	mov edx, kFwdMsgSend\r
8972963c	263	leave\r
7af964d1 A	264	jmp eax\r
	265	\r
	266	// message send to nil: return zero\r
	267	NIL:\r
	268	fldz\r
8972963c	269	leave\r
7af964d1 A	270	ret\r
	271	}\r
	272	}\r
	273	\r
	274	\r
	275	OBJC_EXPORT __declspec(naked) id objc_msgSendSuper(struct objc_super *a, SEL b, ...)\r
	276	{\r
	277	__asm {\r
8972963c A	278	push ebp\r
	279	mov ebp, esp\r
	280	\r
7af964d1	281	// load class and selector\r
8972963c A	282	mov eax, SUPER\r
8972963c A	283	mov ecx, SELECTOR\r
7af964d1 A	284	mov edx, super_class[eax]\r
7af964d1 A	285	\r
8972963c	286	#if SUPPORT_GC\r
7af964d1 A	287	// check whether selector is ignored\r
	288	#error oops\r
	289	#endif\r
	290	\r
	291	// search the cache (class in edx)\r
	292	// CacheLookup WORD_RETURN, MSG_SENDSUPER\r
	293	push edi\r
	294	mov edi, cache[edx]\r
	295	push esi\r
	296	mov esi, mask[edi]\r
	297	mov edx, ecx\r
	298	shr edx, 2\r
	299	SCAN:\r
	300	and edx, esi\r
	301	mov eax, buckets[edi][edx*4]\r
	302	test eax, eax\r
	303	je MISS\r
	304	cmp ecx, method_name[eax]\r
	305	je HIT\r
	306	add edx, 1\r
	307	jmp SCAN\r
	308	\r
	309	HIT:\r
	310	mov eax, method_imp[eax]\r
	311	pop esi\r
	312	pop edi\r
8972963c	313	mov edx, SUPER\r
7af964d1	314	mov edx, super_receiver[edx]\r
8972963c	315	mov SUPER, edx\r
7af964d1	316	mov edx, kFwdMsgSend\r
8972963c	317	leave\r
7af964d1 A	318	jmp eax\r
	319	\r
	320	// cache miss: search method lists\r
	321	MISS:\r
	322	\r
	323	pop esi\r
	324	pop edi\r
cd5f04f5 A	325	mov eax, SUPER\r
	326	mov edx, super_receiver[eax]\r
	327	mov SUPER, edx\r
	328	mov eax, super_class[eax]\r
7af964d1 A	329	\r
7af964d1 A	330	// MethodTableLookup WORD_RETURN, MSG_SENDSUPER\r
7af964d1	331	push eax\r
cd5f04f5 A	332	push ecx\r
	333	push edx\r
	334	call _class_lookupMethodAndLoadCache3\r
7af964d1 A	335	\r
7af964d1 A	336	mov edx, kFwdMsgSend\r
8972963c	337	leave\r
7af964d1 A	338	jmp eax\r
	339	}\r
	340	}\r
	341	\r
	342	\r
	343	OBJC_EXPORT __declspec(naked) void objc_msgSend_stret(void)\r
	344	{\r
	345	__asm {\r
8972963c A	346	push ebp\r
	347	mov ebp, esp\r
	348	\r
7af964d1	349	// load receiver and selector\r
8972963c A	350	mov ecx, SELECTOR_STRET\r
8972963c A	351	mov eax, SELF_STRET\r
7af964d1	352	\r
8972963c	353	#if SUPPORT_GC\r
7af964d1 A	354	// check whether selector is ignored\r
	355	#error oops\r
	356	#endif\r
	357	\r
	358	// check whether receiver is nil\r
	359	test eax, eax\r
	360	je NIL\r
	361	\r
	362	// receiver (in eax) is non-nil: search the cache\r
	363	mov edx, isa[eax]\r
	364	\r
	365	// CacheLookup WORD_RETURN, MSG_SEND\r
	366	push edi\r
	367	mov edi, cache[edx]\r
	368	push esi\r
	369	mov esi, mask[edi]\r
	370	mov edx, ecx\r
	371	shr edx, 2\r
	372	SCAN:\r
	373	and edx, esi\r
	374	mov eax, buckets[edi][edx*4]\r
	375	test eax, eax\r
	376	je MISS\r
	377	cmp ecx, method_name[eax]\r
	378	je HIT\r
	379	add edx, 1\r
	380	jmp SCAN\r
	381	\r
	382	HIT:\r
	383	mov eax, method_imp[eax]\r
	384	pop esi\r
	385	pop edi\r
	386	mov edx, kFwdMsgSendStret\r
8972963c	387	leave\r
7af964d1 A	388	jmp eax\r
	389	\r
	390	// cache miss: search method lists\r
	391	MISS:\r
	392	pop esi\r
	393	pop edi\r
cd5f04f5 A	394	mov edx, SELF_STRET\r
cd5f04f5 A	395	mov eax, isa[edx]\r
7af964d1 A	396	\r
7af964d1 A	397	// MethodTableLookup WORD_RETURN, MSG_SEND\r
7af964d1	398	push eax\r
cd5f04f5 A	399	push ecx\r
	400	push edx\r
	401	call _class_lookupMethodAndLoadCache3\r
7af964d1 A	402	\r
7af964d1 A	403	mov edx, kFwdMsgSendStret\r
8972963c	404	leave\r
7af964d1 A	405	jmp eax\r
	406	\r
	407	// message send to nil: return zero\r
	408	NIL:\r
	409	// eax is already zero\r
	410	mov edx, 0\r
8972963c	411	leave\r
7af964d1 A	412	ret\r
	413	}\r
	414	}\r
	415	\r
	416	\r
	417	OBJC_EXPORT __declspec(naked) id objc_msgSendSuper_stret(struct objc_super *a, SEL b, ...)\r
	418	{\r
	419	__asm {\r
8972963c A	420	push ebp\r
	421	mov ebp, esp\r
	422	\r
7af964d1	423	// load class and selector\r
8972963c A	424	mov eax, SUPER_STRET\r
8972963c A	425	mov ecx, SELECTOR_STRET\r
7af964d1 A	426	mov edx, super_class[eax]\r
7af964d1 A	427	\r
8972963c	428	#if SUPPORT_GC\r
7af964d1 A	429	// check whether selector is ignored\r
	430	#error oops\r
	431	#endif\r
	432	\r
	433	// search the cache (class in edx)\r
	434	// CacheLookup WORD_RETURN, MSG_SENDSUPER\r
	435	push edi\r
	436	mov edi, cache[edx]\r
	437	push esi\r
	438	mov esi, mask[edi]\r
	439	mov edx, ecx\r
	440	shr edx, 2\r
	441	SCAN:\r
	442	and edx, esi\r
	443	mov eax, buckets[edi][edx*4]\r
	444	test eax, eax\r
	445	je MISS\r
	446	cmp ecx, method_name[eax]\r
	447	je HIT\r
	448	add edx, 1\r
	449	jmp SCAN\r
	450	\r
	451	HIT:\r
	452	mov eax, method_imp[eax]\r
	453	pop esi\r
	454	pop edi\r
8972963c	455	mov edx, SUPER_STRET\r
7af964d1	456	mov edx, super_receiver[edx]\r
8972963c	457	mov SUPER_STRET, edx\r
7af964d1	458	mov edx, kFwdMsgSendStret\r
8972963c	459	leave\r
7af964d1 A	460	jmp eax\r
	461	\r
	462	// cache miss: search method lists\r
	463	MISS:\r
	464	\r
	465	pop esi\r
	466	pop edi\r
cd5f04f5 A	467	mov eax, SUPER_STRET\r
	468	mov edx, super_receiver[eax]\r
	469	mov SUPER_STRET, edx\r
	470	mov eax, super_class[eax]\r
7af964d1 A	471	\r
7af964d1 A	472	// MethodTableLookup WORD_RETURN, MSG_SENDSUPER\r
7af964d1	473	push eax\r
cd5f04f5 A	474	push ecx\r
	475	push edx\r
	476	call _class_lookupMethodAndLoadCache3\r
7af964d1 A	477	\r
7af964d1 A	478	mov edx, kFwdMsgSendStret\r
8972963c	479	leave\r
7af964d1 A	480	jmp eax\r
	481	}\r
	482	}\r
	483	\r
	484	\r
	485	OBJC_EXPORT __declspec(naked) id _objc_msgForward(id a, SEL b, ...)\r
	486	{\r
	487	__asm {\r
	488	mov ecx, _objc_forward_handler\r
	489	// forward:: support omitted here\r
	490	jmp ecx\r
	491	}\r
	492	}\r
	493	\r
	494	OBJC_EXPORT __declspec(naked) id _objc_msgForward_stret(id a, SEL b, ...)\r
	495	{\r
	496	__asm {\r
	497	mov ecx, _objc_forward_stret_handler\r
	498	// forward:: support omitted here\r
	499	jmp ecx\r
	500	}\r
	501	}\r
	502	\r
	503	\r
	504	__declspec(naked) id _objc_msgForward_internal(id a, SEL b, ...)\r
	505	{\r
	506	__asm {\r
	507	cmp edx, kFwdMsgSendStret\r
	508	je STRET\r
	509	jmp _objc_msgForward\r
	510	STRET:\r
	511	jmp _objc_msgForward_stret\r
	512	}\r
	513	}\r
	514	\r
	515	\r
	516	OBJC_EXPORT __declspec(naked) void method_invoke(void)\r
	517	{\r
	518	__asm {\r
8972963c A	519	push ebp\r
	520	mov ebp, esp\r
	521	\r
	522	mov ecx, SELECTOR\r
7af964d1 A	523	mov edx, method_name[ecx]\r
7af964d1 A	524	mov eax, method_imp[ecx]\r
8972963c A	525	mov SELECTOR, edx\r
	526	\r
	527	leave\r
7af964d1 A	528	jmp eax\r
	529	}\r
	530	}\r
	531	\r
	532	\r
	533	OBJC_EXPORT __declspec(naked) void method_invoke_stret(void)\r
	534	{\r
	535	__asm {\r
8972963c A	536	push ebp\r
	537	mov ebp, esp\r
	538	\r
	539	mov ecx, SELECTOR_STRET\r
7af964d1 A	540	mov edx, method_name[ecx]\r
7af964d1 A	541	mov eax, method_imp[ecx]\r
8972963c A	542	mov SELECTOR_STRET, edx\r
	543	\r
	544	leave\r
7af964d1 A	545	jmp eax\r
	546	}\r
	547	}\r
8972963c A	548	\r
	549	\r
	550	__declspec(naked) id _objc_ignored_method(id obj, SEL sel)\r
	551	{\r
	552	return obj;\r
	553	}\r