Browse Source

* bug0209 corrected (introduce while solving other bool to int related bugs)

pierre 26 years ago
parent
commit
c24fa14e89
1 changed files with 7 additions and 1 deletions
  1. 7 1
      compiler/tccnv.pas

+ 7 - 1
compiler/tccnv.pas

@@ -496,6 +496,9 @@ implementation
          { Hmmm, I think we need only one reg to return the result of      }
          { Hmmm, I think we need only one reg to return the result of      }
          { this node => so }
          { this node => so }
          p^.left:=gentypeconvnode(p^.left,s32bitdef);
          p^.left:=gentypeconvnode(p^.left,s32bitdef);
+         { need if bool to bool !!
+           not very nice !! }
+         p^.left^.explizit:=true;
          firstpass(p^.left);
          firstpass(p^.left);
          if p^.registers32<1 then
          if p^.registers32<1 then
            p^.registers32:=1;
            p^.registers32:=1;
@@ -972,7 +975,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.16  1999-01-27 13:02:21  pierre
+  Revision 1.17  1999-01-27 14:15:25  pierre
+   * bug0209 corrected (introduce while solving other bool to int related bugs)
+
+  Revision 1.16  1999/01/27 13:02:21  pierre
    boolean to int conversion problems bug0205 bug0208
    boolean to int conversion problems bug0205 bug0208
 
 
   Revision 1.15  1999/01/27 00:13:57  florian
   Revision 1.15  1999/01/27 00:13:57  florian