Modify DoMem parameter type to SizeUInt and adapt tests using this function, to avoid run time errors with range check

git-svn-id: trunk@38521 -

tests/tbs/tb0239.pp

@@ -9,7 +9,7 @@ uses
 Type
    PS=^String;
 var
-  mem : sizeint;
+  mem : sizeuint;
 
 
 procedure test;

tests/tbs/tb0240.pp

@@ -29,7 +29,7 @@ begin
 end;
 
 var
-   mem : sizeint;
+   mem : sizeuint;
 begin
   DoMem(mem);
   dotest;

tests/test/texception3.pp

@@ -600,7 +600,7 @@ procedure test119;
   end;
 
 var
-  mem : sizeint;
+  mem : sizeuint;
 begin
    writeln('Testing exception handling');
    

tests/test/tobject1.pp

@@ -65,7 +65,7 @@ program test_fail;
     end;
 
   var
-    mem : sizeint;
+    mem : sizeuint;
   begin
      require_error(210);
 

tests/test/tstring4.pp

@@ -120,7 +120,7 @@ end;
 Procedure TestParams;
 
 Var S : AnsiString;
-    Mem : sizeint;
+    Mem : sizeuint;
 
 begin
   Mem:=0;
@@ -317,7 +317,7 @@ Const S1 : AnsiString = 'ABC';
 
 Var I : Integer;
     S3 : AnsiString;
-    mem : sizeint;
+    mem : sizeuint;
 
 begin
  mem:=0;
@@ -362,7 +362,7 @@ Var S,T : AnsiString;
     E : Extended;
     Si : Single;
     Co : Comp;
-    TempMem:sizeint;
+    TempMem:sizeuint;
 begin
   TempMem:=0;
   DoMem(TempMem);
@@ -449,7 +449,7 @@ begin
   Writeln (S);
 end;
 
-Var GlobalStartMem,StartMem : SizeInt;
+Var GlobalStartMem,StartMem : SizeUInt;
 
 begin
   GlobalStartMem:=0;

tests/test/tstring6.pp

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

tests/tstunits/erroru.pp

@@ -10,7 +10,7 @@ interface
 
   procedure require_error(num : longint);
 
-function DoMem (Var StartMem : sizeint): sizeint;
+function DoMem (Var StartMem : sizeuint): sizeuint;
 
 
 implementation

tests/webtbs/tw0812.pp

@@ -10,7 +10,7 @@ begin
   ReAllocMem(P, 0);
 end;
 
-var Mem : sizeint;
+var Mem : sizeuint;
 begin
   domem(mem);
   Test;

tests/webtbs/tw0813.pp

@@ -15,7 +15,7 @@ begin
     end;
 end;
 
-var Mem : sizeint;
+var Mem : sizeuint;
 begin
   domem(mem);
   Test;

tests/webtbs/tw1658.pp

@@ -31,7 +31,7 @@ end;
 // Global vars
 var
   pTempStream: PMyStream;
-  mem : sizeint;
+  mem : sizeuint;
   f : file;
 begin
   DoMem(mem);

tests/webtbs/tw2494.pp

@@ -34,7 +34,7 @@ var p:pointer;
   size, storage : ptruint;
   i,j:longint;
   done:boolean;
-  mem : sizeint;
+  mem : sizeuint;
 begin
   ReturnNilIfGrowHeapFails:=true;
   domem(mem);

tests/webtbs/tw3004.pp

@@ -16,7 +16,7 @@ uses erroru,SysUtils;
 
 procedure p1;
 var
-  i : sizeint;
+  i : sizeuint;
 begin
  i:=0;
  domem(i);

tests/webtbs/tw3334.pp

@@ -20,7 +20,7 @@ begin
 end;
 
 var
- mem : sizeint;
+ mem : sizeuint;
 begin
   domem(mem);
   p1;

tests/webtbs/uw0701d.pp

@@ -7,7 +7,7 @@ unit uw0701d;
 uses erroru;
 
 var
-   startmem : sizeint;
+   startmem : sizeuint;
 
 initialization
    startmem:=0;