paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 18:29:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Partial fix for bug report 22744

Browse Source 
git-svn-id: trunk@22265 -
This commit is contained in:
pierre 2012-08-29 14:35:06 +00:00
parent 3c96d89a6b
commit c501e6db5f
1 changed files with 5 additions and 1 deletions

6
compiler/scandir.pas
View File

@ -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;