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

* forgot to commit a fix for the enumeration subrange problem, yesterday

Browse Source
This commit is contained in:
florian 2000-05-31 06:58:41 +00:00
parent 9ef9f62da1
commit c33697ecd4
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/tcadd.pas
View File

@ -1190,8 +1190,13 @@ implementation
end end
else else
if (ld^.deftype=enumdef) and (rd^.deftype=enumdef) and (is_equal(ld,rd)) then if (ld^.deftype=enumdef) and (rd^.deftype=enumdef) then
begin begin
if not(is_equal(ld,rd)) then
begin
p^.right:=gentypeconvnode(p^.right,ld);
firstpass(p^.right);
end;
calcregisters(p,1,0,0); calcregisters(p,1,0,0);
case p^.treetype of case p^.treetype of
equaln,unequaln, equaln,unequaln,
@ -1307,7 +1312,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.77 2000-05-11 17:53:40 peter Revision 1.78 2000-05-31 06:58:41 florian
* forgot to commit a fix for the enumeration subrange problem, yesterday
Revision 1.77 2000/05/11 17:53:40 peter
* small fix for previous commit * small fix for previous commit
Revision 1.76 2000/05/11 16:47:37 peter Revision 1.76 2000/05/11 16:47:37 peter