fcl-passrc: nicer warning on readonly letter switch

git-svn-id: trunk@39127 -

packages/fcl-passrc/src/pscanner.pp

@@ -3220,7 +3220,7 @@ begin
     if bs in FReadOnlyBoolSwitches then
       begin
       DoLog(mtWarning,nWarnIllegalCompilerDirectiveX,sWarnIllegalCompilerDirectiveX,
-        [Letter]);
+        [Letter+BoolToStr(Enable,'+','-')]);
       exit;
       end;
     if Enable then