Browse Source

* don't cast the succeeded node succn to a tcallparanode (it's usually a tloadnode or something similar instead)

Sven/Sarah Barth 6 months ago
parent
commit
d3c3b79e79
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ninl.pas

+ 1 - 1
compiler/ninl.pas

@@ -6227,7 +6227,7 @@ implementation
              cmpn:=cmpn.getcopy;
              cmpn:=cmpn.getcopy;
              inserttypeconv_internal(cmpn,resultdef);
              inserttypeconv_internal(cmpn,resultdef);
              addstatement(stmt,
              addstatement(stmt,
-               cassignmentnode.create(tcallparanode(succn),
+               cassignmentnode.create(succn,
                  caddnode.create(equaln,cmpn,
                  caddnode.create(equaln,cmpn,
                    ctemprefnode.create(tmp))));
                    ctemprefnode.create(tmp))));
              addstatement(stmt,ctempdeletenode.create_normal_temp(tmp));
              addstatement(stmt,ctempdeletenode.create_normal_temp(tmp));