paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 22:30:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved comp<->real warning so it doesn't occure everytime that

Browse Source 
isconvertable is called with
This commit is contained in:
peter 1999-03-06 17:25:19 +00:00
parent a27a69d7af
commit ba1cc62a46
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/htypechk.pas
View File

@ -194,13 +194,6 @@ implementation
doconv:=tc_real_2_fix
else
doconv:=tc_real_2_real;
{ comp isn't a floating type }
{$ifdef i386}
if (pfloatdef(def_to)^.typ=s64bit) and
(pfloatdef(def_from)^.typ<>s64bit) and
not (explicit) then
CGMessage(type_w_convert_real_2_comp);
{$endif}
end;
b:=1;
end;
@ -656,7 +649,11 @@ implementation
end.
{
$Log$
Revision 1.17 1999-03-02 18:24:20 peter
Revision 1.18 1999-03-06 17:25:19 peter
* moved comp<->real warning so it doesn't occure everytime that
isconvertable is called with
Revision 1.17 1999/03/02 18:24:20 peter
* fixed overloading of array of char
Revision 1.16 1999/01/27 13:53:27 pierre

13
compiler/tccnv.pas
View File

@ -411,6 +411,13 @@ implementation
procedure first_real_to_real(var p : ptree);
begin
{ comp isn't a floating type }
{$ifdef i386}
if (pfloatdef(p^.resulttype)^.typ=s64bit) and
(pfloatdef(p^.left^.resulttype)^.typ<>s64bit) and
not (p^.explizit) then
CGMessage(type_w_convert_real_2_comp);
{$endif}
if p^.registersfpu<1 then
p^.registersfpu:=1;
p^.location.loc:=LOC_FPU;
@ -911,7 +918,11 @@ implementation
end.
{
$Log$
Revision 1.20 1999-03-02 18:24:23 peter
Revision 1.21 1999-03-06 17:25:20 peter
* moved comp<->real warning so it doesn't occure everytime that
isconvertable is called with
Revision 1.20 1999/03/02 18:24:23 peter
* fixed overloading of array of char
Revision 1.19 1999/02/22 02:15:46 peter