Forráskód Böngészése

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

git-svn-id: branches/i8086@23879 -
nickysn 12 éve
szülő
commit
a9640ad9c6
1 módosított fájl, 7 hozzáadás és 0 törlés
  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