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

* fixed set bug discovered by Carl (merged)

Browse Source
This commit is contained in:
Jonas Maebe 2001-06-25 14:11:37 +00:00
parent c61fb3ff07
commit fa05db818d
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/i386/n386add.pas
View File

@ -1046,11 +1046,13 @@ interface
op:=A_AND;
mboverflow:=false;
unsigned:=false;
{$IfNDef NoSetConstNot}
If (right.nodetype = setconstn) then
If (not (nf_swaped in flags)) and
(right.nodetype = setconstn) then
right.location.reference.offset := not(right.location.reference.offset)
Else If (nf_swaped in flags) and
(left.nodetype = setconstn) then
left.location.reference.offset := not(left.location.reference.offset)
Else
{$EndIf NoNosetConstNot}
extra_not:=true;
end
else
@ -2283,7 +2285,10 @@ begin
end.
{
$Log$
Revision 1.14 2001-06-18 20:36:25 peter
Revision 1.15 2001-06-25 14:11:37 jonas
* fixed set bug discovered by Carl (merged)
Revision 1.14 2001/06/18 20:36:25 peter
* -Ur switch (merged)
* masm fixes (merged)
* quoted filenames for go32v2 and win32