paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 23:49:45 +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

6
compiler/x86/nx86add.pas
View File

@ -96,7 +96,11 @@ unit nx86add;
overflowcheck: boolean;
comparison: boolean;
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:=
(op=A_CMP) or (op=A_TEST) or (op=A_BT) or is_boolean(resultdef);