fcl-passrc: fixed $warn identifier error

git-svn-id: trunk@41527 -

packages/fcl-passrc/src/pscanner.pp

@@ -3271,10 +3271,8 @@ begin
       DoLog(mtWarning,nIllegalStateForWarnDirective,SIllegalStateForWarnDirective,[Identifier]);
       exit;
       end;
-    end;
-
-  if Number>=0 then
     SetWarnMsgState(Number,State);
+    end;
 end;
 
 procedure TPascalScanner.HandleDefine(Param: String);