paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 11:09:19 +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; op:=A_AND;
mboverflow:=false; mboverflow:=false;
unsigned:=false; unsigned:=false;
{$IfNDef NoSetConstNot} If (not (nf_swaped in flags)) and
If (right.nodetype = setconstn) then (right.nodetype = setconstn) then
right.location.reference.offset := not(right.location.reference.offset) 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 Else
{$EndIf NoNosetConstNot}
extra_not:=true; extra_not:=true;
end end
else else
@ -2283,7 +2285,10 @@ begin
end. end.
{ {
$Log$ $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) * -Ur switch (merged)
* masm fixes (merged) * masm fixes (merged)
* quoted filenames for go32v2 and win32 * quoted filenames for go32v2 and win32