paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 07:03:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix problem when modifying several local switches in a row

Browse Source
This commit is contained in:
pierre 2000-05-09 21:31:50 +00:00
parent 023e8976a4
commit 1d982ffbf6
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/scandir.inc
View File

@ -587,10 +587,12 @@ const
state:=current_scanner^.readstate;
if (sw<>cs_localnone) and (state in ['-','+']) then
begin
if not localswitcheschanged then
nextaktlocalswitches:=aktlocalswitches;
if state='-' then
nextaktlocalswitches:=aktlocalswitches-[sw]
nextaktlocalswitches:=nextaktlocalswitches-[sw]
else
nextaktlocalswitches:=aktlocalswitches+[sw];
nextaktlocalswitches:=nextaktlocalswitches+[sw];
localswitcheschanged:=true;
end;
end;
@ -1333,7 +1335,10 @@ const
{
$Log$
Revision 1.79 2000-05-03 14:36:58 pierre
Revision 1.80 2000-05-09 21:31:50 pierre
* fix problem when modifying several local switches in a row
Revision 1.79 2000/05/03 14:36:58 pierre
* fix for tests/test/testrang.pp bug
Revision 1.78 2000/04/14 11:16:10 pierre

11
compiler/switches.pas
View File

@ -89,10 +89,12 @@ begin
illegalsw : Message1(scan_w_illegal_switch,'$'+switch);
unsupportedsw : Message1(scan_w_unsupported_switch,'$'+switch);
localsw : begin
if not localswitcheschanged then
nextaktlocalswitches:=aktlocalswitches;
if state='+' then
nextaktlocalswitches:=aktlocalswitches+[tlocalswitch(setsw)]
nextaktlocalswitches:=nextaktlocalswitches+[tlocalswitch(setsw)]
else
nextaktlocalswitches:=aktlocalswitches-[tlocalswitch(setsw)];
nextaktlocalswitches:=nextaktlocalswitches-[tlocalswitch(setsw)];
localswitcheschanged:=true;
{ Message for linux which has global checking only }
if (switch='S') and (
@ -172,7 +174,10 @@ end;
end.
{
$Log$
Revision 1.27 2000-05-03 14:36:58 pierre
Revision 1.28 2000-05-09 21:31:50 pierre
* fix problem when modifying several local switches in a row
Revision 1.27 2000/05/03 14:36:58 pierre
* fix for tests/test/testrang.pp bug
Revision 1.26 2000/02/09 13:23:04 peter