paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 16:59:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bool-bool cnv

Browse Source
This commit is contained in:
peter 1998-09-30 16:42:52 +00:00
parent cc64ced22c
commit b6bf708ca9
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/htypechk.pas
View File

@ -119,17 +119,17 @@ implementation
(tc_not_possible,tc_not_possible,tc_not_possible,
tc_bool_2_int,tc_bool_2_int,tc_bool_2_int,
tc_bool_2_int,tc_bool_2_int,tc_bool_2_int,
tc_only_rangechecks32bit,tc_bool_2_int,tc_bool_2_int),
tc_only_rangechecks32bit,tc_int_2_bool,tc_int_2_bool),
{bool16bit}
(tc_not_possible,tc_not_possible,tc_not_possible,
tc_bool_2_int,tc_bool_2_int,tc_bool_2_int,
tc_bool_2_int,tc_bool_2_int,tc_bool_2_int,
tc_bool_2_int,tc_only_rangechecks32bit,tc_bool_2_int),
tc_int_2_bool,tc_only_rangechecks32bit,tc_int_2_bool),
{bool32bit}
(tc_not_possible,tc_not_possible,tc_not_possible,
tc_bool_2_int,tc_bool_2_int,tc_bool_2_int,
tc_bool_2_int,tc_bool_2_int,tc_bool_2_int,
tc_bool_2_int,tc_bool_2_int,tc_only_rangechecks32bit));
tc_int_2_bool,tc_int_2_bool,tc_only_rangechecks32bit));
var
b : boolean;
@ -639,7 +639,10 @@ implementation
end.
{
$Log$
Revision 1.3 1998-09-24 23:49:05 peter
Revision 1.4 1998-09-30 16:42:52 peter
* fixed bool-bool cnv
Revision 1.3 1998/09/24 23:49:05 peter
+ aktmodeswitches
Revision 1.2 1998/09/24 09:02:14 peter