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

inpcom.c, tprint(), print levels correction to inp_add_levels()

This commit is contained in:
h_vogt 2016-04-23 18:47:09 +02:00 committed by rlar
parent 7239084e77
commit 70e6323adf
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/frontend/inpcom.c
View File

@ -5882,8 +5882,15 @@ tprint(struct line *t, int numb)
/*debug: print into file*/
FILE *fd = fopen(filename, "w");
for (tmp = t; tmp; tmp = tmp->li_next)
if (*(tmp->li_line) != '*')
fprintf(fd, "%6d %6d %s\n", tmp->li_linenum_orig, tmp->li_linenum, tmp->li_line);
if (*(tmp->li_line) != '*') {
fprintf(fd, "%6d %6d %s", tmp->li_linenum_orig, tmp->li_linenum, tmp->li_line);
fprintf(fd, " level: ");
int i;
for (i = 0; i < NESTINGDEPTH; i++) {
fprintf(fd, "%3d", tmp->level[i]);
}
fprintf(fd, "\n");
}
fprintf(fd, "\n*********************************************************************************\n");
fprintf(fd, "*********************************************************************************\n");
fprintf(fd, "*********************************************************************************\n\n");
@ -6734,7 +6741,10 @@ inp_add_levels(struct line *deck)
else if (ciprefix(".ends", curr_line)) {
subs--;
for (i = 0; i < NESTINGDEPTH; i++)
card->level[i] = card_prev->level[i];
if (i < subs)
card->level[i] = card_prev->level[i];
else
card->level[i] = 0;
card_prev = card;
}
else {