luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix bug #602 "Warning message trying to linearize a transient analysis vector" 

by changing the way "ngspice -a" (autorun option) works.  The inserted code
now checks whether a simulation has already run by examining $curplot
before forcing "run".  Also at most one simulation is forced to run.
This commit is contained in:
Giles Atkinson 2022-09-11 10:39:34 +01:00 committed by Holger Vogt
parent 06131d8107
commit 8cc9d8522f
1 changed files with 30 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
src/frontend/inpcom.c
View File

@ -1089,8 +1089,12 @@ struct card *inp_readall(FILE *fp, const char *dir_name,
inp_fix_gnd_name(working);
inp_chk_for_multi_in_vcvs(working, &rv.line_number);
if (cp_getvar("addcontrol", CP_BOOL, NULL, 0))
/* "addcontrol" variable is set if "ngspice -a file" was used. */
if (cp_getvar("addcontrol", CP_BOOL, NULL, 0)) {
inp_add_control_section(working, &rv.line_number);
cp_remvar("addcontrol"); // Use only for initial netlist
}
#ifdef XSPICE
if (inp_poly_2g6_compat(working)) {
inp_rem_levels(root);
@ -2170,76 +2174,44 @@ static void inp_chk_for_multi_in_vcvs(struct card *c, int *line_number)
/* If ngspice is started with option -a, then variable 'autorun'
* will be set and the following function scans the deck.
* If 'run' is not found, a .control section will be added:
* will be set and a control section is inserted to try and ensure
* some analysis is done;
*
* .control
* run
* op ; if .op is found
* strcmp __flag $curplot const
* if $__flag eq 0
* run
* end
* write rawfile ; if rawfile given
* .endc
*
* The effect is that "run" is executed if there was no previous
* analysis.
*/
static void inp_add_control_section(struct card *deck, int *line_number)
{
struct card *c, *prev_card = NULL;
bool found_control = FALSE, found_run = FALSE;
bool found_end = FALSE;
char *op_line = NULL, rawfile[1000], *line;
static const char * const cards[] =
{".control", "strcmp __flag $curplot const", "if $__flag eq 0",
" run", "end", NULL};
const char * const *lp;
struct card *c, *prev_card = NULL, *last_end = NULL;
char rawfile[1000], *line;
for (c = deck; c; c = c->nextcard) {
if (*c->line == '*')
continue;
if (ciprefix(".op ", c->line)) {
*c->line = '*';
op_line = c->line + 1;
}
if (ciprefix(".end", c->line))
found_end = TRUE;
if (found_control && ciprefix("run", c->line))
found_run = TRUE;
if (ciprefix(".control", c->line))
found_control = TRUE;
if (ciprefix(".endc", c->line)) {
found_control = FALSE;
if (!found_run) {
prev_card = insert_new_line(
prev_card, copy("run"), (*line_number)++, 0);
found_run = TRUE;
}
if (cp_getvar("rawfile", CP_STRING, rawfile, sizeof(rawfile))) {
line = tprintf("write %s", rawfile);
prev_card =
insert_new_line(prev_card, line, (*line_number)++, 0);
}
}
last_end = prev_card;
prev_card = c;
}
// check if need to add control section
if (!found_run && found_end) {
deck = insert_new_line(deck, copy(".control"), (*line_number)++, 0);
deck = insert_new_line(deck, copy("run"), (*line_number)++, 0);
if (op_line)
deck = insert_new_line(deck, copy(op_line), (*line_number)++, 0);
if (cp_getvar("rawfile", CP_STRING, rawfile, sizeof(rawfile))) {
line = tprintf("write %s", rawfile);
deck = insert_new_line(deck, line, (*line_number)++, 0);
}
deck = insert_new_line(deck, copy(".endc"), (*line_number)++, 0);
if (last_end)
prev_card = last_end;
for (lp = cards; *lp; ++lp)
prev_card = insert_new_line(prev_card, copy(*lp), (*line_number)++, 0);
if (cp_getvar("rawfile", CP_STRING, rawfile, sizeof(rawfile))) {
line = tprintf("write %s", rawfile);
prev_card = insert_new_line(prev_card, line, (*line_number)++, 0);
}
insert_new_line(prev_card, copy(".endc"), (*line_number)++, 0);
}