From 2f59dcd283959c8beb95bf6fc0f2b703a51a5a75 Mon Sep 17 00:00:00 2001 From: mattias Date: Wed, 25 Nov 2009 11:46:36 +0000 Subject: [PATCH] codetools: parsing weakexternal procedure specifier git-svn-id: trunk@22762 - --- components/codetools/keywordfunclists.pas | 1 + components/codetools/pascalparsertool.pas | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/components/codetools/keywordfunclists.pas b/components/codetools/keywordfunclists.pas index cacb0621af..894cf86bf5 100644 --- a/components/codetools/keywordfunclists.pas +++ b/components/codetools/keywordfunclists.pas @@ -818,6 +818,7 @@ begin Add('EXPERIMENTAL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('LIBRARY' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('DEPRECATED' ,{$ifdef FPC}@{$endif}AllwaysTrue); + Add('WEAKEXTERNAL' ,{$ifdef FPC}@{$endif}AllwaysTrue); end; IsKeyWordProcedureTypeSpecifier:=TKeyWordFunctionList.Create; diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas index 197d002cc5..9e0b16cf76 100644 --- a/components/codetools/pascalparsertool.pas +++ b/components/codetools/pascalparsertool.pas @@ -1607,8 +1607,8 @@ begin ReadNextAtom; if not (CurPos.Flag in [cafSemicolon,cafEND]) then ReadConstant(true,false,[]); - end else if UpAtomIs('EXTERNAL') or UpAtomIs('PUBLIC') then begin - HasForwardModifier:=UpAtomIs('EXTERNAL'); + end else if UpAtomIs('EXTERNAL') or UpAtomIs('WEAKEXTERNAL') or UpAtomIs('PUBLIC') then begin + HasForwardModifier:=UpAtomIs('EXTERNAL') or UpAtomIs('WEAKEXTERNAL'); ReadNextAtom; if CurPos.Flag<>cafSemicolon then begin if not UpAtomIs('NAME') then