|
@@ -1409,8 +1409,9 @@
|
|
|
lowrange:=l;
|
|
lowrange:=l;
|
|
|
highrange:=h;
|
|
highrange:=h;
|
|
|
rangedef:=rd;
|
|
rangedef:=rd;
|
|
|
- rangenr:=0;
|
|
|
|
|
definition:=nil;
|
|
definition:=nil;
|
|
|
|
|
+ IsArrayOfConst:=false;
|
|
|
|
|
+ rangenr:=0;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
@@ -1423,6 +1424,7 @@
|
|
|
rangedef:=readdefref;
|
|
rangedef:=readdefref;
|
|
|
lowrange:=readlong;
|
|
lowrange:=readlong;
|
|
|
highrange:=readlong;
|
|
highrange:=readlong;
|
|
|
|
|
+ IsArrayOfConst:=boolean(readbyte);
|
|
|
rangenr:=0;
|
|
rangenr:=0;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
@@ -1454,6 +1456,7 @@
|
|
|
writedefref(rangedef);
|
|
writedefref(rangedef);
|
|
|
writelong(lowrange);
|
|
writelong(lowrange);
|
|
|
writelong(highrange);
|
|
writelong(highrange);
|
|
|
|
|
+ writebyte(byte(IsArrayOfConst));
|
|
|
current_ppu^.writeentry(ibarraydef);
|
|
current_ppu^.writeentry(ibarraydef);
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
@@ -3017,7 +3020,10 @@
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.47 1998-09-21 15:46:01 michael
|
|
|
|
|
|
|
+ Revision 1.48 1998-09-22 15:37:23 peter
|
|
|
|
|
+ + array of const start
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.47 1998/09/21 15:46:01 michael
|
|
|
Applied florians fix for check_rec_inittable
|
|
Applied florians fix for check_rec_inittable
|
|
|
|
|
|
|
|
Revision 1.46 1998/09/21 08:45:21 pierre
|
|
Revision 1.46 1998/09/21 08:45:21 pierre
|
peter