Subversion Repositories Kolibri OS

Rev

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

Rev 488 Rev 519
Line 226... Line 226...
226 
 
 226 
 
227 
proc dll.GetProcAddress, exp:dword,sz_name:dword
 227 
proc dll.GetProcAddress, exp:dword,sz_name:dword
228 
		mov	edx,[exp]
 228 
		mov	edx,[exp]
229 
  .next:	test	edx,edx
 229 
  .next:	test	edx,edx
230 
		jz	.end
 230 
		jz	.end
231 
		stdcall strcmp,[edx],[sz_name]
 231 
                stdcall strncmp,[edx],[sz_name], dword -1
232 
		test	eax,eax
 232 
		test	eax,eax
233 
		jz	.ok
 233 
		jz	.ok
234 
		add	edx,8
 234 
		add	edx,8
235 
		jmp	.next
 235 
		jmp	.next
Line 304... Line 304...
304 
;    @@: ret
 304 
;    @@: ret
305 
	stdcall kernel_free, [mptr]
 305 
	stdcall kernel_free, [mptr]
306 
	ret
 306 
	ret
307 
endp
 307 
endp
Line 308... Line -...
308 
 
 - 
 
309 
proc strcmp, str1:dword,str2:dword
 - 
 
310 
		push	esi edi
 - 
 
311 
		mov	esi,[str1]
 - 
 
312 
		mov	edi,[str2]
 - 
 
313 
		xor	eax,eax
 - 
 
314 
	    @@: lodsb
 - 
 
315 
		scasb
 - 
 
316 
		jne	.fail
 - 
 
317 
		or	al,al
 - 
 
318 
		jnz	@b
 - 
 
319 
		jmp	.ok
 - 
 
320 
  .fail:	or	eax,-1
 - 
 
321 
  .ok:		pop	edi esi
 - 
 
322 
		ret
 - 
 
323 
endp
 - 
 
324 
 
 - 
 
325 
 
 308