|
@@ -174,7 +174,7 @@ function ui64tod(i : qword) : double; compilerproc;
|
|
|
|
|
|
function i64tod(i : int64) : double; compilerproc;
|
|
|
cdecl;external 'coredll' name '__i64tod';
|
|
|
-
|
|
|
+
|
|
|
function utos(i : dword) : single; compilerproc;
|
|
|
cdecl;external 'coredll' name '__utos';
|
|
|
|
|
@@ -1589,43 +1589,43 @@ procedure InitWinCEWidestrings;
|
|
|
Memory manager
|
|
|
****************************************************************************}
|
|
|
|
|
|
-function malloc(Size : ptruint) : Pointer; cdecl; external 'coredll';
|
|
|
+function malloc(Size : ptrint) : Pointer; cdecl; external 'coredll';
|
|
|
procedure free(P : pointer); cdecl; external 'coredll';
|
|
|
-function realloc(P : Pointer; Size : ptruint) : pointer; cdecl; external 'coredll';
|
|
|
-function _msize(P : pointer): ptruint; cdecl; external 'coredll';
|
|
|
+function realloc(P : Pointer; Size : ptrint) : pointer; cdecl; external 'coredll';
|
|
|
+function _msize(P : pointer): ptrint; cdecl; external 'coredll';
|
|
|
|
|
|
-function SysGetMem (Size : ptruint) : Pointer;
|
|
|
+function SysGetMem (Size : ptrint) : Pointer;
|
|
|
begin
|
|
|
Result:=malloc(Size);
|
|
|
end;
|
|
|
|
|
|
-Function SysFreeMem (P : pointer) : ptruint;
|
|
|
+Function SysFreeMem (P : pointer) : ptrint;
|
|
|
begin
|
|
|
free(P);
|
|
|
Result:=0;
|
|
|
end;
|
|
|
|
|
|
-Function SysFreeMemSize(p:pointer;Size:ptruint):ptruint;
|
|
|
+Function SysFreeMemSize(p:pointer;Size:ptrint):ptrint;
|
|
|
begin
|
|
|
Result:=0;
|
|
|
if (size > 0) and (p <> nil) then
|
|
|
Result:=SysFreeMem(P);
|
|
|
end;
|
|
|
|
|
|
-Function SysAllocMem(Size : ptruint) : Pointer;
|
|
|
+Function SysAllocMem(Size : ptrint) : Pointer;
|
|
|
begin
|
|
|
Result:=SysGetMem(Size);
|
|
|
if Result <> nil then
|
|
|
FillChar(Result^, Size, 0);
|
|
|
end;
|
|
|
|
|
|
-Function SysReAllocMem (var p:pointer;Size:ptruint):Pointer;
|
|
|
+Function SysReAllocMem (var p:pointer;Size:ptrint):Pointer;
|
|
|
begin
|
|
|
Result:=realloc(p, Size);
|
|
|
p:=Result;
|
|
|
end;
|
|
|
|
|
|
-function SysTryResizeMem(var p:pointer;size : ptruint):boolean;
|
|
|
+function SysTryResizeMem(var p:pointer;size : ptrint):boolean;
|
|
|
var
|
|
|
res: pointer;
|
|
|
begin
|
|
@@ -1635,7 +1635,7 @@ begin
|
|
|
p:=res;
|
|
|
end;
|
|
|
|
|
|
-function SysMemSize(P : pointer): ptruint;
|
|
|
+function SysMemSize(P : pointer): ptrint;
|
|
|
begin
|
|
|
Result:=_msize(P);
|
|
|
end;
|