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

* Add woNoAsm option

Browse Source 
git-svn-id: trunk@46312 -
This commit is contained in:
michael 2020-08-08 07:56:36 +00:00
parent 15cccf154a
commit 608fded11a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,7 +35,8 @@ type
woAddLineNumber, // Prefix line with generated line numbers in comment woAddLineNumber, // Prefix line with generated line numbers in comment
woAddSourceLineNumber, // Prefix line with original source line numbers (when available) in comment woAddSourceLineNumber, // Prefix line with original source line numbers (when available) in comment
woForwardClasses, // Add forward definitions for all classes woForwardClasses, // Add forward definitions for all classes
woForceOverload // Force 'overload;' on overloads that are not marked as such. woForceOverload, // Force 'overload;' on overloads that are not marked as such.
woNoAsm // Do not allow asm block
); );
TPasWriterOptions = Set of TPasWriterOption; TPasWriterOptions = Set of TPasWriterOption;
@ -842,7 +843,7 @@ begin
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) and Not (woNoAsm in OPtions) then
Add(' assembler;'); Add(' assembler;');
if AProc.CallingConvention<>ccDefault then if AProc.CallingConvention<>ccDefault then
Add(' '+cCallingConventions[AProc.CallingConvention]+';'); Add(' '+cCallingConventions[AProc.CallingConvention]+';');