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

Try to ix compilation failures in units/fpcunit directory

Browse Source 
git-svn-id: trunk@40601 -
(cherry picked from commit 430ec7bbe4)
This commit is contained in:
pierre 2018-12-20 22:39:40 +00:00 committed by Pierre Muller
parent 8d3ecbd808
commit 40e5a51937
4 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/units/fpcunit/tcbucketlist.pp
View File

@ -6,7 +6,7 @@ interface
uses
Classes, SysUtils, fpcunit, testutils, testregistry,
BucketList;
contnrs;
type
TMyBucketList = Class(TBucketList)

2
tests/test/units/fpcunit/tccompstreaming.pp
View File

@ -1,5 +1,7 @@
Unit tccompstreaming;
{$mode objfpc}
interface
Uses

4
tests/test/units/fpcunit/tctparser.pp
View File

@ -8,7 +8,7 @@ uses
Classes, SysUtils, fpcunit, testutils, testregistry;
{ TTestToString }
type
TTestToString= class(TTestCase)
private
fStream : TMemoryStream;
@ -908,4 +908,4 @@ initialization
RegisterTests([TTestToString,TTestTokenInt,TTestTokenFloat,TTestSymbol,TTestBinary]);
end.
end.

2
tests/test/units/fpcunit/testcomps.pp
View File

@ -1,5 +1,7 @@
unit testcomps;
{$mode objfpc}
interface
uses classes, sysutils;