Partial fix for bug report 22744

git-svn-id: trunk@22265 -

compiler/scandir.pas

@@ -986,7 +986,11 @@ unit scandir;
       { Reset verbosity and forget previous pmeesage }
       RestoreLocalVerbosity(nil);
       current_settings.pmessage:=nil;
-      flushpendingswitchesstate;
+      { Do not yet activate these changes, as otherwise
+        you get problem idf you put a $pop just right after
+        a addition for instance fro which you explicitly truned the overflow check
+        out by using $Q- after a $push PM 2012-08-29 }
+      // flushpendingswitchesstate;
     end;
 
     procedure dir_pointermath;