paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 11:20:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Uncommented some extra tests

Browse Source 
git-svn-id: trunk@19664 -
This commit is contained in:
michael 2011-11-20 22:49:14 +00:00
parent c9cd1079d4
commit ce1133febb
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-passrc/examples/testunit1.pp
View File

@ -12,7 +12,7 @@ interface
uses
SysUtils,Classes;
(*
resourcestring
SParserErrorAtToken = 'parser error at token';
@ -26,7 +26,6 @@ resourcestring
ARecordConst: TMethod=(Code:nil;Data:nil);
ASetConst=[true,false];
ADeprecatedConst=1 deprecated;
*)
Type
TLineEndStr = string [3];
@ -236,7 +235,7 @@ var
Procedure externalnameProc; external name 'aname';
Procedure externallibnameProc; external 'alibrary' name 'aname';
Function hi(q : QWord) : DWord; [INTERNPROC: fpc_in_hi_qword];
(*
Type
generic TFPGListEnumerator<T> = class(TObject)
@ -246,7 +245,7 @@ Type
function GetCurrent: T;
end;
TFPGListEnumeratorSpec = specialize TFPGListEnumerator<TPasFunctionType>;
*)
Implementation