Improved .hdl message shown only once

This commit is contained in:
Holger Vogt 2025-05-11 20:07:25 +02:00
parent 363c4d18af
commit ecdaa6db1a
1 changed files with 8 additions and 3 deletions

View File

@ -1306,6 +1306,7 @@ static struct inp_read_t inp_read(FILE* fp, int call_depth, const char* dir_name
bool found_end = FALSE, shell_eol_continuation = FALSE;
static bool biaswarn = FALSE;
static bool hdlwarn = FALSE;
#ifdef CIDER
static int in_cider_model = 0;
#endif
@ -1445,9 +1446,13 @@ static struct inp_read_t inp_read(FILE* fp, int call_depth, const char* dir_name
}
if (ciprefix(".hdl", buffer)) {
fprintf(cp_err, "Warning: Dot command .hdl is not supported, ingnored\n");
fprintf(cp_err, " line no. %d, %s", line_number, buffer);
fprintf(cp_err, " file %s\n\n", file_name);
if (!hdlwarn) {
fprintf(cp_err, "Warning: Dot command .hdl is not supported, ingnored\n");
fprintf(cp_err, " line no. %d, %s", line_number, buffer);
fprintf(cp_err, " file %s\n", file_name);
fprintf(cp_err, " This message will be posted only once!\n\n");
hdlwarn = TRUE;
}
tfree(buffer);
continue;
}