Browse Source

* don't allow implicit bool->int conversion

peter 22 years ago
parent
commit
6f9deb98ed
1 changed files with 5 additions and 2 deletions
  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_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_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_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 =
         basedefconvertsexplicit : array[tbasedef,tbasedef] of tconverttype =
           { void, char, int, bool }
           { void, char, int, bool }
          ((tc_not_possible,tc_not_possible,tc_not_possible,tc_not_possible),
          ((tc_not_possible,tc_not_possible,tc_not_possible,tc_not_possible),
@@ -1193,7 +1193,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $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
     * allow classref-classref always when explicit
 
 
   Revision 1.8  2002/12/15 22:37:53  peter
   Revision 1.8  2002/12/15 22:37:53  peter