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

* Added additional constants for enumerated, fix build

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-02-08 15:48:35 +01:00 committed by Pierre Muller
parent a5995237cf
commit fb056e10ef
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/pastojs/src/pas2jsfiler.pp
View File

@ -138,7 +138,9 @@ const
'StopOnUnitInterface', 'StopOnUnitInterface',
'IgnoreUnknownResource', 'IgnoreUnknownResource',
'AsyncProcs', 'AsyncProcs',
'DisableResources'); 'DisableResources',
'po_AsmPascalComments',
'AllowMem' );
PCUDefaultModeSwitches: TModeSwitches = [ PCUDefaultModeSwitches: TModeSwitches = [
msObjfpc, msObjfpc,
@ -327,7 +329,8 @@ const
'Public', 'Public',
'Export', 'Export',
'Class', 'Class',
'Static' 'Static',
'Far'
); );
PCUDefaultExprKind = pekIdent; PCUDefaultExprKind = pekIdent;
@ -523,7 +526,11 @@ const
'NoReturn', 'NoReturn',
'Far', 'Far',
'Final', 'Final',
'DiscardResult' 'DiscardResult',
'NoStackFrame',
'section',
'RtlProc',
'InternProc'
); );
PCUProcedureModifiersImplProc = [pmInline,pmAssembler,pmCompilerProc,pmNoReturn]; PCUProcedureModifiersImplProc = [pmInline,pmAssembler,pmCompilerProc,pmNoReturn];