|
|
@@ -147,7 +147,6 @@ unit pstatmnt;
|
|
|
else
|
|
|
if (p^._low>hcaselabel^._low) and
|
|
|
(p^._low>hcaselabel^._high) then
|
|
|
-{$IfDef CaseRange}
|
|
|
if (hcaselabel^.statement = p^.statement) and
|
|
|
(p^._low = hcaselabel^._high + 1) then
|
|
|
begin
|
|
|
@@ -155,12 +154,10 @@ unit pstatmnt;
|
|
|
dispose(hcaselabel)
|
|
|
end
|
|
|
else
|
|
|
-{$EndIf CaseRange}
|
|
|
insertlabel(p^.less)
|
|
|
else
|
|
|
if (p^._high<hcaselabel^._low) and
|
|
|
(p^._high<hcaselabel^._high) then
|
|
|
-{$IfDef CaseRange}
|
|
|
if (hcaselabel^.statement = p^.statement) and
|
|
|
(p^._high+1 = hcaselabel^._low) then
|
|
|
begin
|
|
|
@@ -168,7 +165,6 @@ unit pstatmnt;
|
|
|
dispose(hcaselabel)
|
|
|
end
|
|
|
else
|
|
|
-{$EndIf CaseRange}
|
|
|
insertlabel(p^.greater)
|
|
|
else Message(parser_e_double_caselabel);
|
|
|
end;
|
|
|
@@ -1246,7 +1242,10 @@ unit pstatmnt;
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.54 1998-12-15 22:32:24 jonas
|
|
|
+ Revision 1.55 1998-12-16 12:30:59 jonas
|
|
|
+ * released CaseRange
|
|
|
+
|
|
|
+ Revision 1.54 1998/12/15 22:32:24 jonas
|
|
|
+ convert consecutive case labels to a single range (-dCaseRange)
|
|
|
|
|
|
Revision 1.53 1998/12/15 11:52:18 peter
|
Jonas Maebe