2
0
Эх сурвалжийг харах

* manual fix compile

git-svn-id: branches/fixes_2_2@8474 -
peter 18 жил өмнө
parent
commit
3b54296a57
1 өөрчлөгдсөн 11 нэмэгдсэн , 11 устгасан
  1. 11 11
      rtl/wince/system.pp

+ 11 - 11
rtl/wince/system.pp

@@ -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;