paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 11:06:19 +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 uses
erroru; erroru;
{ ------------------------------------------------------------------- { -------------------------------------------------------------------
General stuff General stuff
------------------------------------------------------------------- } ------------------------------------------------------------------- }
@ -117,7 +117,7 @@ end;
Procedure TestParams; Procedure TestParams;
Var S : WideString; Var S : WideString;
Mem : Longint; Mem : PtrInt;
begin begin
Mem:=0; Mem:=0;
@ -315,7 +315,7 @@ Const S1 : WideString = 'ABC';
Var I : Integer; Var I : Integer;
S3 : WideString; S3 : WideString;
mem : Longint; mem : PtrInt;
begin begin
mem:=0; mem:=0;
@ -360,7 +360,7 @@ Var S,T : WideString;
E : Extended; E : Extended;
Si : Single; Si : Single;
Co : Comp; Co : Comp;
TempMem:Longint; TempMem:PtrInt;
begin begin
TempMem:=0; TempMem:=0;
DoMem(TempMem); DoMem(TempMem);
@ -447,7 +447,7 @@ begin
Writeln (S); Writeln (S);
end; end;
Var GlobalStartMem,StartMem : Longint; Var GlobalStartMem,StartMem : PtrInt;
begin begin
GlobalStartMem:=0; GlobalStartMem:=0;
@ -490,4 +490,4 @@ begin
TestStdfunc; TestStdfunc;
Write ('End of standard functions: ');DoMem(StartMem); Write ('End of standard functions: ');DoMem(StartMem);
Write ('For the whole program ');DoMem(GlobalStartMem); Write ('For the whole program ');DoMem(GlobalStartMem);
end. end.