paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test

Browse Source
This commit is contained in:
florian 2004-12-19 21:44:27 +00:00
parent 0deca84715
commit 49ef73e24f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test/tstring6.pp
View File

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