paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:09:33 +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

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

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