/* (with error throwback code for RISC OS machines) */
/* */
/* 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 */
static char *location_text(brief_location report_line)
{
+ int j;
+ char *p;
+ int len;
+
/* Convert the location to a brief string.
(Some error messages need to report a secondary location.)
This uses the static buffer other_pos_buff. */
errpos.main_flag = 0;
errpos.orig_source = NULL;
export_brief_location(report_line, &errpos);
-
- int j;
- char *p;
j = errpos.file_number;
if (j <= 0 || j > total_files) p = errpos.source;
if (!p) p = "";
- int len = 0;
+ len = 0;
if (!(errpos.main_flag)) {
snprintf(other_pos_buff+len, ERROR_BUFLEN-len,