Subversion Repositories Kolibri OS

;

;  KolibriOS Dll load support

;

;  (C) 2020-2021 Coldy

;  Thank's you for use this code and software based on it!

;  I will glad if it's will be helpful.

;

;  Distributed under terms of GPL

;

format MS COFF

public @EXPORT as 'EXPORTS'

include '../../../proc32.inc'

include '../../../macros.inc'

section '.flat' code readable align 16

app_version       equ word[8]

i_table_min_size  =   1

sizeof.kx_header  =   8

APP_STARTUP_THUNK:

    ; First make shure that app

    ; have header version 2.0 or more

    cmp app_version,2

    jl .denied            ; App with app_version < 2 shouldn't be here

    ; Then make shure that we first

    mov eax, @EXPORT

    cmp dword[eax-4],0

    je .denied

    ; Don't allow second time

    mov dword[eax-4],0

   ; Early app initialization

;{ Test KX header

   ;xor  eax, eax

   mov	esi,0x24

   lodsw

   cmp ax, 'KX'

   jne @f ; Not KX

   lodsw

   cmp ax, 0

   jne @f ; Bad magic

   lodsw

   bt ax, 6 ; Have import?

   jnc .app_start

;}

   ; Test import table (use legacy style)

   mov  eax, [sizeof.kx_header + 0x24] ; i_table_ptr

   test eax, eax

   jz  .app_start           ; i_table_ptr = 0 ?

   ;js      .error

   mov esi, [0x10]

   cmp esi, eax

   jbe @f           ; i_table_ptr >= img_size ?

   mov ebx, eax

   add ebx, i_table_min_size

   cmp esi, ebx

   jb @f           ; i_table_ptr + i_table_min_size > img_size ?

   ; Link app/dependent libs import tables with libs export table

   ; TODO: need revision of the exists lib format and dll.Load (for libs import binds)

   stdcall dll.Load,eax

   test	eax, eax

   jnz	.import_error

.app_start:

   ; Start of app code

   mov  eax, [0x0C]

   ; TODO: test start_ptr + min_code_size < img_size

   call eax

@@:

   mov eax, -1

   int 0x40

.import_error:

  ; Run @NOTIFY and tell user then error occured

  ; BOARD will contaits details

  jmp @b

.denied:

    ; Kolibri has no ability kill app if this enter from no from main thread

    ; So just alert and return

    ;DEBUGF	1, 'APP_STARTUP_THUNK@dll.obj: App twice/with app_version < 2 has entered!\n'

    ret

; } APP_STARTUP_THUNK

; WARNING! This code must be after app initialization thunk!

include '../../../dll.inc'

align 4

;dd 0xdeadbeef

dd APP_STARTUP_THUNK

@EXPORT:

export                              \

    dll.Load,           'dll_load',  \

    dll.Link,           'dll_link',  \

    dll.GetProcAddress, 'dll_sym' ;