/* "expressc" : The expression code generator */
/* */
/* Part of Inform 6.35 */
-/* copyright (c) Graham Nelson 1993 - 2020 */
+/* copyright (c) Graham Nelson 1993 - 2021 */
/* */
/* Inform is free software: you can redistribute it and/or modify */
/* it under the terms of the GNU General Public License as published by */
index_ao;
int x = 0, y = 0, byte_flag = FALSE, read_flag = FALSE, from_module = FALSE;
+ INITAO(&zero_ao);
+ INITAO(&size_ao);
+ INITAO(&type_ao);
+
if (AO1.marker == ARRAY_MV || AO1.marker == STATIC_ARRAY_MV)
{
- INITAO(&zero_ao);
-
if ((oc == loadb_zc) || (oc == storeb_zc)) byte_flag=TRUE;
else byte_flag = FALSE;
if ((oc == loadb_zc) || (oc == loadw_zc)) read_flag=TRUE;
else
read_flag = FALSE;
+ INITAO(&zero_ao);
+ INITAO(&size_ao);
+ INITAO(&type_ao);
+
if (AO1.marker == ARRAY_MV || AO1.marker == STATIC_ARRAY_MV)
{
- INITAO(&zero_ao);
-
size_ao = zero_ao; size_ao.value = -1;
for (x=0; x<no_arrays; x++)
{ if (((AO1.marker == ARRAY_MV) == (!array_locs[x]))