ソースを参照

* the "otherwise" clause is in fact allowed in ISO Extended Pascal (see 6.1.2 and 6.9.3.5 of ISO 10206)

git-svn-id: trunk@47596 -
(cherry picked from commit 3d7c9690e0f74e9b962adb4f24716c2115c31a12)
svenbarth 4 年 前
コミット
91b6e8b9e9
1 ファイル変更1 行追加1 行削除
  1. 1 1
      packages/fcl-passrc/src/pscanner.pp

+ 1 - 1
packages/fcl-passrc/src/pscanner.pp

@@ -3798,7 +3798,7 @@ begin
   'ISO':
   'ISO':
     SetMode(msIso,ISOModeSwitches,false,[],[],false);
     SetMode(msIso,ISOModeSwitches,false,[],[],false);
   'EXTENDEDPASCAL':
   'EXTENDEDPASCAL':
-    SetMode(msExtpas,ExtPasModeSwitches,false,[],[],false);
+    SetMode(msExtpas,ExtPasModeSwitches,false);
   'GPC':
   'GPC':
     SetMode(msGPC,GPCModeSwitches,false);
     SetMode(msGPC,GPCModeSwitches,false);
   else
   else