Subversion Repositories Kolibri OS

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

proc mem.Alloc size ;/////////////////////////////////////////////////////////

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

        push    ebx ecx

        mov     eax,[size]

        lea     ecx,[eax+4+4095]

        and     ecx, not 4095

        mcall   68,12

        test    eax, eax

        jz      @f

        add     ecx,-4

        mov     [eax],ecx

        add     eax,4

       @@:

        pop     ecx ebx

        ret

endp

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

proc mem.ReAlloc mptr,size;///////////////////////////////////////////////////

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

        push    ebx ecx esi edi eax

        mov     eax,[mptr]

        mov     ebx,[size]

        or      eax,eax

        jz      @f

        lea     ecx,[ebx+4+4095]

        and     ecx,not 4095

        add     ecx,-4

        cmp     ecx,[eax-4]

        je      .exit

    @@: mov     eax,ebx

        call    mem.Alloc

        xchg    eax,[esp]

        or      eax,eax

        jz      .exit

        mov     esi,eax

        xchg    eax,[esp]

        mov     edi,eax

        mov     ecx,[esi-4]

        cmp     ecx,[edi-4]

        jbe     @f

        mov     ecx,[edi-4]

    @@: add     ecx,3

        shr     ecx,2

        cld

        rep     movsd

        xchg    eax,[esp]

        call    mem.Free

  .exit:

        pop     eax edi esi ecx ebx

        ret

endp

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

proc mem.Free mptr ;//////////////////////////////////////////////////////////

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

        mov     eax,[mptr]

        or      eax,eax

        jz      @f

        push    ebx ecx

        lea     ecx,[eax-4]

        mcall   68,13

        pop     ecx ebx

    @@: ret

endp

proc dll.Load, import_table:dword

                mov     esi,[import_table]

  .next_lib:    mov     edx,[esi]

                or      edx,edx

                jz      .exit

                push    esi

                mov     esi,[esi+4]

                mov     edi,s_libdir.fname

            @@: lodsb

                stosb

                or      al,al

                jnz     @b

                mcall   68,19,s_libdir

                or      eax,eax

                jz      .fail

                stdcall dll.Link,eax,edx

                stdcall dll.Init,[eax+4]

                pop     esi

                add     esi,8

                jmp     .next_lib

  .exit:        xor     eax,eax

                ret

  .fail:        add     esp,4

                xor     eax,eax

                inc     eax

                ret

endp

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

                push    eax

                mov     esi,[imp]

                test    esi,esi

                jz      .done

  .next:        lodsd

                test    eax,eax

                jz      .done

                stdcall dll.GetProcAddress,[exp],eax

                or      eax,eax

                jz      @f

                mov     [esi-4],eax

                jmp     .next

            @@: mov     dword[esp],0

  .done:        pop     eax

                ret

endp

proc dll.Init, dllentry:dword

                pushad

                mov     eax,mem.Alloc

                mov     ebx,mem.Free

                mov     ecx,mem.ReAlloc

                mov     edx,dll.Load

                stdcall [dllentry]

                popad

                ret

endp

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

                mov     edx,[exp]

                xor     eax,eax

  .next:        or      edx,edx

                jz      .end

                cmp     dword[edx],0

                jz      .end

                stdcall strcmp,[edx],[sz_name]

                test    eax,eax

                jz      .ok

                add     edx,8

                jmp     .next

  .ok:          mov     eax,[edx+4]

  .end:         ret

endp

proc strcmp, str1:dword,str2:dword

                push    esi edi

                mov     esi,[str1]

                mov     edi,[str2]

                xor     eax,eax

            @@: lodsb

                scasb

                jne     .fail

                or      al,al

                jnz     @b

                jmp     .ok

  .fail:        or      eax,-1

  .ok:          pop     edi esi

                ret

endp

s_libdir:

  db '/sys/lib/'

  .fname rb 32