forked from KolibriOS/kolibrios
285 lines
4.8 KiB
C++
285 lines
4.8 KiB
C++
;/***
|
|
|
|
MenuetHeapInit = @@Menuet@_HeapInit$qpvt1t1
|
|
|
|
MenuetHeapAlloc = @@Menuet@Alloc$qui
|
|
|
|
MenuetHeapReAlloc = @@Menuet@ReAlloc$qpvui
|
|
|
|
MenuetHeapFree = @@Menuet@Free$qpv
|
|
|
|
MenuetHeapFreeAndThreadFinish = @Menuet@_FreeAndThreadFinish$qpvpi
|
|
|
|
define @Menuet@_SetUseMemory$qui
|
|
push ebx
|
|
mov eax,64
|
|
mov ebx,1
|
|
mov ecx,[esp+8]
|
|
int 0x40
|
|
pop ebx
|
|
test eax,eax
|
|
jnz Menuet_set_use_memory_nomem
|
|
push ecx
|
|
push dword [@Menuet@_MenuetMemBlock]
|
|
call @@MemoryHeap@ResizeBlock$q20MemoryHeap@TMemBlockpv
|
|
add esp,8
|
|
mov al,1
|
|
ret
|
|
Menuet_set_use_memory_nomem:
|
|
xor al,al
|
|
ret
|
|
enddef
|
|
|
|
define @Menuet@_RecalculateUseMemory$qui
|
|
mov eax,dword [esp+4]
|
|
mov ecx,(U_END + 3) and not 3
|
|
cmp eax,ecx
|
|
jna Menuet_recalculate_use_memory_min
|
|
push ebx
|
|
sub eax,ecx
|
|
mov ebx,6
|
|
mul ebx
|
|
dec ebx
|
|
div ebx
|
|
add eax,((U_END + 3) and not 3) + 3
|
|
and eax,not 3
|
|
pop ebx
|
|
ret
|
|
Menuet_recalculate_use_memory_min:
|
|
mov eax,ecx
|
|
ret
|
|
enddef
|
|
|
|
define @Menuet@_FreeAndThreadFinish$qpvpi
|
|
mov ebx,1
|
|
mov ecx,[esp+8]
|
|
jmp Menuet_heap_free_tf_wait
|
|
Menuet_heap_free_tf_wait_loop:
|
|
mov eax,5
|
|
int 0x40
|
|
shl ebx,1
|
|
cmp ebx,MENUET_MUTEX_MAX_TIME_WAIT
|
|
jna Menuet_heap_free_tf_wait
|
|
mov ebx,MENUET_MUTEX_MAX_TIME_WAIT
|
|
Menuet_heap_free_tf_wait:
|
|
cmp dword [ecx],0
|
|
jnz @Menuet@ExitProcess$qv
|
|
lock bts dword [@Menuet@_MemHeapMutex],0
|
|
jc Menuet_heap_free_tf_wait_loop
|
|
push dword [esp+4]
|
|
push @Menuet@_MenuetFreeSpace
|
|
call @@MemoryHeap@Free$qr21MemoryHeap@TFreeSpacepv
|
|
add esp,8
|
|
mov byte [@Menuet@_MemHeapMutex],0x40
|
|
or eax,-1
|
|
int 0x40
|
|
enddef
|
|
|
|
macro call func
|
|
{
|
|
if func eq @MemoryHeap@_FirstNotZeroBit$qui
|
|
bsf eax,[esp]
|
|
else if func eq @MemoryHeap@_CopyMemItemArray$quiuiui
|
|
xchg edi,[esp]
|
|
xchg esi,[esp+4]
|
|
mov ecx,[esp+8]
|
|
cld
|
|
sub ecx,esi
|
|
shr ecx,2
|
|
rep movs dword [edi],[esi]
|
|
xchg edi,[esp]
|
|
xchg esi,[esp+4]
|
|
else
|
|
call func
|
|
end if
|
|
}
|
|
|
|
@$bnwa$qui = @@Menuet@Alloc$qui
|
|
@$bnew$qui = @@Menuet@Alloc$qui
|
|
|
|
@$bdla$qpv = @@Menuet@Free$qpv
|
|
@$bdele$qpv = @@Menuet@Free$qpv
|
|
|
|
define @_vector_new_ldtc_$qpvuiuiuit1uit1
|
|
.var_2C = -0Ch
|
|
.var_28 = -8
|
|
.var_24 = -4
|
|
.arg_0 = 8
|
|
.arg_4 = 0Ch
|
|
.arg_8 = 10h
|
|
.arg_C = 14h
|
|
.arg_10 = 18h
|
|
push ebp
|
|
mov ebp, esp
|
|
add esp, -0Ch
|
|
push ebx
|
|
push esi
|
|
push edi
|
|
mov edi, [ebp+.arg_10]
|
|
mov esi, [ebp+.arg_C]
|
|
cmp dword [ebp+.arg_0], 0
|
|
jnz .loc_10070
|
|
mov edx, [ebp+.arg_4]
|
|
imul edx, [ebp+.arg_8]
|
|
test esi, 10h
|
|
jz @f
|
|
add edx, 4
|
|
@@:
|
|
push edx
|
|
call @$bnwa$qui
|
|
pop ecx
|
|
mov [ebp+.arg_0], eax
|
|
test eax, eax
|
|
jz .ret
|
|
mov dword [ebp+.var_2C], 1
|
|
jmp @f
|
|
.loc_10070:
|
|
and dword [ebp+.var_2C], 0
|
|
@@:
|
|
test esi, 10h
|
|
jz @f
|
|
mov edx, [ebp+.arg_0]
|
|
mov ecx, [ebp+.arg_8]
|
|
mov [edx], ecx
|
|
add dword [ebp+.arg_0], 4
|
|
@@:
|
|
mov eax, [ebp+.arg_0]
|
|
test edi, edi
|
|
jz .ret
|
|
mov ecx, [ebp+.arg_8]
|
|
mov [ebp+.var_28], ecx
|
|
mov ebx, eax
|
|
jmp .loc_100EF
|
|
.loc_100B0:
|
|
mov eax, esi
|
|
and eax, 7
|
|
dec eax
|
|
jz .loc_100CB
|
|
dec eax
|
|
jz .loc_100D1
|
|
dec eax
|
|
jz .loc_100D6
|
|
dec eax
|
|
dec eax
|
|
jz .loc_100DC
|
|
jmp $
|
|
.loc_100CB:
|
|
push ebx
|
|
call edi
|
|
pop ecx
|
|
jmp .loc_100EC
|
|
.loc_100D1:
|
|
.loc_100DC:
|
|
push ebx
|
|
call edi
|
|
jmp .loc_100EC
|
|
.loc_100D6:
|
|
mov eax, ebx
|
|
call edi
|
|
.loc_100EC:
|
|
add ebx, [ebp+.arg_4]
|
|
.loc_100EF:
|
|
dec dword [ebp+.var_28]
|
|
jns .loc_100B0
|
|
mov eax, [ebp+.arg_0]
|
|
.ret:
|
|
pop edi
|
|
pop esi
|
|
pop ebx
|
|
mov esp, ebp
|
|
pop ebp
|
|
ret
|
|
enddef
|
|
|
|
define @_vector_delete_ldtc_$qpvuiuiuit1
|
|
.arg_0 = 8
|
|
.arg_4 = 0Ch
|
|
.arg_8 = 10h
|
|
.arg_C = 14h
|
|
.arg_10 = 18h
|
|
push ebp
|
|
mov ebp, esp
|
|
push ebx
|
|
push esi
|
|
push edi
|
|
mov edi, [ebp+.arg_C]
|
|
mov esi, edi
|
|
and esi, 10h
|
|
and edi, 8
|
|
cmp dword [ebp+.arg_0], 0
|
|
jz .ret
|
|
test esi, esi
|
|
jz @f
|
|
mov ecx, [ebp+.arg_0]
|
|
mov eax, [ecx-4]
|
|
mov [ebp+.arg_8], eax
|
|
@@:
|
|
mov ebx, [ebp+.arg_8]
|
|
dec ebx
|
|
imul ebx, [ebp+.arg_4]
|
|
add ebx, [ebp+.arg_0]
|
|
jmp .loc_100D3
|
|
.loc_1008B:
|
|
mov eax, [ebp+.arg_C]
|
|
and eax, 7
|
|
dec eax
|
|
jz .loc_1009E
|
|
dec eax
|
|
jz .loc_100A9
|
|
dec eax
|
|
jz .loc_100B1
|
|
dec eax
|
|
dec eax
|
|
jz .loc_100BD
|
|
jmp $
|
|
.loc_1009E:
|
|
push 2
|
|
push ebx
|
|
call dword [ebp+.arg_10]
|
|
add esp, 8
|
|
jmp .loc_100D0
|
|
.loc_100A9:
|
|
push 2
|
|
push ebx
|
|
call dword [ebp+.arg_10]
|
|
jmp .loc_100D0
|
|
.loc_100B1:
|
|
mov edx, 2
|
|
mov eax, ebx
|
|
call dword [ebp+.arg_10]
|
|
jmp .loc_100D0
|
|
.loc_100BD:
|
|
push 2
|
|
push ebx
|
|
call dword [ebp+.arg_10]
|
|
.loc_100D0:
|
|
sub ebx, [ebp+.arg_4]
|
|
.loc_100D3:
|
|
dec dword [ebp+.arg_8]
|
|
jns .loc_1008B
|
|
test esi, esi
|
|
jz @f
|
|
sub dword [ebp+.arg_0], 4
|
|
@@:
|
|
test edi, edi
|
|
jz @f
|
|
push dword [ebp+.arg_0]
|
|
call @$bdla$qpv
|
|
pop ecx
|
|
jmp .ret
|
|
@@:
|
|
mov eax, [ebp+.arg_0]
|
|
jmp .reteax
|
|
.ret:
|
|
xor eax, eax
|
|
.reteax:
|
|
pop edi
|
|
pop esi
|
|
pop ebx
|
|
mov esp, ebp
|
|
pop ebp
|
|
ret
|
|
enddef
|
|
|
|
;/**/
|