|
|
@@ -528,7 +528,8 @@ implementation
|
|
|
(def^.deftype = formaldef) or
|
|
|
{ copy directly small records or arrays unless array of const ! PM }
|
|
|
((def^.deftype in [arraydef,recorddef]) and
|
|
|
- ((def^.size>4) or
|
|
|
+ ((Parraydef(def)^.highrange<Parraydef(def)^.lowrange)
|
|
|
+ or (def^.size>4) or
|
|
|
((def^.deftype=arraydef) and
|
|
|
(parraydef(def)^.IsConstructor or
|
|
|
parraydef(def)^.isArrayOfConst or
|
|
|
@@ -974,7 +975,11 @@ implementation
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.79 1999-08-03 22:03:41 peter
|
|
|
+ Revision 1.80 1999-08-05 22:42:49 daniel
|
|
|
+ * Fixed potential bug for open arrays (Their size is not known at
|
|
|
+ compilation time).
|
|
|
+
|
|
|
+ Revision 1.79 1999/08/03 22:03:41 peter
|
|
|
* moved bitmask constants to sets
|
|
|
* some other type/const renamings
|
|
|
|
daniel