|
@@ -80,9 +80,9 @@ implementation
|
|
|
orddef:
|
|
orddef:
|
|
|
begin
|
|
begin
|
|
|
if p^.inlinenumber=in_low_x then
|
|
if p^.inlinenumber=in_low_x then
|
|
|
- v:=porddef(Adef)^.low
|
|
|
|
|
|
|
+ v:=porddef(adef)^.low
|
|
|
else
|
|
else
|
|
|
- v:=porddef(Adef)^.high;
|
|
|
|
|
|
|
+ v:=porddef(adef)^.high;
|
|
|
hp:=genordinalconstnode(v,adef);
|
|
hp:=genordinalconstnode(v,adef);
|
|
|
firstpass(hp);
|
|
firstpass(hp);
|
|
|
disposetree(p);
|
|
disposetree(p);
|
|
@@ -1080,8 +1080,10 @@ implementation
|
|
|
in_high_x:
|
|
in_high_x:
|
|
|
begin
|
|
begin
|
|
|
set_varstate(p^.left,false);
|
|
set_varstate(p^.left,false);
|
|
|
|
|
+ { this fixes tests\webtbs\tbug879.pp (FK)
|
|
|
if p^.left^.treetype in [typen,loadn,subscriptn] then
|
|
if p^.left^.treetype in [typen,loadn,subscriptn] then
|
|
|
begin
|
|
begin
|
|
|
|
|
+ }
|
|
|
case p^.left^.resulttype^.deftype of
|
|
case p^.left^.resulttype^.deftype of
|
|
|
orddef,enumdef:
|
|
orddef,enumdef:
|
|
|
begin
|
|
begin
|
|
@@ -1155,9 +1157,11 @@ implementation
|
|
|
else
|
|
else
|
|
|
CGMessage(type_e_mismatch);
|
|
CGMessage(type_e_mismatch);
|
|
|
end;
|
|
end;
|
|
|
|
|
+ {
|
|
|
end
|
|
end
|
|
|
else
|
|
else
|
|
|
CGMessage(type_e_varid_or_typeid_expected);
|
|
CGMessage(type_e_varid_or_typeid_expected);
|
|
|
|
|
+ }
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
in_cos_extended:
|
|
in_cos_extended:
|
|
@@ -1299,7 +1303,10 @@ implementation
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.69 2000-02-18 13:52:38 jonas
|
|
|
|
|
|
|
+ Revision 1.70 2000-03-21 09:12:40 florian
|
|
|
|
|
+ * fixed bug 879: high and low take now any kind of expression
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.69 2000/02/18 13:52:38 jonas
|
|
|
* fixed crash when using undeclared variable in ord construct
|
|
* fixed crash when using undeclared variable in ord construct
|
|
|
|
|
|
|
|
Revision 1.68 2000/02/17 15:39:29 jonas
|
|
Revision 1.68 2000/02/17 15:39:29 jonas
|
florian