paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-04 18:17:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'codetools-internproc-add' into 'main'

Browse Source 
Internproc processing added to CodeTools when modeswitch PrefixedAttributes

See merge request freepascal.org/lazarus/lazarus!73
This commit is contained in:
Juha Manninen 2022-02-24 13:17:09 +00:00
commit 62db64ddb8
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/keywordfunclists.pas
View File

@ -929,6 +929,7 @@ begin
Add('FAR' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('FORWARD' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('INLINE' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('INTERNPROC' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('INTERRUPT' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('IOCHECK' ,{$ifdef FPC}@{$endif}AllwaysTrue);
Add('LIBRARY' ,{$ifdef FPC}@{$endif}AllwaysTrue);

5
components/codetools/pascalparsertool.pas
View File

@ -1908,6 +1908,11 @@ begin
SaveRaiseCharExpectedButAtomFound(20170421195502,':');
ReadNextAtom;
ReadConstant(true,false,[]);
end else if UpAtomIs('INTERNPROC') then begin
if not ReadNextAtomIsChar(':') then
SaveRaiseCharExpectedButAtomFound(20210616075400,':');
ReadNextAtom;
ReadConstant(true,false,[]);
end else if UpAtomIs('INTERRUPT') then begin
ReadNextAtom;
end else if UpAtomIs('SYSCALL') then begin