paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for boolean to comp conversion (now disabled)

Browse Source
This commit is contained in:
pierre 1999-01-19 15:55:32 +00:00
parent cf9ffbd00c
commit f01a9ec364
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/htypechk.pas
View File

@ -236,11 +236,14 @@ implementation
begin
case def_from^.deftype of
orddef : begin { ordinal to real }
if pfloatdef(def_to)^.typ=f32bit then
doconv:=tc_int_2_fix
else
doconv:=tc_int_2_real;
b:=true;
if is_integer(def_from) then
begin
if pfloatdef(def_to)^.typ=f32bit then
doconv:=tc_int_2_fix
else
doconv:=tc_int_2_real;
b:=true;
end;
end;
floatdef : begin { 2 float types ? }
if pfloatdef(def_from)^.typ=pfloatdef(def_to)^.typ then
@ -713,7 +716,10 @@ implementation
end.
{
$Log$
Revision 1.13 1998-12-15 17:11:37 peter
Revision 1.14 1999-01-19 15:55:32 pierre
* fix for boolean to comp conversion (now disabled)
Revision 1.13 1998/12/15 17:11:37 peter
* string:=pchar not allowed in tp mode
Revision 1.12 1998/12/11 00:03:18 peter