afb2bbacd5
Fixed include path git-svn-id: svn://kolibrios.org@8710 a494cfbc-eb01-0410-851d-a64ba20cac60
102 lines
2.5 KiB
NASM
102 lines
2.5 KiB
NASM
;
|
|
; 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' ; |