|
|
@@ -178,7 +178,8 @@ implementation
|
|
|
(not explicit) and
|
|
|
(not is_boolean(def_from))) or
|
|
|
((doconv=tc_bool_2_int) and
|
|
|
- (not explicit)) then
|
|
|
+ (not explicit) and
|
|
|
+ (not is_boolean(def_to))) then
|
|
|
b:=false;
|
|
|
{$else}
|
|
|
doconv:=basedefconverts[porddef(def_from)^.typ,porddef(def_to)^.typ];
|
|
|
@@ -718,7 +719,10 @@ implementation
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.15 1999-01-27 13:12:10 pierre
|
|
|
+ Revision 1.16 1999-01-27 13:53:27 pierre
|
|
|
+ htypechk.pas
|
|
|
+
|
|
|
+ Revision 1.15 1999/01/27 13:12:10 pierre
|
|
|
* bool to int must be explicit
|
|
|
|
|
|
Revision 1.14 1999/01/19 15:55:32 pierre
|
pierre