Куча в KolibriOS (Страница 1 из 4)

align 16
;**********************************************************************************
VirtualAlloc: ;////////////////////////////////////////////////////////////////////
;**********************************************************************************
%define lpAddress             [esp +  4 +1*4]
%define dwSize                [esp +  8 +1*4]
%define flAllocationType      [esp + 12 +1*4]
%define flProtect             [esp + 16 +1*4]
        push   ebx

        mov    eax, 68
        mov    ebx, 12
        mov    ecx, dwSize
        int    64

        pop    ebx
        ret    16
%undef lpAddress
%undef dwSize
%undef flAllocationType
%undef flProtect
align 16
;**********************************************************************************
VirtualFree: ;/////////////////////////////////////////////////////////////////////
;**********************************************************************************
%define lpAddress             [esp +  4 +1*4]
%define dwSize                [esp +  8 +1*4]
%define dwFreeType            [esp + 12 +1*4]
        push   ebx

        mov    eax, 68
        mov    ebx, 13
        mov    ecx, lpAddress
        int    64

        pop    ebx
        ret    12
%undef lpAddress
%undef dwSize
%undef dwFreeType

        {Get the VM status for the pointer}
        LMemInfo.RegionSize := 0;
        VirtualQuery(APAddress,  LMemInfo, SizeOf(LMemInfo));
      end;
      {Check the readability of the memory address}
      Result := (LMemInfo.RegionSize >= 4)
        and (LMemInfo.State = MEM_COMMIT)
        and (LMemInfo.Protect and (PAGE_READONLY or PAGE_READWRITE or PAGE_EXECUTE or PAGE_EXECUTE_READ or PAGE_EXECUTE_READWRITE or PAGE_EXECUTE_WRITECOPY) <> 0)
and (LMemInfo.Protect and PAGE_GUARD = 0);

        {Get the size of the current segment}
        VirtualQuery(LCurrentSegment, LMemInfo, SizeOf(LMemInfo));
        {Free the segment}
        if not VirtualFree(LCurrentSegment, 0, MEM_RELEASE) then
        begin
          Result := -1;
          Break;
        end;
        {Done?}
if NativeUInt(LMemInfo.RegionSize) >= LRemainingSize then

{$ifndef POSIX}

{$else}
begin
  {Not currently supported under Linux / OS X}
Result := nil;

align 16
;**********************************************************************************
ExitThread: ;//////////////////////////////////////////////////////////////////////
;**********************************************************************************
        mov    eax, -1
        int    64
        ; ret not need
align 16
;**********************************************************************************
ExitProcess: ;/////////////////////////////////////////////////////////////////////
;**********************************************************************************
; actually need to exit ALL threads of process
        mov    eax, -1
        int    64
        ; ret not need