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

* fix for bug #866

Browse Source
This commit is contained in:
pierre 2000-03-14 15:05:18 +00:00
parent 031c0b22a3
commit 70263e1c6d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/tccnv.pas
View File

@ -67,7 +67,7 @@ implementation
procedure update_constsethi(p:pdef); procedure update_constsethi(p:pdef);
begin begin
if ((p^.deftype=orddef) and if ((p^.deftype=orddef) and
(porddef(p)^.high>constsethi)) then (porddef(p)^.high>=constsethi)) then
begin begin
constsethi:=porddef(p)^.high; constsethi:=porddef(p)^.high;
if pd=nil then if pd=nil then
@ -82,7 +82,7 @@ implementation
constsethi:=255; constsethi:=255;
end end
else if ((p^.deftype=enumdef) and else if ((p^.deftype=enumdef) and
(penumdef(p)^.max>constsethi)) then (penumdef(p)^.max>=constsethi)) then
begin begin
if pd=nil then if pd=nil then
pd:=p; pd:=p;
@ -1024,7 +1024,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.61 2000-02-14 18:12:50 florian Revision 1.62 2000-03-14 15:05:18 pierre
* fix for bug 866
Revision 1.61 2000/02/14 18:12:50 florian
* fixed set problem s:=[<word>]; * fixed set problem s:=[<word>];
Revision 1.60 2000/02/13 22:46:28 florian Revision 1.60 2000/02/13 22:46:28 florian