paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 09:29:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed web bug #2136

Browse Source
This commit is contained in:
Jonas Maebe 2002-10-08 16:50:43 +00:00
parent 7175dd757a
commit 9577abf606
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nadd.pas
View File

@ -621,7 +621,9 @@ implementation
{ but an int/int gives real/real! }
if nodetype=slashn then
begin
CGMessage(type_h_use_div_for_int);
if (left.resulttype.def.deftype <> floatdef) and
(right.resulttype.def.deftype <> floatdef) then
CGMessage(type_h_use_div_for_int);
inserttypeconv(right,pbestrealtype^);
inserttypeconv(left,pbestrealtype^);
end
@ -1826,7 +1828,10 @@ begin
end.
{
$Log$
Revision 1.67 2002-10-05 00:47:03 peter
Revision 1.68 2002-10-08 16:50:43 jonas
* fixed web bug 2136
Revision 1.67 2002/10/05 00:47:03 peter
* support dynamicarray<>nil
Revision 1.66 2002/10/04 21:19:28 jonas