Ver código fonte

* don't allow implicit bool->int conversion

peter 22 anos atrás
pai
commit
6f9deb98ed
1 arquivos alterados com 5 adições e 2 exclusões
  1. 5 2
      compiler/defcmp.pas

+ 5 - 2
compiler/defcmp.pas

@@ -168,7 +168,7 @@ implementation
          ((tc_not_possible,tc_not_possible,tc_not_possible,tc_not_possible),
           (tc_not_possible,tc_char_2_char,tc_not_possible,tc_not_possible),
           (tc_not_possible,tc_not_possible,tc_int_2_int,tc_not_possible),
-          (tc_not_possible,tc_not_possible,tc_bool_2_int,tc_bool_2_bool));
+          (tc_not_possible,tc_not_possible,tc_not_possible,tc_bool_2_bool));
         basedefconvertsexplicit : array[tbasedef,tbasedef] of tconverttype =
           { void, char, int, bool }
          ((tc_not_possible,tc_not_possible,tc_not_possible,tc_not_possible),
@@ -1193,7 +1193,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.9  2002-12-18 21:37:36  peter
+  Revision 1.10  2002-12-23 22:22:16  peter
+    * don't allow implicit bool->int conversion
+
+  Revision 1.9  2002/12/18 21:37:36  peter
     * allow classref-classref always when explicit
 
   Revision 1.8  2002/12/15 22:37:53  peter