forked from KolibriOS/kolibrios
360 lines
7.6 KiB
PHP
360 lines
7.6 KiB
PHP
CHECK_FOR_LEAKS = 0
|
|
if CHECK_FOR_LEAKS
|
|
uglobal
|
|
allocatedregions rd 1024
|
|
endg
|
|
iglobal
|
|
numallocatedregions dd 0
|
|
endg
|
|
end if
|
|
pgalloc:
|
|
; in: ecx=size
|
|
; out: eax=pointer or NULL
|
|
push ebx
|
|
push 68
|
|
pop eax
|
|
push 12
|
|
pop ebx
|
|
int 0x40
|
|
if CHECK_FOR_LEAKS
|
|
test eax, eax
|
|
jz .no
|
|
.b:
|
|
mov ebx, [numallocatedregions]
|
|
cmp ebx, 1024
|
|
jb @f
|
|
int3
|
|
jmp $
|
|
@@:
|
|
mov [allocatedregions+ebx*4], eax
|
|
inc [numallocatedregions]
|
|
.no:
|
|
end if
|
|
pop ebx
|
|
ret
|
|
|
|
pgfree:
|
|
; in: ecx=pointer
|
|
; destroys eax
|
|
if CHECK_FOR_LEAKS
|
|
jecxz .no
|
|
mov eax, [numallocatedregions]
|
|
@@:
|
|
dec eax
|
|
js .a
|
|
cmp [allocatedregions+eax*4], ecx
|
|
jnz @b
|
|
jmp @f
|
|
.a:
|
|
int3
|
|
jmp $
|
|
@@:
|
|
dec [numallocatedregions]
|
|
@@:
|
|
cmp eax, [numallocatedregions]
|
|
jae @f
|
|
push [allocatedregions+eax*4+4]
|
|
pop [allocatedregions+eax*4]
|
|
inc eax
|
|
jmp @b
|
|
@@:
|
|
.no:
|
|
end if
|
|
push ebx
|
|
push 68
|
|
pop eax
|
|
push 13
|
|
pop ebx
|
|
int 0x40
|
|
pop ebx
|
|
ret
|
|
|
|
pgrealloc:
|
|
; in: ecx=size, edx=pointer
|
|
; out: eax=pointer
|
|
push ebx
|
|
push 68
|
|
pop eax
|
|
push 20
|
|
pop ebx
|
|
int 0x40
|
|
if CHECK_FOR_LEAKS
|
|
test edx, edx
|
|
jz pgalloc.b
|
|
test eax, eax
|
|
jz .no
|
|
cmp eax, edx
|
|
jz .no
|
|
xor ebx, ebx
|
|
@@:
|
|
cmp ebx, [numallocatedregions]
|
|
jae .a
|
|
cmp [allocatedregions+ebx*4], edx
|
|
jz @f
|
|
inc ebx
|
|
jmp @b
|
|
@@:
|
|
mov [allocatedregions+ebx*4], eax
|
|
jmp .no
|
|
.a:
|
|
int3
|
|
jmp $
|
|
.no:
|
|
end if
|
|
pop ebx
|
|
ret
|
|
|
|
xpgalloc:
|
|
; in: ecx=size
|
|
; out: eax=pointer or NULL
|
|
call pgalloc
|
|
.common:
|
|
test eax, eax
|
|
jnz @f
|
|
call SayNoMem
|
|
xor eax, eax
|
|
@@:
|
|
ret
|
|
|
|
xpgrealloc:
|
|
; in: edx=pointer, ecx=new size
|
|
; out: eax=pointer or NULL
|
|
call pgrealloc
|
|
jmp xpgalloc.common
|
|
|
|
getfreemem:
|
|
; out: eax=size of free RAM in Kb
|
|
push ebx
|
|
push 18
|
|
pop eax
|
|
push 16
|
|
pop ebx
|
|
int 0x40
|
|
pop ebx
|
|
ret
|
|
|
|
get_error_msg:
|
|
; in: eax=error code
|
|
; out: eax=pointer to message (in static buffer)
|
|
push esi edi
|
|
mov edi, error_msg
|
|
cmp eax, 11
|
|
ja .no1
|
|
mov esi, [errors1+eax*4]
|
|
jmp .copy
|
|
.no1:
|
|
cmp eax, 30
|
|
jb .no2
|
|
cmp eax, 32
|
|
ja .no2
|
|
mov esi, [errors2+(eax-30)*4]
|
|
.copy:
|
|
lodsb
|
|
stosb
|
|
test al, al
|
|
jnz .copy
|
|
.ret:
|
|
mov eax, error_msg
|
|
pop edi esi
|
|
ret
|
|
.no2:
|
|
mov esi, aUnknownError
|
|
push eax
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test al, al
|
|
jnz @b
|
|
pop eax
|
|
dec edi
|
|
push edx ecx
|
|
test eax, eax
|
|
jns @f
|
|
mov byte [edi], '-'
|
|
inc edi
|
|
neg eax
|
|
@@:
|
|
xor edx, edx
|
|
mov ecx, 10
|
|
div ecx
|
|
add edx, '0'
|
|
mov byte [edi], dl
|
|
inc edi
|
|
test eax, eax
|
|
jnz @b
|
|
pop ecx edx
|
|
stosb
|
|
jmp .ret
|
|
|
|
libini_alloc:
|
|
push ecx
|
|
mov ecx, [esp+8]
|
|
call xpgalloc
|
|
pop ecx
|
|
ret 4
|
|
libini_free:
|
|
push ecx
|
|
mov ecx, [esp+8]
|
|
call pgfree
|
|
pop ecx
|
|
ret 4
|
|
libini_realloc:
|
|
push ecx edx
|
|
mov edx, [esp+8+4]
|
|
mov ecx, [esp+8+8]
|
|
call xpgrealloc
|
|
pop edx ecx
|
|
ret 8
|
|
|
|
libini_dllload:
|
|
push esi
|
|
mov esi, [esp+8]
|
|
.lib:
|
|
lodsd
|
|
test eax, eax
|
|
jz .ret
|
|
push eax
|
|
lodsd
|
|
xchg esi, [esp]
|
|
xor ebp, ebp ; no version control
|
|
call load_dll_and_import
|
|
pop esi
|
|
test eax, eax
|
|
jz .lib
|
|
.ret:
|
|
pop esi
|
|
ret 4
|
|
|
|
load_dll_and_import:
|
|
cmp byte [eax], '/'
|
|
jz .do
|
|
push esi
|
|
mov edi, saved_file_name
|
|
push edi
|
|
mov esi, standard_dll_path
|
|
mov ecx, standard_dll_path_size
|
|
rep movsb
|
|
mov esi, eax
|
|
mov ecx, 1024-standard_dll_path_size
|
|
@@:
|
|
lodsb
|
|
stosb
|
|
test al, al
|
|
loopnz @b
|
|
pop eax
|
|
pop esi
|
|
jz .do
|
|
.big:
|
|
push esi
|
|
mov edi, aFileNameTooBig
|
|
.sayerr:
|
|
push dword aCannotLoadDLL
|
|
push edi
|
|
mov eax, esp
|
|
push dword aOk
|
|
push esp
|
|
push 1
|
|
push eax
|
|
push 3
|
|
call SayErr
|
|
add esp, 16
|
|
xor eax, eax
|
|
inc eax
|
|
ret
|
|
.do:
|
|
push eax
|
|
mov ecx, eax
|
|
push 68
|
|
pop eax
|
|
push 19
|
|
pop ebx
|
|
int 0x40
|
|
mov edi, aInvalidDLL
|
|
test eax, eax
|
|
jz .sayerr
|
|
mov edx, eax
|
|
cmp ebp, -1
|
|
jnz @f
|
|
pop eax
|
|
xor eax, eax
|
|
ret
|
|
@@:
|
|
; initialize import
|
|
mov edi, aMissingExport
|
|
.import_loop:
|
|
lodsd
|
|
test eax, eax
|
|
jz .import_done
|
|
call .find_exported_function
|
|
jc .sayerr
|
|
mov [esi-4], eax
|
|
jmp .import_loop
|
|
.import_done:
|
|
; check version
|
|
test ebp, ebp
|
|
jz .version_ok
|
|
mov edi, aIncompatibleVersion
|
|
mov eax, aVersion
|
|
call .find_exported_function
|
|
jc .sayerr
|
|
cmp ax, bp
|
|
jb .sayerr
|
|
shr eax, 16
|
|
cmp eax, ebp
|
|
ja .sayerr
|
|
.version_ok:
|
|
; initialize library
|
|
mov eax, aStart
|
|
call .find_exported_function
|
|
jc @f
|
|
push 1 ; DLL_ENTRY
|
|
call eax
|
|
.ret0:
|
|
pop eax
|
|
xor eax, eax
|
|
ret
|
|
@@:
|
|
mov eax, aLibInit
|
|
call .find_exported_function
|
|
jc .ret0
|
|
mov esi, eax
|
|
mov eax, libini_alloc
|
|
mov ebx, libini_free
|
|
mov ecx, libini_realloc
|
|
mov edx, libini_dllload
|
|
call esi
|
|
mov edi, aInitFailed
|
|
test eax, eax
|
|
jnz .sayerr
|
|
jmp .ret0
|
|
|
|
.find_exported_function:
|
|
push edx
|
|
.import_loop_i:
|
|
mov ebx, [edx]
|
|
test ebx, ebx
|
|
jz .import_notfound
|
|
push eax
|
|
@@:
|
|
mov cl, [eax]
|
|
cmp cl, [ebx]
|
|
jnz .import_find_next
|
|
test cl, cl
|
|
jz .import_found
|
|
inc eax
|
|
inc ebx
|
|
jmp @b
|
|
.import_find_next:
|
|
pop eax
|
|
add edx, 8
|
|
jmp .import_loop_i
|
|
.import_found:
|
|
pop eax
|
|
mov eax, [edx+4]
|
|
pop edx
|
|
ret
|
|
.import_notfound:
|
|
pop edx
|
|
stc
|
|
ret
|