* fixed test

tests/test/tstring6.pp

@@ -3,7 +3,7 @@ Program widetest;
 
 uses
   erroru;
-  
+
 { -------------------------------------------------------------------
     General stuff
   ------------------------------------------------------------------- }
@@ -117,7 +117,7 @@ end;
 Procedure TestParams;
 
 Var S : WideString;
-    Mem : Longint;
+    Mem : PtrInt;
 
 begin
   Mem:=0;
@@ -315,7 +315,7 @@ Const S1 : WideString = 'ABC';
 
 Var I : Integer;
     S3 : WideString;
-    mem : Longint;
+    mem : PtrInt;
 
 begin
  mem:=0;
@@ -360,7 +360,7 @@ Var S,T : WideString;
     E : Extended;
     Si : Single;
     Co : Comp;
-    TempMem:Longint;
+    TempMem:PtrInt;
 begin
   TempMem:=0;
   DoMem(TempMem);
@@ -447,7 +447,7 @@ begin
   Writeln (S);
 end;
 
-Var GlobalStartMem,StartMem : Longint;
+Var GlobalStartMem,StartMem : PtrInt;
 
 begin
   GlobalStartMem:=0;
@@ -490,4 +490,4 @@ begin
   TestStdfunc;
   Write ('End of standard functions: ');DoMem(StartMem);
   Write ('For the whole program ');DoMem(GlobalStartMem);
-end.
+end.