* Trim param in mode statement (bug 37092)

git-svn-id: trunk@45394 -

packages/fcl-passrc/src/pscanner.pp

@@ -3630,7 +3630,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);