Ver Fonte

pastojs: filer: ignore old modeswitch ignoreinterfaces

git-svn-id: trunk@38707 -
Mattias Gaertner há 7 anos atrás
pai
commit
b2d4ca52c2

+ 1 - 0
packages/fcl-passrc/tests/tcresolver.pas

@@ -3658,6 +3658,7 @@ begin
   '  {$scopedenums on}',
   '  TEnum = (red, green);',
   '  TFlags = set of (red,blue);',
+  '  ',
   'var e: TEnum;',
   '  f: TFlags;',
   'begin',

+ 6 - 1
packages/pastojs/src/pas2jsfiler.pp

@@ -4775,7 +4775,12 @@ begin
         break;
         end;
     if not Found then
-      RaiseMsg(20180202144054,El,'unknown ModeSwitch "'+s+'"');
+      begin
+      if (FileVersion<2) and (SameText(s,'ignoreinterfaces')) then
+        // ignore old switch
+      else
+        RaiseMsg(20180202144054,El,'unknown ModeSwitch "'+s+'"');
+      end;
     end;
 end;