Procházet zdrojové kódy

+ insert type conversion for the div result when cpuneedsdiv32helper is used

git-svn-id: branches/i8086@23879 -
nickysn před 12 roky
rodič
revize
a9640ad9c6
1 změnil soubory, kde provedl 7 přidání a 0 odebrání
  1. 7 0
      compiler/nmat.pas

+ 7 - 0
compiler/nmat.pas

@@ -433,6 +433,13 @@ implementation
         left := nil;
         right := nil;
         firstpass(result);
+
+        if result.resultdef.typ<>orddef then
+          internalerror(2013031701);
+        if resultdef.typ<>orddef then
+          internalerror(2013031701);
+        if torddef(result.resultdef).ordtype <> torddef(resultdef).ordtype then
+          inserttypeconv(result,resultdef);
       end;
 {$else cpuneedsdiv32helper}
       begin