|
@@ -17,13 +17,15 @@
|
|
OS Memory allocation / deallocation
|
|
OS Memory allocation / deallocation
|
|
****************************************************************************}
|
|
****************************************************************************}
|
|
|
|
|
|
|
|
+
|
|
function SysOSAlloc(size: ptruint): pointer;
|
|
function SysOSAlloc(size: ptruint): pointer;
|
|
begin
|
|
begin
|
|
- Result:=nil;
|
|
|
|
|
|
+ Result:=gemdos_malloc(size);
|
|
end;
|
|
end;
|
|
|
|
|
|
{$define HAS_SYSOSFREE}
|
|
{$define HAS_SYSOSFREE}
|
|
|
|
|
|
procedure SysOSFree(p: pointer; size: ptruint);
|
|
procedure SysOSFree(p: pointer; size: ptruint);
|
|
begin
|
|
begin
|
|
|
|
+ gemdos_free(p);
|
|
end;
|
|
end;
|