Explorar el Código

* Merging revisions r45394 from trunk:
------------------------------------------------------------------------
r45394 | michael | 2020-05-17 09:42:23 +0200 (Sun, 17 May 2020) | 1 line

* Trim param in mode statement (bug 37092)
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46643 -

michael hace 5 años
padre
commit
fc661e0d02
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  1. 1 1
      packages/fcl-passrc/src/pscanner.pp

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

@@ -3632,7 +3632,7 @@ begin
     DoLog(mtWarning,nMisplacedGlobalCompilerSwitch,SMisplacedGlobalCompilerSwitch,[]);
     exit;
     end;
-  P:=UpperCase(Param);
+  P:=Trim(UpperCase(Param));
   Case P of
   'FPC','DEFAULT':
     SetMode(msFpc,FPCModeSwitches,false,bsFPCMode);