paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 04:19:07 +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 begin
case def_from^.deftype of case def_from^.deftype of
orddef : begin { ordinal to real } orddef : begin { ordinal to real }
if pfloatdef(def_to)^.typ=f32bit then if is_integer(def_from) then
doconv:=tc_int_2_fix begin
else if pfloatdef(def_to)^.typ=f32bit then
doconv:=tc_int_2_real; doconv:=tc_int_2_fix
b:=true; else
doconv:=tc_int_2_real;
b:=true;
end;
end; end;
floatdef : begin { 2 float types ? } floatdef : begin { 2 float types ? }
if pfloatdef(def_from)^.typ=pfloatdef(def_to)^.typ then if pfloatdef(def_from)^.typ=pfloatdef(def_to)^.typ then
@ -713,7 +716,10 @@ implementation
end. end.
{ {
$Log$ $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 * string:=pchar not allowed in tp mode
Revision 1.12 1998/12/11 00:03:18 peter Revision 1.12 1998/12/11 00:03:18 peter