From 3d7c9690e0f74e9b962adb4f24716c2115c31a12 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Wed, 25 Nov 2020 22:48:48 +0000 Subject: [PATCH] * 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 - --- packages/fcl-passrc/src/pscanner.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/fcl-passrc/src/pscanner.pp b/packages/fcl-passrc/src/pscanner.pp index c61e87086b..a25357f3f4 100644 --- a/packages/fcl-passrc/src/pscanner.pp +++ b/packages/fcl-passrc/src/pscanner.pp @@ -3798,7 +3798,7 @@ begin 'ISO': SetMode(msIso,ISOModeSwitches,false,[],[],false); 'EXTENDEDPASCAL': - SetMode(msExtpas,ExtPasModeSwitches,false,[],[],false); + SetMode(msExtpas,ExtPasModeSwitches,false); 'GPC': SetMode(msGPC,GPCModeSwitches,false); else