/* ------------------------------------------------------------------------- */
/* "states" : Statement translator */
/* */
-/* Copyright (c) Graham Nelson 1993 - 2018 */
-/* */
-/* This file is part of Inform. */
+/* Part of Inform 6.35 */
+/* copyright (c) Graham Nelson 1993 - 2020 */
/* */
/* Inform is free software: you can redistribute it and/or modify */
/* it under the terms of the GNU General Public License as published by */
/* GNU General Public License for more details. */
/* */
/* You should have received a copy of the GNU General Public License */
-/* along with Inform. If not, see https://gnu.org/licenses/ */
+/* along with Inform. If not, see https://gnu.org/licenses/ *
/* */
/* ------------------------------------------------------------------------- */
if (version_number==4)
assemblez_4_to(call_vs_zc, AO, AO2, AO3, AO4, temp_var1);
else
- assemblez_4(call_zc, AO, AO2, AO3, AO4);
+ assemblez_4_to(call_zc, AO, AO2, AO3, AO4, temp_var1);
break;
case 3:
AO5 = code_generate(AO5, QUANTITY_CONTEXT, -1);
if (j > ln2) ln2 = j;
}
put_token_back();
- array_entry(ln++,parse_expression(CONSTANT_CONTEXT));
+ array_entry(ln++, FALSE, parse_expression(CONSTANT_CONTEXT));
} while (TRUE);
- finish_array(ln);
+ finish_array(ln, FALSE);
if (ln == 0)
error("No lines of text given for 'box' display");
if (j > ln2) ln2 = j;
}
put_token_back();
- array_entry(ln++,parse_expression(CONSTANT_CONTEXT));
+ array_entry(ln++, FALSE, parse_expression(CONSTANT_CONTEXT));
} while (TRUE);
- finish_array(ln);
+ finish_array(ln, FALSE);
if (ln == 0)
error("No lines of text given for 'box' display");