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

frontend/device.c, com_alter_common(), #10/11 whitespace

This commit is contained in:
rlar 2015-12-26 19:00:12 +01:00
parent 78a0f74bbc
commit c1b9f746a3
1 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/frontend/device.c
View File

@ -1321,28 +1321,30 @@ com_alter_common(wordlist *wl, int do_model)
words = words->wl_next;
xsbuf = rem_xsbuf = wl_flatten(words);
/* fprintf(cp_err, "Chain converted %s \n", xsbuf); */
list = NULL;
for (;;) {
tmp = INPevaluate(&xsbuf, &error, 1);
if (error)
break;
/*printf(" returning vector value %g\n", tmp); */
list = TREALLOC(double, list, i + 1);
list[i++] = tmp;
}
if (i < 1) {
fprintf(cp_err, "Error: cannot evaluate new parameter value.\n");
return;
}
list = NULL;
for (;;) {
tmp = INPevaluate(&xsbuf, &error, 1);
if (error)
break;
/* printf(" returning vector value %g\n", tmp); */
list = TREALLOC(double, list, i + 1);
list[i++] = tmp;
}
dv = TMALLOC(struct dvec, 1);
if (!dv)
return;
dv->v_name = copy("real vector");
dv->v_type = SV_NOTYPE;
dv->v_flags = VF_REAL;
dv->v_realdata = list;
if (i < 1) {
fprintf(cp_err, "Error: cannot evaluate new parameter value.\n");
return;
}
dv = TMALLOC(struct dvec, 1);
if (!dv)
return;
dv->v_name = copy("real vector");
dv->v_type = SV_NOTYPE;
dv->v_flags = VF_REAL;
dv->v_realdata = list;
dv->v_length = i;
/* Here I was, to change the inclusion in the circuit.