Re: Выделение памяти
Posted: Sat Oct 22, 2016 9:41 pm
Все правильно. free application memory. Свободная память приложения. У каждого процесса 2Гб юзерспейса. Соответственно максимальный размер кучи почти 2Гб.
Я тут вот ещё попробовал сделать, как ты говорил, пройтись с шагом 4к.
Вот исходник
Spoiler:
Code: Select all
Unit Unit1;
(* -------------------------------------------------------- *)
Interface
(* -------------------------------------------------------- *)
Type
Dword = Cardinal;
Var
hConsole: Pointer;
ConsoleInit: Procedure(WndWidth, WndHeight, ScrWidth, ScrHeight: Dword; Caption: PChar); StdCall;
ConsoleExit: Procedure(bCloseWindow: Cardinal); StdCall;
printf: Function(Const Format: PChar): Integer; CDecl VarArgs;
getch: Function: Char; StdCall;
(* -------------------------------------------------------- *)
Procedure Main; Forward;
Procedure ThreadTerminate; Forward;
Function LoadLibrary(Path: PChar): Pointer; StdCall; Forward;
Function GetProcAddress(hLib: Pointer; ProcName: PChar): Pointer; StdCall; Forward;
Function HeapCreate: Cardinal; Forward;
Function HeapAllocate(Bytes: Cardinal): Pointer; StdCall; Forward;
Function HeapFree(MemPtr: Pointer): Cardinal; StdCall; Forward;
Function GetFreeMemory: Dword; Forward;
Function GetAvailableMemory: Dword; Forward;
(* -------------------------------------------------------- *)
Implementation
(* -------------------------------------------------------- *)
Procedure Main();
Var
i: Cardinal;
HeapSize: Dword;
FreeMemory: Dword;
AvailableMemory: Dword;
MemPtr: PChar;
Begin
hConsole := LoadLibrary('/sys/lib/console.obj');
ConsoleInit := GetProcAddress(hConsole, 'con_init');
ConsoleExit := GetProcAddress(hConsole, 'con_exit');
printf := GetProcAddress(hConsole, 'con_printf');
getch := GetProcAddress(hConsole, 'con_getch');
ConsoleInit($FFFFFFFF, $FFFFFFFF, $FFFFFFFF, $FFFFFFFF, 'Test');
FreeMemory := GetFreeMemory();
AvailableMemory := GetAvailableMemory();
HeapSize := HeapCreate();
printf('Free memory = %d kilobytes.'#10, FreeMemory);
printf('Available memory = %d kilobytes.'#10, AvailableMemory);
If HeapSize = 0 Then
printf('HeapCreate Error!'#10)
Else Begin
printf('Heap created. HeapSize = %d bytes.'#10, HeapSize);
MemPtr := HeapAllocate(FreeMemory * 1024);
If MemPtr = nil Then
printf('HeapAllocate Error!'#10)
Else
printf('Allocated %d kilobytes. Pointer to memory = %#x'#10, FreeMemory, MemPtr);
getch();
i := 0;
While i < (FreeMemory * 1024) Do Begin
MemPtr[i] := #0;
Inc(i, 4096);
printf('i = %d'#10, i);
End;
printf('Free memory = %d kilobytes.'#10, GetFreeMemory());
printf('Available memory = %d kilobytes.'#10, GetAvailableMemory());
getch();
If HeapFree(MemPtr) = 0 Then
printf('HeapFree Error!'#10)
Else
printf('Memory freed.'#10);
End;
ConsoleExit(0);
ThreadTerminate;
End;
(* -------------------------------------------------------- *)
Function HeapCreate: Cardinal;
Asm
push ebx
mov eax, 68
mov ebx, 11
int 64
pop ebx
End;
(* -------------------------------------------------------- *)
Function HeapAllocate(Bytes: Cardinal): Pointer;
Asm
push ebx
mov eax, 68
mov ebx, 12
mov ecx, Bytes
int 64
pop ebx
End;
(* -------------------------------------------------------- *)
Function HeapFree(MemPtr: Pointer): Cardinal;
Asm
push ebx
mov eax, 68
mov ebx, 13
mov ecx, MemPtr
int 64
pop ebx
End;
(* -------------------------------------------------------- *)
Function GetFreeMemory: Dword;
Asm
push ebx
mov eax, 18
mov ebx, 16
int 64
pop ebx
End;
(* -------------------------------------------------------- *)
Function GetAvailableMemory: Dword;
Asm
push ebx
mov eax, 18
mov ebx, 17
int 64
pop ebx
End;
(* -------------------------------------------------------- *)
Procedure ThreadTerminate();
Asm
mov eax, $FFFFFFFF
int 64
End;
(* -------------------------------------------------------- *)
Function GetProcAddress(hLib: Pointer; ProcName: PChar): Pointer;
Asm
push esi
push edi
push ebx
mov edx, hLib
xor eax, eax
test edx, edx
jz @end
mov edi, ProcName
mov ecx, $FFFFFFFF
repne scasb
mov ebx, ecx
not ebx
@next:
mov esi, [edx]
test esi, esi
jz @end
mov ecx, ebx
mov edi, ProcName
add edx, 8
repe cmpsb
jne @next
mov eax, [edx - 4]
@end:
pop ebx
pop edi
pop esi
End;
(* -------------------------------------------------------- *)
Function LoadLibrary(Path: PChar): Pointer;
Asm
push ebx
mov eax, 68
mov ebx, 19
mov ecx, Path
int 64
pop ebx
End;
(* -------------------------------------------------------- *)
End.Spoiler:
Но это только если BOARD открыт перед запуском приложения. А если нет, то pagefault в application. Не исключено, конечно, что в моём коде где-то ошибка.
