rpms/fpc
3
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

- Added forgotton file

Browse Source
This commit is contained in:
Joost van der Sluis 2010-10-23 22:40:10 +02:00
parent d7cfaeb387
commit 9c61cde2e7
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
fpc-2.4.2-r16198.patch Normal file
View File

@ -0,0 +1,22 @@
Index: packages/fcl-passrc/src/pparser.pp
===================================================================
--- fpcsrc/packages/fcl-passrc/src/pparser.pp (revision 16197)
+++ fpcsrc/packages/fcl-passrc/src/pparser.pp (revision 16198)
@@ -119,7 +119,7 @@
AParent: TPasElement): TPasElement;overload;
function CreateElement(AClass: TPTreeElement; const AName: String;
AParent: TPasElement; AVisibility: TPasMemberVisibility): TPasElement;overload;
- Function IsHint(Const S : String; AHint : TPasMemberHint) : Boolean;
+ Function IsHint(Const S : String; var AHint : TPasMemberHint) : Boolean;
Function CheckHint(Element : TPasElement; ExpectSemiColon : Boolean) : TPasMemberHints;
public
Options : set of TPOptions;
@@ -334,7 +334,7 @@
Result:=ParseType(Parent,'');
end;
-Function TPasParser.IsHint(Const S : String; AHint : TPasMemberHint) : Boolean;
+Function TPasParser.IsHint(Const S : String; var AHint : TPasMemberHint) : Boolean;
Var
T : string;