paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add woAlwaysRecordHelper option

Browse Source 
git-svn-id: trunk@46318 -
This commit is contained in:
michael 2020-08-08 09:08:44 +00:00
parent 99551dc6b2
commit 67f5cc1003
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,7 +37,8 @@ type
woForwardClasses, // Add forward definitions for all classes
woForceOverload, // Force 'overload;' on overloads that are not marked as such.
woNoAsm, // Do not allow asm block
woSkipPrivateExternals
woSkipPrivateExternals, // Skip generation of external procedure declaration in implementation section
woAlwaysRecordHelper // Force use of record helper for type helper
);
TPasWriterOptions = Set of TPasWriterOption;
@ -624,6 +625,11 @@ begin
okObject: Add('object');
okClass: Add('class');
okInterface: Add('interface');
okTypeHelper :
if HasOption(woAlwaysRecordHelper) then
Add('record helper')
else
Add('type helper');
okRecordHelper: Add('record helper');
okClassHelper: Add('class helper');
end;