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

codetools: procedure modifier deprecated

Browse Source 
git-svn-id: trunk@22471 -
This commit is contained in:
mattias 2009-11-07 12:52:44 +00:00
parent aec217654e
commit dffcbd97cc
3 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/keywordfunclists.pas
View File

@ -779,6 +779,7 @@ begin
Add('LIBRARY' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('LIBRARY' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('FINAL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('FINAL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('ENUMERATOR' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('ENUMERATOR' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('DEPRECATED' ,{$ifdef FPC}@{$endif}AllwaysTrue);
end; end;
IsKeyWordProcedureSpecifier:=TKeyWordFunctionList.Create; IsKeyWordProcedureSpecifier:=TKeyWordFunctionList.Create;
@ -815,6 +816,7 @@ begin
Add('ALIAS' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('ALIAS' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('EXPERIMENTAL' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('EXPERIMENTAL' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('LIBRARY' ,{$ifdef FPC}@{$endif}AllwaysTrue); Add('LIBRARY' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('DEPRECATED' ,{$ifdef FPC}@{$endif}AllwaysTrue);
end; end;
IsKeyWordProcedureTypeSpecifier:=TKeyWordFunctionList.Create; IsKeyWordProcedureTypeSpecifier:=TKeyWordFunctionList.Create;

1
components/codetools/pascalparsertool.pas
View File

@ -1593,6 +1593,7 @@ begin
if IsSpecifier then begin if IsSpecifier then begin
// read specifier // read specifier
if UpAtomIs('MESSAGE') or UpAtomIs('DISPID') or UpAtomIs('ENUMERATOR') if UpAtomIs('MESSAGE') or UpAtomIs('DISPID') or UpAtomIs('ENUMERATOR')
or UpAtomIs('DEPRECATED')
then begin then begin
ReadNextAtom; ReadNextAtom;
ReadConstant(true,false,[]); ReadConstant(true,false,[]);

2
lcl/lclproc.pas
View File

@ -3652,7 +3652,7 @@ begin
end end
else if ((ord(p^) and %11100000) = %11000000) then begin else if ((ord(p^) and %11100000) = %11000000) then begin
// could be 2 byte character // could be 2 byte character
if (ord(p[1]) and %11000000) = %10000000 then if (Count) (ord(p[1]) and %11000000) = %10000000 then
CharLen:=2 CharLen:=2
else else
exit; // missing following bytes exit; // missing following bytes