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

* only check for size matches when parameter is enum,ord,float

Browse Source
This commit is contained in:
peter 2003-08-23 18:42:57 +00:00
parent 17d7fb5a03
commit f86df421ce
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncal.pas
View File

@ -704,7 +704,8 @@ type
begin begin
{ for ordinals, floats and enums, verify if we might cause { for ordinals, floats and enums, verify if we might cause
some range-check errors. } some range-check errors. }
if (left.resulttype.def.deftype in [enumdef,orddef,floatdef]) and if (paraitem.paratype.def.deftype in [enumdef,orddef,floatdef]) and
(left.resulttype.def.deftype in [enumdef,orddef,floatdef]) and
(left.nodetype in [vecn,loadn,calln]) then (left.nodetype in [vecn,loadn,calln]) then
begin begin
if (left.resulttype.def.size>paraitem.paratype.def.size) then if (left.resulttype.def.size>paraitem.paratype.def.size) then
@ -2649,7 +2650,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.175 2003-08-10 17:25:23 peter Revision 1.176 2003-08-23 18:42:57 peter
* only check for size matches when parameter is enum,ord,float
Revision 1.175 2003/08/10 17:25:23 peter
* fixed some reported bugs * fixed some reported bugs
Revision 1.174 2003/07/25 09:54:57 jonas Revision 1.174 2003/07/25 09:54:57 jonas