paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-05 18:50:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions r42899 from trunk:

Browse Source 
------------------------------------------------------------------------
    r42899 | michael | 2019-09-02 09:22:01 +0200 (Mon, 02 Sep 2019) | 1 line
    
    * Fix some warnings/hints
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43270 -
This commit is contained in:
michael 2019-10-20 08:11:43 +00:00
parent af8e4a77bd
commit 3fed351374
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-base/tests/tccsvreadwrite.pp
View File

@ -5,7 +5,7 @@ unit tccsvreadwrite;
interface
uses
Classes, SysUtils, fpcunit, testutils, testregistry, csvreadwrite;
Classes, SysUtils, fpcunit, testregistry, csvreadwrite;
type
@ -102,7 +102,7 @@ end;
procedure TTestCSVReadWrite.SetUp;
begin
FParser:=TCSVParser.Create;
FData:=Tstrings.Create;
FData:=TStringList.Create;
end;
procedure TTestCSVReadWrite.TearDown;

2
packages/fcl-base/tests/testexprpars.pp
View File

@ -5127,6 +5127,7 @@ Var
Res : TFPExpressioNResult;
begin
Res:=Default(TFPExpressioNResult);
AssertEquals('Only one identifier',1,FP.Identifiers.Count);
Case FAccessAs of
rtBoolean : FP.Identifiers[0].AsBoolean:=res.ResBoolean;
@ -6738,6 +6739,7 @@ Var
I : Integer;
begin
Result:=Default(TExprArgumentArray);
SetLength(Result,High(Args)-Low(Args)+1);
For I:=Low(Args) to High(Args) do
Result[I]:=Args[i].VObject as TFPExprNode;