paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 06:09:22 +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 uses
Classes, SysUtils, fpcunit, testutils, testregistry, Classes, SysUtils, fpcunit, testutils, testregistry,
BucketList; contnrs;
type type
TMyBucketList = Class(TBucketList) TMyBucketList = Class(TBucketList)

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

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

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

@ -8,7 +8,7 @@ uses
Classes, SysUtils, fpcunit, testutils, testregistry; Classes, SysUtils, fpcunit, testutils, testregistry;
{ TTestToString } { TTestToString }
type
TTestToString= class(TTestCase) TTestToString= class(TTestCase)
private private
fStream : TMemoryStream; fStream : TMemoryStream;

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

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