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

* Also use woNoAsm option for procedure body

Browse Source 
git-svn-id: trunk@46313 -
This commit is contained in:
michael 2020-08-08 08:00:15 +00:00
parent 608fded11a
commit e4f38da5bb
1 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -805,6 +805,14 @@ end;
procedure TPasWriter.WriteProcDecl(AProc: TPasProcedure; ForceBody : Boolean = False; NamePrefix : String = ''); procedure TPasWriter.WriteProcDecl(AProc: TPasProcedure; ForceBody : Boolean = False; NamePrefix : String = '');
Procedure EmptyBody;
begin
Addln('');
Addln('begin');
AddLn('end;');
Addln('');
end;
Var Var
AddExternal : boolean; AddExternal : boolean;
IsImpl : Boolean; IsImpl : Boolean;
@ -866,15 +874,14 @@ begin
AddLn; AddLn;
if Assigned(AProc.Body) then if Assigned(AProc.Body) then
WriteProcImpl(AProc.Body,pmAssembler in AProc.Modifiers)
else if ForceBody then
begin begin
Addln(''); if (pmAssembler in AProc.Modifiers) and (woNoAsm in Options) then
Addln('begin'); EmptyBody
AddLn('end;'); else
Addln(''); WriteProcImpl(AProc.Body,pmAssembler in AProc.Modifiers)
end; end
else if ForceBody then
EmptyBody;
end; end;