paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 01:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: paswrite: more Delphi compatible order for directives.

Browse Source 
git-svn-id: trunk@38019 -
This commit is contained in:
maciej-izak 2018-01-22 13:55:42 +00:00
parent d1bba7ec3d
commit 1c149202d8
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-passrc/src/paswrite.pp
View File

@ -808,6 +808,11 @@ begin
WriteType(TPasFunctionType(AProc.ProcType).ResultEl.ResultType,False); WriteType(TPasFunctionType(AProc.ProcType).ResultEl.ResultType,False);
end; end;
Add(';'); Add(';');
// delphi compatible order for example: procedure foo; reintroduce; overload; static;
if not IsImpl and AProc.IsReintroduced then
Add(' reintroduce;');
if AProc.IsOverload then
Add(' overload;');
if not IsImpl then if not IsImpl then
begin begin
if AProc.IsVirtual then if AProc.IsVirtual then
@ -818,15 +823,11 @@ begin
Add(' abstract;'); Add(' abstract;');
if AProc.IsOverride then if AProc.IsOverride then
Add(' override;'); Add(' override;');
if AProc.IsReintroduced then
Add(' reintroduce;');
if AProc.IsStatic then if AProc.IsStatic then
Add(' static;'); Add(' static;');
end; end;
if pmAssembler in AProc.Modifiers then if pmAssembler in AProc.Modifiers then
Add(' assembler;'); Add(' assembler;');
if AProc.IsOverload then
Add(' overload;');
if AProc.CallingConvention<>ccDefault then if AProc.CallingConvention<>ccDefault then
Add(' '+cCallingConventions[AProc.CallingConvention]+';'); Add(' '+cCallingConventions[AProc.CallingConvention]+';');
If Assigned(AProc.LibraryExpr) or Assigned(AProc.LibrarySymbolName) then If Assigned(AProc.LibraryExpr) or Assigned(AProc.LibrarySymbolName) then