paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-19 12:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for read(subranges) with subrange typ already being sinttype

Browse Source
This commit is contained in:
peter 2004-09-13 20:32:06 +00:00
parent 29207e007a
commit 17f31d70c2
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/ninl.pas
View File

@ -747,7 +747,9 @@ implementation
if do_read and if do_read and
((is_ordinal and ((is_ordinal and
not(torddef(para.left.resulttype.def).typ in hasownreadfunc) and not(torddef(para.left.resulttype.def).typ in hasownreadfunc) and
(para.left.resulttype.def.size<>sinttype.def.size) { Don't allow subranges to match }
(para.left.resulttype.def<>sinttype.def) and
(para.left.resulttype.def<>uinttype.def)
) or ) or
(is_real and (is_real and
not equal_defs(para.left.resulttype.def,pbestrealtype^.def) not equal_defs(para.left.resulttype.def,pbestrealtype^.def)
@ -2441,7 +2443,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.143 2004-08-25 15:56:35 peter Revision 1.144 2004-09-13 20:32:06 peter
* fix for read(subranges) with subrange typ already being sinttype
Revision 1.143 2004/08/25 15:56:35 peter
* fix sqr() and abs() constant range check errors * fix sqr() and abs() constant range check errors
Revision 1.142 2004/08/08 16:00:56 florian Revision 1.142 2004/08/08 16:00:56 florian