Browse Source

pastojs: filer: ignore old modeswitch ignoreinterfaces

git-svn-id: trunk@38707 -
Mattias Gaertner 7 years ago
parent
commit
b2d4ca52c2
2 changed files with 7 additions and 1 deletions
  1. 1 0
      packages/fcl-passrc/tests/tcresolver.pas
  2. 6 1
      packages/pastojs/src/pas2jsfiler.pp

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

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

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

@@ -4775,7 +4775,12 @@ begin
         break;
         break;
         end;
         end;
     if not Found then
     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;
 end;
 end;