* Trim content of directives

git-svn-id: trunk@45459 -

packages/fcl-passrc/src/pscanner.pp

@@ -3969,6 +3969,7 @@ begin
     if not Handled then
       begin
       Handled:=true;
+      Param:=Trim(Param);
       Case UpperCase(Directive) of
         'ASSERTIONS':
           DoBoolDirective(bsAssertions);
@@ -4083,6 +4084,7 @@ procedure TPascalScanner.HandleBoolDirective(bs: TBoolSwitch;
   const Param: String);
 var
   NewValue: Boolean;
+  
 begin
   if CompareText(Param,'on')=0 then
     NewValue:=true

packages/fcl-passrc/tests/tcscanner.pas

@@ -249,6 +249,7 @@ type
     Procedure TestModeSwitch;
     Procedure TestOperatorIdentifier;
     Procedure TestUTF8BOM;
+    Procedure TestBooleanSwitch;
   end;
 
 implementation
@@ -1771,6 +1772,16 @@ begin
   DoTestToken(tkLineEnding,#$EF+#$BB+#$BF);
 end;
 
+Procedure TTestScanner.TestBooleanSwitch;
+
+begin
+  Scanner.CurrentBoolSwitches:=[bsHints];
+  // end space intentional.
+  NewSource('{$HINTS OFF }');
+  While not (Scanner.FetchToken=tkEOF) do;
+  AssertFalse('Hints off',bshints in Scanner.CurrentBoolSwitches);
+end;
+
 initialization
   RegisterTests([TTestTokenFinder,TTestStreamLineReader,TTestScanner]);
 end.