Ver Fonte

* pass the overflow check flag correctly to the 32 and 16-bit mul helpers (on
i8086 and AVR) according to whether overflow checking is enabled (instead of
always passing 'false')

git-svn-id: trunk@26445 -

nickysn há 11 anos atrás
pai
commit
aec73bce68
1 ficheiros alterados com 1 adições e 1 exclusões
  1. 1 1
      compiler/nadd.pas

+ 1 - 1
compiler/nadd.pas

@@ -2933,7 +2933,7 @@ implementation
                          internalerror(2011022301);
                          internalerror(2011022301);
                      end;
                      end;
                      result := ccallnode.createintern(procname,
                      result := ccallnode.createintern(procname,
-                       ccallparanode.create(cordconstnode.create(0,pasbool8type,false),
+                       ccallparanode.create(cordconstnode.create(ord(cs_check_overflow in current_settings.localswitches),pasbool8type,false),
                        ccallparanode.create(right,
                        ccallparanode.create(right,
                        ccallparanode.create(left,nil))));
                        ccallparanode.create(left,nil))));
                      left := nil;
                      left := nil;