Subversion Repositories Kolibri OS

Rev

Rev 617 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 617 Rev 987
Line 13... Line 13...
13 
		mcall	68,19,s_libdir
 13 
		mcall	68,19,s_libdir
14 
		or	eax,eax
 14 
		or	eax,eax
15 
		jz	.fail
 15 
		jz	.fail
16 
		stdcall dll.Link,eax,edx
 16 
		stdcall dll.Link,eax,edx
17 
		or	eax,eax
 17 
		stdcall dll.Init,[eax+4]
18 
		jz	.fail
 - 
 
19 
		stdcall dll.Init,[eax+4]
 - 
 
20 
		pop	esi
 18 
		pop	esi
21 
		add	esi,8
 19 
		add	esi,8
22 
		jmp	.next_lib
 20 
		jmp	.next_lib
23 
  .exit:	xor	eax,eax
 21 
  .exit:	xor	eax,eax
24 
		ret
 22 
		ret
Line 58... Line 56...
58 
endp
 56 
endp
59 
 
 57 
 
Line 60... Line 58...
60 
proc dll.GetProcAddress, exp:dword,sz_name:dword
 58 
proc dll.GetProcAddress, exp:dword,sz_name:dword
61 
		mov	edx,[exp]
 59 
		mov	edx,[exp]
- 
 
 60 
		xor	eax,eax
62 
  .next:	xor	eax,eax
 61 
  .next:	or	edx,edx
- 
 
 62 
		jz	.end
63 
		test	edx,edx
 63 
		cmp	dword[edx],0
64 
		jz	.end
 64 
		jz	.end
65 
		stdcall strcmp,[edx],[sz_name]
 65 
		stdcall strcmp,[edx],[sz_name]
66 
		test	eax,eax
 66 
		test	eax,eax
67 
		jz	.ok
 67 
		jz	.ok
68 
		add	edx,8
 68 
		add	edx,8
Line 86... Line 86...
86 
  .ok:		pop	edi esi
 86 
  .ok:		pop	edi esi
87 
		ret
 87 
		ret
88 
endp
 88 
endp
89 
 
 89 
 
Line -... Line 90...
- 
 
 90 
s_libdir:
90 
s_libdir db '/rd/1/lib/'
 91 
  db '/sys/lib/'
91 
s_libdir.fname rb 32
 92 
  .fname rb 32