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

* fixed low/high for record.field

Browse Source
This commit is contained in:
peter 1998-11-14 10:51:33 +00:00
parent 274bce92b8
commit 3d81537289
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/tcinl.pas
View File

@ -764,7 +764,7 @@ implementation
end;
in_low_x,in_high_x:
begin
if p^.left^.treetype in [typen,loadn] then
if p^.left^.treetype in [typen,loadn,subscriptn] then
begin
case p^.left^.resulttype^.deftype of
orddef,enumdef:
@ -862,7 +862,10 @@ implementation
end.
{
$Log$
Revision 1.7 1998-11-13 10:15:52 peter
Revision 1.8 1998-11-14 10:51:33 peter
* fixed low/high for record.field
Revision 1.7 1998/11/13 10:15:52 peter
* fixed ptr() with constants
Revision 1.6 1998/11/05 12:03:05 peter