Browse Source

* Added additional constants for enumerated, fix build

Michaël Van Canneyt 2 years ago
parent
commit
910fc7215d
1 changed files with 10 additions and 3 deletions
  1. 10 3
      packages/pastojs/src/pas2jsfiler.pp

+ 10 - 3
packages/pastojs/src/pas2jsfiler.pp

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