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

Stop ngspice in case of pwl errors, avoid crash.

This commit is contained in:
Holger Vogt 2024-04-24 10:24:46 +02:00
parent 3694dddd64
commit b056b647af
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/spicelib/parser/inpptree.c
View File

@ -1030,7 +1030,7 @@ static INPparseNode *prepare_PTF_PWL(INPparseNode *p)
if (p->funcnum != PTF_PWL) {
fprintf(stderr, "PWL-INFO: %s, very unexpected\n", __func__);
controlled_exit(1);
controlled_exit(EXIT_BAD);
}
#ifdef TRACE
@ -1042,7 +1042,7 @@ static INPparseNode *prepare_PTF_PWL(INPparseNode *p)
if (i<2 || (i%1)) {
fprintf(stderr, "Error: PWL(expr, points...) needs an even and >=2 number of constant args\n");
return mkfirst(NULL, p);
controlled_exit(EXIT_BAD);
}
data = TMALLOC(struct pwldata, 1);
@ -1062,9 +1062,8 @@ static INPparseNode *prepare_PTF_PWL(INPparseNode *p)
} else {
fprintf(stderr, "PWL-ERROR: %s, not a constant\n", __func__);
fprintf(stderr, " type = %d\n", w->right->type);
//Breakpoint;
fprintf(stderr, "Error: PWL(expr, points...) only *literal* points are supported\n");
return mkfirst(NULL, p);
controlled_exit(EXIT_BAD);
}
#ifdef TRACE
@ -1075,7 +1074,7 @@ static INPparseNode *prepare_PTF_PWL(INPparseNode *p)
for (i = 2 ; i < data->n ; i += 2)
if(data->vals[i-2] >= data->vals[i]) {
fprintf(stderr, "Error: PWL(expr, points...) the abscissa of points must be ascending\n");
return mkfirst(NULL, p);
controlled_exit(EXIT_BAD);
}
/* strip all but the first arg,