paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 14:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation after last commit

Browse Source
This commit is contained in:
Jonas Maebe 2021-04-10 10:56:02 +00:00 committed by florian
parent 1b8fc23dfd
commit 3795cadbc8
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/nx86add.pas
View File

@ -96,7 +96,11 @@ unit nx86add;
overflowcheck: boolean; overflowcheck: boolean;
comparison: boolean; comparison: boolean;
begin begin
overflowcheck:=needoverflowcheck; overflowcheck:=(cs_check_overflow in current_settings.localswitches) and
(left.resultdef.typ<>pointerdef) and
(right.resultdef.typ<>pointerdef) and
not(nf_internal in flags);
comparison:= comparison:=
(op=A_CMP) or (op=A_TEST) or (op=A_BT) or is_boolean(resultdef); (op=A_CMP) or (op=A_TEST) or (op=A_BT) or is_boolean(resultdef);