|
@@ -342,12 +342,16 @@ begin
|
|
result.overflow:=false;
|
|
result.overflow:=false;
|
|
sa:=a.signed and (a.svalue<0);
|
|
sa:=a.signed and (a.svalue<0);
|
|
if sa then
|
|
if sa then
|
|
|
|
+ {$Q-}
|
|
aa:=qword(-a.svalue)
|
|
aa:=qword(-a.svalue)
|
|
|
|
+ {$ifdef ena_q}{$Q+}{$endif}
|
|
else
|
|
else
|
|
aa:=a.uvalue;
|
|
aa:=a.uvalue;
|
|
sb:=b.signed and (b.svalue<0);
|
|
sb:=b.signed and (b.svalue<0);
|
|
if sb then
|
|
if sb then
|
|
|
|
+ {$Q-}
|
|
bb:=qword(-b.svalue)
|
|
bb:=qword(-b.svalue)
|
|
|
|
+ {$ifdef ena_q}{$Q+}{$endif}
|
|
else
|
|
else
|
|
bb:=b.uvalue;
|
|
bb:=b.uvalue;
|
|
|
|
|