/* simpler form of the same thing. */
/* */
/* 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 */
int array_type, data_type;
int is_static = FALSE;
assembly_operand AO;
+
+ int extraspace;
+ int orig_area_size;
int32 global_symbol;
const char *global_name;
/* Leave room to write the array size in later, if string/table array */
- int extraspace = 0;
+ extraspace = 0;
if ((array_type==STRING_ARRAY) || (array_type==TABLE_ARRAY))
extraspace += array_entry_size;
if (array_type==BUFFER_ARRAY)
extraspace += WORDSIZE;
-
- int orig_area_size;
if (!is_static) {
orig_area_size = dynamic_array_area_size;
finish_array(i, is_static);
if (debugfile_switch)
- { debug_file_printf("<array>");
+ {
+ int32 new_area_size;
+ debug_file_printf("<array>");
debug_file_printf("<identifier>%s</identifier>", global_name);
debug_file_printf("<value>");
write_debug_array_backpatch(svals[global_symbol]);
debug_file_printf("</value>");
- int32 new_area_size = (!is_static ? dynamic_array_area_size : static_array_area_size);
+ new_area_size = (!is_static ? dynamic_array_area_size : static_array_area_size);
debug_file_printf
("<byte-count>%d</byte-count>",
new_area_size - array_base);