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

* bug #459 fixed

Browse Source
This commit is contained in:
florian 1999-06-25 10:02:56 +00:00
parent db13630df1
commit 26f0321f2f
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/tcinl.pas
View File

@ -92,7 +92,11 @@ implementation
hp:=genenumnode(enum); hp:=genenumnode(enum);
disposetree(p); disposetree(p);
p:=hp; p:=hp;
end end;
arraydef:
begin
halt;
end;
end; end;
end; end;
@ -1000,7 +1004,8 @@ implementation
begin begin
if p^.inlinenumber=in_low_x then if p^.inlinenumber=in_low_x then
begin begin
hp:=genordinalconstnode(Parraydef(p^.left^.resulttype)^.lowrange,s32bitdef); hp:=genordinalconstnode(Parraydef(p^.left^.resulttype)^.lowrange,
Parraydef(p^.left^.resulttype)^.rangedef);
disposetree(p); disposetree(p);
p:=hp; p:=hp;
firstpass(p); firstpass(p);
@ -1018,7 +1023,8 @@ implementation
end end
else else
begin begin
hp:=genordinalconstnode(Parraydef(p^.left^.resulttype)^.highrange,s32bitdef); hp:=genordinalconstnode(Parraydef(p^.left^.resulttype)^.highrange,
Parraydef(p^.left^.resulttype)^.rangedef);
disposetree(p); disposetree(p);
p:=hp; p:=hp;
firstpass(p); firstpass(p);
@ -1101,7 +1107,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.36 1999-06-15 18:58:36 peter Revision 1.37 1999-06-25 10:02:56 florian
* bug 459 fixed
Revision 1.36 1999/06/15 18:58:36 peter
* merged * merged
Revision 1.35.2.1 1999/06/15 18:54:54 peter Revision 1.35.2.1 1999/06/15 18:54:54 peter