Subversion Repositories Kolibri OS

;

;

;   External kernel dependencies (libraries) loading

;   External kernel dependencies (libraries) loading

;

;

;============================================================================

;============================================================================

$Revision: 1289 $

$Revision: 2288 $

if 0

if 0

; The code currently does not work. Kill "if 0/end if" only after correcting

; The code currently does not work. Kill "if 0/end if" only after correcting

endp

endp

		mov	esi,[import_table]

  .next_lib:

  .next_lib:	mov	edx,[esi]

        mov     edx, [esi]

		or	edx,edx

        or      edx, edx

		jz	.exit

        jz      .exit

		push	esi

        push    esi

		mov	edi,s_libname

        mov     edi, s_libname

		mov     al, '/'

        stosb

		stosb

        mov     esi, sysdir_path

		mov esi,sysdir_path

            @@:

	    @@: lodsb

        lodsb

		stosb

        stosb

		or	al,al

        or      al, al

		jnz	@b

        jnz     @b

		dec edi

        dec     edi

		mov [edi], dword '/lib'

        mov     [edi], dword '/lib'

		mov [edi+4],byte '/'

        mov     [edi+4], byte '/'

		pop esi

        push    esi

		push esi

        mov     esi, [esi+4]

		mov	esi,[esi+4]

            @@:

	    @@: lodsb

        lodsb

		stdcall dll.Link,eax,edx

        stdcall dll.Link, eax, edx

		stdcall dll.Init,[eax+4]

        stdcall dll.Init, [eax+4]

		pop	esi

        pop     esi

		add	esi,8

        add     esi, 8

		jmp	.next_lib

        jmp     .next_lib

		ret

        ret

		xor	eax,eax

        xor     eax, eax

		inc	eax

        inc     eax

		ret

        ret

endp

endp

proc dll.Link, exp:dword,imp:dword

proc dll.Link, exp:dword,imp:dword

		push	eax

        push    eax

		mov	esi,[imp]

        mov     esi, [imp]

		test	esi,esi

        test    esi, esi

  .next:	lodsd

        lodsd

		test	eax,eax

        test    eax, eax

		jz	.done

        jz      .done

		stdcall dll.GetProcAddress,[exp],eax

        stdcall dll.GetProcAddress, [exp], eax

		or	eax,eax

        or      eax, eax

		jz	@f

        jz      @f

		mov	[esi-4],eax

        mov     [esi-4], eax

  .done:	pop	eax

        pop     eax

		ret

        ret

endp

endp

		ret

        ret

endp

endp

proc dll.GetProcAddress, exp:dword,sz_name:dword

proc dll.GetProcAddress, exp:dword,sz_name:dword

  .next:	test	edx,edx

        test    edx, edx

		jz	.end

        jz      .end

                stdcall strncmp,[edx],[sz_name], dword -1

        stdcall strncmp, [edx], [sz_name], dword -1

		test	eax,eax

        test    eax, eax

		jz	.ok

        jz      .ok

		add	edx,8

        add     edx, 8

  .end: 	ret

        ret

endp

endp

;-----------------------------------------------------------------------------

;-----------------------------------------------------------------------------

	lea	ecx,[ebx+4+4095]

        lea     ecx, [ebx+4+4095]

	and	ecx,not 4095

        and     ecx, not 4095

	add	ecx,-4

        add     ecx, -4

	cmp	ecx,[eax-4]

        cmp     ecx, [eax-4]

	je	.exit

        je      .exit

	call	mem.Alloc

        call    mem.Alloc

	xchg	eax,[esp]

        xchg    eax, [esp]

	or	eax,eax

        or      eax, eax

	jz	.exit

        jz      .exit

	mov	esi,eax

        mov     esi, eax

	mov	edi,eax

        mov     edi, eax

	mov	ecx,[esi-4]

        mov     ecx, [esi-4]

	cmp	ecx,[edi-4]

        cmp     ecx, [edi-4]

	jbe	@f

        jbe     @f

	mov	ecx,[edi-4]

        mov     ecx, [edi-4]

	shr	ecx,2

        shr     ecx, 2

	cld

        cld

	rep	movsd

        rep movsd

	xchg	eax,[esp]

        xchg    eax, [esp]

	call	mem.Free

        call    mem.Free