Use SizeInt type for DoMem variable argument, as it might be different from PtrInt, for instance for some msdos memory models

git-svn-id: trunk@34021 -

tests/test/tstring6.pp

@@ -117,7 +117,7 @@ end;
 Procedure TestParams;
 
 Var S : WideString;
-    Mem : PtrInt;
+    Mem : SizeInt;
 
 begin
   Mem:=0;
@@ -315,7 +315,7 @@ Const S1 : WideString = 'ABC';
 
 Var I : Integer;
     S3 : WideString;
-    mem : PtrInt;
+    mem : SizeInt;
 
 begin
  mem:=0;
@@ -360,7 +360,7 @@ Var S,T : WideString;
     E : Extended;
     Si : Single;
     Co : Comp;
-    TempMem:PtrInt;
+    TempMem:SizeInt;
 begin
   TempMem:=0;
   DoMem(TempMem);
@@ -447,7 +447,7 @@ begin
   Writeln (S);
 end;
 
-Var GlobalStartMem,StartMem : PtrInt;
+Var GlobalStartMem,StartMem : SizeInt;
 
 begin
   GlobalStartMem:=0;