paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 01:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

htypechk.pas

Browse Source
This commit is contained in:
pierre 1999-01-27 13:53:27 +00:00
parent dfc4adb603
commit c3080c078e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/htypechk.pas
View File

@ -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