paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-18 21:59:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed pasring GUID with constant

Browse Source 
git-svn-id: trunk@5192 -
This commit is contained in:
mattias 2004-02-10 13:54:30 +00:00
parent ed1cc49f8b
commit 7442adb9ae
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/codetools/pascalparsertool.pas
View File

@ -173,11 +173,11 @@ type
function ReadTilProcedureHeadEnd(ParseAttr: TParseProcHeadAttributes;
var HasForwardModifier: boolean): boolean;
function ReadConstant(ExceptionOnError, Extract: boolean;
Attr: TProcHeadAttributes): boolean;
const Attr: TProcHeadAttributes): boolean;
function ReadParamType(ExceptionOnError, Extract: boolean;
Attr: TProcHeadAttributes): boolean;
const Attr: TProcHeadAttributes): boolean;
function ReadParamList(ExceptionOnError, Extract: boolean;
Attr: TProcHeadAttributes): boolean;
const Attr: TProcHeadAttributes): boolean;
function ReadUsesSection(ExceptionOnError: boolean): boolean;
function ReadSubRange(ExceptionOnError: boolean): boolean;
function ReadTilBlockEnd(StopOnBlockMiddlePart,
@ -948,7 +948,7 @@ begin
end;
function TPascalParserTool.ReadParamList(ExceptionOnError, Extract: boolean;
Attr: TProcHeadAttributes): boolean;
const Attr: TProcHeadAttributes): boolean;
var CloseBracket: char;
Desc: TCodeTreeNodeDesc;
Node: TCodeTreeNode;
@ -1091,7 +1091,7 @@ begin
end;
function TPascalParserTool.ReadParamType(ExceptionOnError, Extract: boolean;
Attr: TProcHeadAttributes): boolean;
const Attr: TProcHeadAttributes): boolean;
var
copying: boolean;
begin
@ -1370,7 +1370,7 @@ begin
end;
function TPascalParserTool.ReadConstant(ExceptionOnError, Extract: boolean;
Attr: TProcHeadAttributes): boolean;
const Attr: TProcHeadAttributes): boolean;
// after reading, the CurPos will be on the atom after the constant
var
BracketType: TCommonAtomFlag;
@ -3423,7 +3423,7 @@ begin
CurNode.Desc:=ctnClassGUID;
// read GUID
ReadNextAtom;
if not AtomIsStringConstant then
if (not AtomIsStringConstant) and (not AtomIsIdentifier(false)) then
RaiseStringConstantExpected;
ReadNextAtom;
if CurPos.Flag<>cafEdgedBracketClose then