pour `IGNORE()' all over the source

This commit is contained in:
rlar 2010-11-16 19:11:32 +00:00
parent 9150ae9afb
commit 80286e0032
353 changed files with 1172 additions and 19 deletions

View File

@ -1,3 +1,7 @@
2010-11-16 Robert Larice
* src/**/* :
pour `IGNORE()' all over the source
2010-11-16 Robert Larice
* src/include/ngspice.h :
introduce macro `IGNORE(x)', which shall used to mark unused parameters

View File

@ -123,6 +123,7 @@ ONEcopyBCinfo(ONEdevice *pDevice, ONEelem *pElem, BDRYcard *bdry, int index)
int eIndex;
double length;
IGNORE(pDevice);
/* First add fixed charge. */
pNode = pElem->pNodes[index];

View File

@ -765,6 +765,8 @@ contactAdmittance(TWOdevice *pDevice, TWOcontact *pContact, BOOLEAN delVContact,
SPcomplex prod1, prod2, sum;
double temp;
IGNORE(pDevice);
CMPLX_ASSIGN_VALUE(yTotal, 0.0, 0.0);
numContactNodes = pContact->numNodes;
@ -964,6 +966,8 @@ oxideAdmittance(TWOdevice *pDevice, TWOcontact *pContact, BOOLEAN delVContact,
SPcomplex psiAc;
SPcomplex prod1, prod2;
IGNORE(pDevice);
CMPLX_ASSIGN_VALUE(yTotal, 0.0, 0.0);
numContactNodes = pContact->numNodes;

View File

@ -274,6 +274,8 @@ double
double gTotal = 0.0;
int nInc, pInc;
IGNORE(pDevice);
/* for one carrier the rest of this code relies on appropriate
current derivative term to be zero */
if ( !OneCarrier ) {
@ -433,6 +435,8 @@ double
double dPsiDv;
double gTotal = 0.0;
IGNORE(pDevice);
if ( !tranAnalysis ) {
return( gTotal );
}

View File

@ -25,6 +25,8 @@ nodeCurrents(TWOelem *pElem, TWOnode *pNode, double *mun, double *mup,
double epsL = 0.0, epsR = 0.0, epsT = 0.0, epsB = 0.0;
double coeff1, coeff2;
IGNORE(pElem);
/* Find all four neighboring elements */
pElemTL = pNode->pTLElem;
pElemTR = pNode->pTRElem;

View File

@ -21,6 +21,8 @@ nodeFields(TWOelem *pElem, TWOnode *pNode, double *ex, double *ey)
double dxL = 0.0, dxR = 0.0, dyT = 0.0, dyB = 0.0;
double ef1, ef2, coeff1, coeff2;
IGNORE(pElem);
/* Find all four neighboring elements */
pElemTL = pNode->pTLElem;
pElemTR = pNode->pTRElem;

View File

@ -47,6 +47,10 @@ MOBsurfElec(TWOmaterial *info, TWOelem *pElem, double ex, double ey,
double dElDWx; /* Lateral Derivative x Component */
double dElDWy; /* Lateral Derivative y Component */
IGNORE(wx);
IGNORE(wy);
IGNORE(totalConc);
if ( pElem->surface ) { /* replace one field component with surface field */
if ( pElem->direction == 0 ) {
ey = es;
@ -247,6 +251,10 @@ MOBsurfHole(TWOmaterial *info, TWOelem *pElem, double ex, double ey,
double dElDWx; /* Lateral Derivative x Component */
double dElDWy; /* Lateral Derivative y Component */
IGNORE(wx);
IGNORE(wy);
IGNORE(totalConc);
if ( pElem->surface ) { /* replace one field component with surface field */
if ( pElem->direction == 0 ) {
ey = es;

View File

@ -96,6 +96,8 @@ void arg_set(wordlist *wl, struct comm *command)
void arg_display(wordlist *wl, struct comm *command)
{
IGNORE(wl);
IGNORE(command);
/* just return; display does the right thing */

View File

@ -156,6 +156,8 @@ com_jobs(wordlist *wl)
{
struct proc *p;
IGNORE(wl);
for (p = running; p; p = p->pr_next)
fprintf(cp_out, "%d\t%.70s\n", p->pr_pid, p->pr_name);
return;
@ -414,6 +416,7 @@ void
com_aspice(
wordlist *wl)
{
IGNORE(wl);
fprintf(cp_err, "Asynchronous spice jobs are not available.\n");
return;
}
@ -422,6 +425,7 @@ void
com_jobs(
wordlist *wl)
{
IGNORE(wl);
fprintf(cp_err, "Asynchronous spice jobs are not available.\n");
return;
}
@ -436,6 +440,7 @@ void
com_rspice(
wordlist *wl)
{
IGNORE(wl);
fprintf(cp_err, "Remote spice jobs are not available.\n");
return;
}

View File

@ -205,6 +205,8 @@ com_sttus(wordlist *wl)
{
struct dbcomm *d, *dc;
IGNORE(wl);
for (d = dbs; d; d = d->db_next) {
if (d->db_type == DB_TRACENODE) {
if (isatty(fileno(cp_out)))

View File

@ -13,6 +13,8 @@
void
com_dump(wordlist *wl)
{
IGNORE(wl);
if (!ft_curckt || !ft_curckt->ci_ckt) {
fprintf(cp_err, "Error: no circuit loaded.\n");
return;

View File

@ -951,6 +951,9 @@ static void measure_ERR3(void) {
}
void com_dotmeasure(wordlist *wl) {
IGNORE(wl);
/* simulation info */
// printf("*%s\n", plot_cur->pl_title);
// printf("\t %s, %s\n", plot_cur->pl_name, plot_cur->pl_date); // missing temp

View File

@ -17,6 +17,8 @@ com_rehash(wordlist *wl)
{
char *s;
IGNORE(wl);
if (!cp_dounixcom) {
fprintf(cp_err, "Error: unixcom not set.\n");
return;

View File

@ -14,6 +14,8 @@
void
com_state(wordlist *wl)
{
IGNORE(wl);
if (!ft_curckt) {
fprintf(cp_err, "Error: no circuit loaded.\n");
return;

View File

@ -90,6 +90,8 @@ void com_sysinfo(wordlist *wl)
int errorcode;
TesSystemInfo* info;
IGNORE(wl);
info = TMALLOC(TesSystemInfo, 1);
errorcode = tesCreateSystemInfo(info);

View File

@ -403,6 +403,9 @@ all_show_old(wordlist *wl, int mode)
int
printstr_n(dgen *dg, IFparm *p, int i)
{
IGNORE(p);
IGNORE(i);
if (dg->instance)
fprintf(cp_out," %*.*s", DEV_WIDTH, DEV_WIDTH, dg->instance->GENname);
else
@ -413,6 +416,9 @@ printstr_n(dgen *dg, IFparm *p, int i)
int
printstr_m(dgen *dg, IFparm *p, int i)
{
IGNORE(p);
IGNORE(i);
if (dg->model)
fprintf(cp_out," %*.*s", DEV_WIDTH, DEV_WIDTH, dg->model->GENmodName);
else
@ -567,12 +573,20 @@ listparam(wordlist *p, dgen *dg)
int bogus1(dgen *dg, IFparm *p, int i)
{
IGNORE(dg);
IGNORE(p);
IGNORE(i);
fprintf(cp_out," %*s", DEV_WIDTH, "---------");
return 0;
}
int bogus2(dgen *dg, IFparm *p, int i)
{
IGNORE(dg);
IGNORE(p);
IGNORE(i);
fprintf(cp_out," %*s", DEV_WIDTH, "?????????");
return 0;
}

View File

@ -39,6 +39,7 @@ controlled_exit(int status)
void
fperror(char *mess, int code)
{
IGNORE(code);
fprintf(cp_err, "%s: floating point exception.\n", mess);
return;
}

View File

@ -262,6 +262,9 @@ CKTfour(int ndata, /* number of entries in the Time and
int i;
int j;
double tmp;
IGNORE(Time);
/* clear output/computation arrays */
for(i=0;i<numFreq;i++) {

View File

@ -30,6 +30,8 @@ dgen_init(GENcircuit *ckt, wordlist *wl, int nomix, int flag, int model)
dgen *dg, *dg_save;
wordlist **prevp;
IGNORE(nomix);
dg = NEW(dgen);
dg->ckt = ckt;
dg->instance = NULL;

View File

@ -128,6 +128,8 @@ hlp_thandle(topic **parent)
void
hlp_tkillwin(topic *top)
{
IGNORE(top);
if (curtop)
curtop = curtop->parent;
if (curtop && !quitflag)

View File

@ -34,6 +34,9 @@ static Display *display;
static void handle_wm_messages(Widget w, XtPointer client_data, XEvent *event, Boolean *cont) {
topic *top = (topic *) client_data;
IGNORE(cont);
IGNORE(w);
if (event->type == ClientMessage
&& event->xclient.message_type == atom_wm_protocols
&& (Atom) event->xclient.data.l[0] == atom_wm_delete_window)
@ -228,6 +231,9 @@ newtopic(Widget w, caddr_t client_data, caddr_t call_data)
toplink *result = ((handle *) client_data)->result;
topic *newtop;
IGNORE(call_data);
IGNORE(w);
if (!(newtop = hlp_read(result->place))) {
fprintf(stderr, "Internal error: bad link\n");
}
@ -249,6 +255,9 @@ delete(Widget w, caddr_t client_data, caddr_t call_data)
topic *top = (topic *) client_data;
IGNORE(call_data);
IGNORE(w);
hlp_killfamily(top);
hlp_fixchildren(top);
}
@ -259,6 +268,9 @@ quit(Widget w, caddr_t client_data, caddr_t call_data)
topic *top = (topic *) client_data, *parent = top->parent;
IGNORE(call_data);
IGNORE(w);
while (parent && parent->parent) parent = parent->parent;
hlp_killfamily(parent ? parent : top);
}

View File

@ -28,7 +28,12 @@ int hlp_buttonstyle = BS_LEFT;
/* ARGSUSED */ void hlp_xkillwin(topic *top) { }
#endif
/* ARGSUSED */ void hlp_xwait(topic *top, bool on) { }
/* ARGSUSED */ void hlp_xwait(topic *top, bool on)
{
IGNORE(on);
IGNORE(top);
}
void hlp_xclosedisplay(void) {}
toplink * hlp_xhandle(topic **pp) { *pp = NULL; return (NULL); }

View File

@ -3144,6 +3144,8 @@ inp_sort_params( struct line *start_card, struct line *end_card, struct line *ca
struct line **ptr_array;
struct line **ptr_array_ordered;
IGNORE(end_card);
if ( start_card == NULL ) return;
/* determine the number of lines with .param */

View File

@ -116,6 +116,8 @@ com_bug(wordlist *wl)
{
char buf[BSIZE_SP];
IGNORE(wl);
if (!Bug_Addr || !*Bug_Addr) {
fprintf(cp_err, "Error: No address to send bug reports to.\n");
return;

View File

@ -31,6 +31,8 @@ com_removecirc(wordlist *wl)
char* namecircuit;
char buf[80];
IGNORE(wl);
/* Allocation of a temp wordlist */
wlist = (struct wordlist *)malloc(sizeof(struct wordlist));

View File

@ -925,6 +925,7 @@ nupa_fetchinstance (void)
void dump_symbols( tdico *dico_p )
{
IGNORE(dico_p);
fprintf (stderr, "Symbol table\n");
nupa_list_params ( stderr ) ;

View File

@ -433,6 +433,8 @@ define (tdico * dico,
SPICE_DSTRING vartemp ; /* vairable temp */
NGHASHPTR htable_p ; /* hash table */
IGNORE(pval);
spice_dstring_init(&vartemp) ;
if( dico->stack_depth > 0 ){

View File

@ -271,5 +271,12 @@ nutinp_source(char *file)
void
nutinp_dodeck(struct line *deck, char *tt, wordlist *end, bool reuse, struct line *options, char *filename)
{
IGNORE(filename);
IGNORE(options);
IGNORE(reuse);
IGNORE(end);
IGNORE(tt);
IGNORE(deck);
/* This was "ifdef notdef"-ed out, so I tossed it */
}

View File

@ -14,6 +14,14 @@
struct variable * nutif_getparam(CKTcircuit *ckt, char **name, char *param, int ind, int do_model)
{ return ((struct variable *) NULL); }
{
IGNORE(do_model);
IGNORE(ind);
IGNORE(param);
IGNORE(name);
IGNORE(ckt);
return ((struct variable *) NULL);
}

View File

@ -624,12 +624,21 @@ OUTpData(void *plotPtr, IFvalue *refValue, IFvalue *valuePtr)
int
OUTwReference(void *plotPtr, IFvalue *valuePtr, void **refPtr)
{
IGNORE(refPtr);
IGNORE(valuePtr);
IGNORE(plotPtr);
return (OK);
}
/* ARGSUSED */ /* until some code gets written */
int
OUTwData(void *plotPtr, int dataIndex, IFvalue *valuePtr, void *refPtr)
{
IGNORE(refPtr);
IGNORE(valuePtr);
IGNORE(dataIndex);
IGNORE(plotPtr);
return (OK);
}
@ -637,6 +646,7 @@ OUTwData(void *plotPtr, int dataIndex, IFvalue *valuePtr, void *refPtr)
int
OUTwEnd(void *plotPtr)
{
IGNORE(plotPtr);
return (OK);
}
@ -669,6 +679,11 @@ OUTendPlot(void *plotPtr)
int
OUTbeginDomain(void *plotPtr, IFuid refName, int refType, IFvalue *outerRefValue)
{
IGNORE(outerRefValue);
IGNORE(refType);
IGNORE(refName);
IGNORE(plotPtr);
return (OK);
}
@ -676,6 +691,7 @@ OUTbeginDomain(void *plotPtr, IFuid refName, int refType, IFvalue *outerRefValue
int
OUTendDomain(void *plotPtr)
{
IGNORE(plotPtr);
return (OK);
}
@ -690,6 +706,8 @@ OUTattributes(void *plotPtr, IFuid varName, int param, IFvalue *value)
GRIDTYPE type;
int i;
IGNORE(value);
if (param == OUT_SCALE_LIN)
type = GRID_LIN;
else if (param == OUT_SCALE_LOG)

View File

@ -163,6 +163,9 @@ exp:
static void
PPerror (YYLTYPE *locp, char **line, struct pnode **retval, char const *s)
{
U(line); U(retval);
IGNORE(locp);
IGNORE(line);
IGNORE(retval);
fprintf (stderr, "%s: %s\n", __func__, s);
}

View File

@ -526,6 +526,7 @@ char *
db_print_pnode_tree(struct pnode *p, char *print)
{
#if 1
IGNORE(print);
db_print_pnode(stdout, p);
return NULL;
#else

View File

@ -335,6 +335,9 @@ printem(wordlist *wl)
void
cp_ccom(wordlist *wlist, char *buf, bool esc)
{
IGNORE(wlist);
IGNORE(buf);
IGNORE(esc);
return;
}
#endif
@ -569,6 +572,8 @@ cp_kwswitch(int class, char *tree)
void
cp_ccrestart(bool kwords)
{
IGNORE(kwords);
/* Ack. */
return;
}

View File

@ -239,7 +239,10 @@ cp_hstat(void)
void
cp_rehash(char *pathlist, bool docc)
{ }
{
IGNORE(docc);
IGNORE(pathlist);
}
bool
cp_unixcom(wordlist *wl)

View File

@ -45,6 +45,9 @@ ft_agraf(double *xlims, double *ylims, struct dvec *xscale, struct plot *plot, s
int i, j, k;
int shift;
IGNORE(xdel);
IGNORE(ydel);
IGNORE(ylog);
/* ANSI C does not specify how many digits are in an exponent for %c
* We assumed it was 2. If it's more, shift starting position over.

View File

@ -236,6 +236,14 @@ ft_writesimple(double *xlims, double *ylims, char *filename, char *title, char *
char filename_data[128];
IGNORE(xlims);
IGNORE(ylims);
IGNORE(title);
IGNORE(xlabel);
IGNORE(ylabel);
IGNORE(gridtype);
IGNORE(plottype);
sprintf(filename_data, "%s.data", filename);
/* Sanity checking. */

View File

@ -83,6 +83,7 @@ gr_init(double *xlims, double *ylims, /* The size of the screen. */
wordlist *wl;
char *comb_title;
IGNORE(nplots);
if (!(graph = NewGraph())) {
return(FALSE);
@ -442,6 +443,7 @@ drawlegend(GRAPH *graph, int plotno, struct dvec *dv)
void
gr_end(struct dvec *dv)
{
IGNORE(dv);
DevUpdate();
}

View File

@ -483,6 +483,9 @@ drawlingrid(GRAPH *graph, char *units, int spacing, int nsp, double dst, double
double m, step;
char buf[LABEL_CHARS];
IGNORE(onedec);
IGNORE(mult);
/* i counts how many pixels we have drawn, and j counts which unit
* we are at.
*/
@ -1315,6 +1318,8 @@ arcset(GRAPH *graph, double rad, double prevrad, double irad, double iprevrad, d
double iangle = atan2((double) prevrad, (double) irad);
int x, xlab, ylab;
IGNORE(nlab);
/* Let's be lazy and just draw everything -- we won't get called too
* much and the circles get clipped anyway...
*/

View File

@ -203,6 +203,7 @@ Plt5_SetLinestyle(int linestyleid)
int
Plt5_SetColor(int colorid)
{
IGNORE(colorid);
/* do nothing */
return 0;

View File

@ -270,6 +270,8 @@ handlekeypressed(Widget w, caddr_t clientdata, caddr_t calldata)
char text[4];
int nbytes;
IGNORE(w);
nbytes = XLookupString(keyev, text, 4, NULL, NULL);
if (!nbytes) return;
/* write it */
@ -294,6 +296,8 @@ handlebuttonev(Widget w, caddr_t clientdata, caddr_t calldata)
XButtonEvent *buttonev = (XButtonEvent *) calldata;
IGNORE(w);
switch (buttonev->button) {
case Button1:
slopelocation((GRAPH *) clientdata, buttonev->x, buttonev->y);
@ -309,6 +313,9 @@ handlebuttonev(Widget w, caddr_t clientdata, caddr_t calldata)
static void handle_wm_messages(Widget w, XtPointer client_data, XEvent *event, Boolean *cont) {
GRAPH *graph = (GRAPH *) client_data;
IGNORE(cont);
IGNORE(w);
if (event->type == ClientMessage
&& event->xclient.message_type == atom_wm_protocols
&& (Atom) event->xclient.data.l[0] == atom_wm_delete_window) {
@ -551,6 +558,11 @@ X11_Text(char *text, int x, int y)
int
X11_DefineColor(int colorid, double red, double green, double blue)
{
IGNORE(blue);
IGNORE(green);
IGNORE(red);
IGNORE(colorid);
internalerror("X11_DefineColor not implemented.");
return 0;
}
@ -559,6 +571,9 @@ X11_DefineColor(int colorid, double red, double green, double blue)
int
X11_DefineLinestyle(int linestyleid, int mask)
{
IGNORE(mask);
IGNORE(linestyleid);
internalerror("X11_DefineLinestyle not implemented.");
return 0;
}
@ -830,6 +845,9 @@ zoomin(GRAPH *graph)
void
hardcopy(Widget w, caddr_t client_data, caddr_t call_data)
{
IGNORE(call_data);
IGNORE(w);
/* com_hardcopy() -> gr_resize() -> setcolor() dirung postscript
printing will act on currentgraph with a DEVDEP inherited from PSdevdep.
But currentgraph had not changed its devdep, which was derived from
@ -856,6 +874,9 @@ killwin(Widget w, caddr_t client_data, caddr_t call_data)
GRAPH *graph = (GRAPH *) client_data;
IGNORE(call_data);
IGNORE(w);
/* Iplots are done asynchronously */
DEVDEP(graph).isopen = 0;
/* MW. Not sure but DestroyGraph might free() to much - try Xt...() first */
@ -889,6 +910,8 @@ redraw(Widget w, caddr_t client_data, caddr_t call_data)
XRectangle rects[30];
int n = 1;
IGNORE(w);
DEVDEP(graph).isopen = 1;
@ -926,6 +949,8 @@ resize(Widget w, caddr_t client_data, caddr_t call_data)
GRAPH *graph = (GRAPH *) client_data;
XEvent ev;
IGNORE(call_data);
/* pull out all other exposure events
Also, get rid of other StructureNotify events on this window. */

View File

@ -383,6 +383,10 @@ ft_dorun(char *file)
bool
ft_getOutReq(FILE **fpp, struct plot **plotp, bool *binp, char *name, char *title)
{
IGNORE(title);
IGNORE(name);
IGNORE(plotp);
if (rawfileFp) {
*fpp = rawfileFp;
*binp = rawfileBinary;

View File

@ -52,6 +52,8 @@ com_resume(wordlist *wl)
bool ascii = AsciiRawFile;
/*end saj*/
IGNORE(wl);
/*saj fix segment*/
if (!ft_curckt) {
fprintf(cp_err, "Error: there aren't any circuits loaded.\n");
@ -172,6 +174,8 @@ com_rset(wordlist *wl)
{
struct variable *v, *next;
IGNORE(wl);
if (ft_curckt == NULL) {
fprintf(cp_err, "Error: there is no circuit loaded.\n");
return;

View File

@ -87,6 +87,8 @@ ft_sigintr(void)
RETSIGTYPE
sigfloat(int sig, int code)
{
IGNORE(sig);
gr_clean();
fperror("Error", code);
rewind(cp_out);

View File

@ -536,6 +536,8 @@ fputs("\t(Note that you must use an = to separate option name and value.)\n",
void
if_dump(CKTcircuit *ckt, FILE *file)
{
IGNORE(ckt);
/*void *cc = (void *) ckt;*/
fprintf(file,"diagnostic output dump unavailable.");
@ -618,6 +620,8 @@ spif_getparam_special(CKTcircuit *ckt,char **name,char *param,int ind,int do_mod
GENmodel *mod=(GENmodel *)NULL;
IFdevice *device;
IGNORE(do_model);
/* fprintf(cp_err, "Calling if_getparam(%s, %s)\n", *name, param); */
if (!param || (param && eq(param, "all")))
@ -1007,6 +1011,8 @@ parmlookup(IFdevice *dev, GENinstance **inptr, char *param, int do_model, int in
{
int i;
IGNORE(inptr);
/* First try the device questions... */
if (!do_model && dev->numInstanceParms) {
for (i = 0; i < *(dev->numInstanceParms); i++) {
@ -1052,6 +1058,8 @@ doask(CKTcircuit *ckt, int typecode, GENinstance *dev, GENmodel *mod, IFparm *op
static IFvalue pv;
int err;
IGNORE(typecode);
pv.iValue = ind; /* Sometimes this will be junk and ignored... */
/* fprintf(cp_err, "Calling doask(%d, %x, %x, %x)\n",
@ -1085,6 +1093,8 @@ doset(CKTcircuit *ckt, int typecode, GENinstance *dev, GENmodel *mod, IFparm *op
double *dptr;
int i;
IGNORE(typecode);
/* Count items */
if (opt->dataType & IF_VECTOR) {
n = nval.v.numValue = val->v_length;

View File

@ -18,6 +18,8 @@ com_where(wordlist *wl)
{
char *msg;
IGNORE(wl);
/*CDHW typing where with no current circuit caused crashes CDHW*/
if (!ft_curckt) {
fprintf(cp_err, "There is no current circuit\n");

View File

@ -237,6 +237,11 @@ IFfrontEnd nutmeginfo;
int
if_run(CKTcircuit *t, char *w, wordlist *s, INPtables *b)
{
IGNORE(b);
IGNORE(s);
IGNORE(w);
IGNORE(t);
return (0);
}
@ -244,18 +249,29 @@ if_run(CKTcircuit *t, char *w, wordlist *s, INPtables *b)
int
if_sens_run(CKTcircuit *t, wordlist *args, INPtables *tab)
{
IGNORE(tab);
IGNORE(args);
IGNORE(t);
return (0);
}
/* -------------------------------------------------------------------------- */
void
if_dump(CKTcircuit *ckt, FILE *fp)
{}
{
IGNORE(fp);
IGNORE(ckt);
return;
}
/* -------------------------------------------------------------------------- */
CKTcircuit *
if_inpdeck(struct line *deck, INPtables **tab)
{
IGNORE(tab);
IGNORE(deck);
return NULL;
}
@ -263,37 +279,69 @@ if_inpdeck(struct line *deck, INPtables **tab)
int
if_option(CKTcircuit *ckt, char *name, enum cp_types type, void *value)
{
IGNORE(value);
IGNORE(type);
IGNORE(name);
IGNORE(ckt);
return 0;
}
/* -------------------------------------------------------------------------- */
void if_cktfree(CKTcircuit *ckt, INPtables *tab)
{}
{
IGNORE(tab);
IGNORE(ckt);
return;
}
/* -------------------------------------------------------------------------- */
void if_setndnames(char *line)
{}
{
IGNORE(line);
}
/* -------------------------------------------------------------------------- */
char *
if_errstring(int code)
{
IGNORE(code);
return ("spice error");
}
/* -------------------------------------------------------------------------- */
void
if_setparam_model(CKTcircuit *ckt, char **name, char *val)
{}
{
IGNORE(val);
IGNORE(name);
IGNORE(ckt);
return;
}
void
if_setparam(CKTcircuit *ckt, char **name, char *param, struct dvec *val, int do_model)
{}
{
IGNORE(do_model);
IGNORE(val);
IGNORE(param);
IGNORE(name);
IGNORE(ckt);
return;
}
/* -------------------------------------------------------------------------- */
bool
if_tranparams(struct circ *ckt, double *start, double *stop, double *step)
{
IGNORE(step);
IGNORE(stop);
IGNORE(start);
IGNORE(ckt);
return (FALSE);
}
@ -301,6 +349,9 @@ if_tranparams(struct circ *ckt, double *start, double *stop, double *step)
struct variable *
if_getstat(CKTcircuit *ckt, char *name)
{
IGNORE(name);
IGNORE(ckt);
return (NULL);
}
@ -322,21 +373,30 @@ Ipc_Status_t ipc_send_errchk(void ) {
}
Ipc_Status_t ipc_get_line(char *str , int *len , Ipc_Wait_t wait ){
Ipc_Status_t x = IPC_STATUS_OK;
IGNORE(str);
IGNORE(len);
IGNORE(wait);
return(x);
}
struct line *ENHtranslate_poly(struct line *deck){
IGNORE(deck);
return(NULL);
}
int load_opus(char *name){
IGNORE(name);
return(1);
}
char *MIFgettok(char **s){
IGNORE(s);
return(NULL);
}
void EVTprint(wordlist *wl){
IGNORE(wl);
return;
}
struct dvec *EVTfindvec(char *node){
IGNORE(node);
return NULL;
}
#endif /* XSPICE */

View File

@ -249,6 +249,8 @@ cx_rnd(void *data, short int type, int length, int *newlength, short int *newtyp
void *
cx_sunif(void *data, short int type, int length, int *newlength, short int *newtype)
{
IGNORE(data);
*newlength = length;
checkseed();
if (type == VF_COMPLEX) {
@ -278,6 +280,8 @@ cx_sunif(void *data, short int type, int length, int *newlength, short int *newt
void *
cx_sgauss(void *data, short int type, int length, int *newlength, short int *newtype)
{
IGNORE(data);
*newlength = length;
checkseed();
if (type == VF_COMPLEX) {
@ -390,6 +394,9 @@ cx_length(void *data, short int type, int length, int *newlength, short int *new
{
double *d;
IGNORE(data);
IGNORE(type);
*newlength = 1;
*newtype = VF_REAL;
d = alloc_d(1);
@ -410,6 +417,8 @@ cx_vector(void *data, short int type, int length, int *newlength, short int *new
int i, len;
double *d;
IGNORE(length);
if (type == VF_REAL)
len = (int)FTEcabs(*dd);
else
@ -435,6 +444,8 @@ cx_unitvec(void *data, short int type, int length, int *newlength, short int *ne
int i, len;
double *d;
IGNORE(length);
if (type == VF_REAL)
len = (int)FTEcabs(*dd);
else

View File

@ -148,6 +148,8 @@ SMPclear(SMPmatrix *Matrix)
spClear( Matrix );
}
#define IGNORE(x) (void)x
/*
* SMPcLUfac()
*/
@ -155,6 +157,8 @@ SMPclear(SMPmatrix *Matrix)
int
SMPcLUfac(SMPmatrix *Matrix, double PivTol)
{
IGNORE(PivTol);
spSetComplex( Matrix );
return spFactor( Matrix );
}
@ -166,6 +170,7 @@ SMPcLUfac(SMPmatrix *Matrix, double PivTol)
int
SMPluFac(SMPmatrix *Matrix, double PivTol, double Gmin)
{
IGNORE(PivTol);
spSetReal( Matrix );
LoadGmin( Matrix, Gmin );
return spFactor( Matrix );
@ -203,6 +208,9 @@ void
SMPcaSolve(SMPmatrix *Matrix, double RHS[], double iRHS[],
double Spare[], double iSpare[])
{
IGNORE(iSpare);
IGNORE(Spare);
spSolveTransposed( Matrix, RHS, RHS, iRHS, iRHS );
}
@ -213,6 +221,9 @@ void
SMPcSolve(SMPmatrix *Matrix, double RHS[], double iRHS[],
double Spare[], double iSpare[])
{
IGNORE(iSpare);
IGNORE(Spare);
spSolve( Matrix, RHS, RHS, iRHS, iRHS );
}
@ -222,6 +233,8 @@ SMPcSolve(SMPmatrix *Matrix, double RHS[], double iRHS[],
void
SMPsolve(SMPmatrix *Matrix, double RHS[], double Spare[])
{
IGNORE(Spare);
spSolve( Matrix, RHS, RHS, (spREAL*)NULL, (spREAL*)NULL );
}
@ -271,6 +284,8 @@ SMPpreOrder(SMPmatrix *Matrix)
void
SMPprint(SMPmatrix *Matrix, FILE *File)
{
IGNORE(File);
spPrint( Matrix, 0, 1, 1 );
}

View File

@ -68,6 +68,7 @@ IFsimulator SIMinfo = {
void
NDEVacct(CKTcircuit *ckt, FILE *file)
{
IGNORE(ckt);
fprintf(file, "Ouch, you have called NDEV from ngnutmeg\n");
}
#endif

View File

@ -437,18 +437,23 @@ void cp_pushcontrol(void) { }
void cp_popcontrol(void) { }
void out_init(void) { }
void cp_doquit(void) { exit(0); }
void cp_usrvars(struct variable **v1, struct variable **v2) { return; }
int cp_evloop(char *s) { return (0); }
void cp_ccon(bool o) { }
char *if_errstring(int c) { return ("error"); }
void cp_usrvars(struct variable **v1, struct variable **v2) { IGNORE(v2); IGNORE(v1); return; }
int cp_evloop(char *s) { IGNORE(s); return (0); }
void cp_ccon(bool o) { IGNORE(o); }
char*if_errstring(int c) { IGNORE(c); return ("error"); }
#ifndef out_printf
void out_printf(char *fmt, ...) { }
void out_printf(char *fmt, ...) { IGNORE(fmt); }
#endif
void out_send(char *string) {}
struct variable * cp_enqvar(char *word) { return (NULL); }
struct dvec *vec_get(const char *word) { return (NULL); }
void cp_ccom(wordlist *w, char *b, bool e) { return; }
int cp_usrset(struct variable *v, bool i) { return(US_OK); }
void out_send(char *string) { IGNORE(string); }
struct variable * cp_enqvar(char *word) { IGNORE(word); return (NULL); }
struct dvec *vec_get(const char *word) { IGNORE(word); return (NULL); }
void cp_ccom(wordlist *w, char *b, bool e) {
IGNORE(e);
IGNORE(b);
IGNORE(w); return; }
int cp_usrset(struct variable *v, bool i) {
IGNORE(i);
IGNORE(v); return(US_OK); }
int disptype;

View File

@ -16,6 +16,8 @@ Author: 1985 Thomas L. Quarles
int
ACaskQuest(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(ckt);
switch(which) {
case AC_START:

View File

@ -15,6 +15,8 @@ Author: 1985 Thomas L. Quarles
int
ACsetParm(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(ckt);
switch(which) {
case AC_START:

View File

@ -24,6 +24,8 @@ Author: 1985 Thomas L. Quarles
int
CKTacct(CKTcircuit *ckt, JOB *anal, int which, IFvalue *val)
{
IGNORE(anal);
switch(which) {
case OPT_EQNS:

View File

@ -20,6 +20,8 @@ CKTaskAnalQ(CKTcircuit *ckt, JOB *analPtr, int parm, IFvalue *value, IFvalue *se
{
int type = analPtr->JOBtype;
IGNORE(selector);
if((analInfo[type]->askQuest) == NULL) return(E_BADPARM);
return( (*(analInfo[type]->askQuest))(ckt,analPtr,parm,value));
}

View File

@ -21,6 +21,9 @@ Author: 1985 Thomas L. Quarles
int
CKTaskNodQst(CKTcircuit *ckt, CKTnode *node, int parm, IFvalue *value, IFvalue *selector)
{
IGNORE(ckt);
IGNORE(selector);
if(!node) return(E_BADPARM);
switch(parm) {

View File

@ -17,6 +17,9 @@ CKTdelTask(CKTcircuit *ckt, TSKtask *task)
{
JOB *job;
JOB *old=NULL;
IGNORE(ckt);
for(job = task->jobs; job; job=job->JOBnextJob){
if(old) FREE(old);
old=job;

View File

@ -20,5 +20,8 @@ Author: 1985 Thomas L. Quarles
int
CKTdltInst(CKTcircuit *ckt, void *instance)
{
IGNORE(ckt);
IGNORE(instance);
return(E_UNSUPP);
}

View File

@ -25,6 +25,10 @@ CKTfndAnal(CKTcircuit *ckt, int *analIndex, JOB **anal, IFuid name, TSKtask *inT
TSKtask *task = /* fixme, drop that */ inTask;
JOB *here;
IGNORE(ckt);
IGNORE(analIndex);
IGNORE(taskName);
for (here = task->jobs; here; here = here->JOBnextJob) {
if(strcmp(here->JOBname,name)==0) {
if(anal) *anal = here;

View File

@ -20,5 +20,9 @@ Author: 1985 Thomas L. Quarles
int
CKTfndTask(CKTcircuit *ckt, TSKtask **taskPtr, IFuid taskName)
{
IGNORE(ckt);
IGNORE(taskPtr);
IGNORE(taskName);
return(E_UNSUPP);
}

View File

@ -19,6 +19,9 @@ int
CKTmodAsk(CKTcircuit *ckt, GENmodel *modfast, int which, IFvalue *value, IFvalue *selector)
{
int type = modfast->GENmodType;
IGNORE(selector);
if((*DEVices[type]).DEVmodAsk) {
return( (*((*DEVices[type]).DEVmodAsk)) (ckt,
modfast, which, value) );

View File

@ -21,6 +21,8 @@ CKTmkNode(CKTcircuit *ckt, CKTnode **node)
{
CKTnode *mynode;
IGNORE(ckt);
mynode = TMALLOC(CKTnode, 1);
if(mynode == (CKTnode *)NULL) return(E_NOMEM);
mynode->next = (CKTnode *)NULL;

View File

@ -20,6 +20,9 @@ CKTmodParam(CKTcircuit *ckt, GENmodel *modfast, int param, IFvalue *val, IFvalue
{
int type = modfast->GENmodType;
IGNORE(ckt);
IGNORE(selector);
if (((*DEVices[type]).DEVmodParam)) {
return(((*((*DEVices[type]).DEVmodParam)) (param,val,
modfast)));

View File

@ -18,6 +18,8 @@ extern SPICEanalysis *analInfo[];
int
CKTnewAnal(CKTcircuit *ckt, int type, IFuid name, JOB **analPtr, TSKtask *taskPtr)
{
IGNORE(ckt);
if(type==0) {
/* special case for analysis type 0 == option card */
*analPtr = &(taskPtr->taskOptions); /* pointer to the task itself */

View File

@ -24,6 +24,8 @@ CKTnewTask(CKTcircuit *ckt, TSKtask **taskPtr, IFuid taskName, TSKtask **defPtr)
{
TSKtask *tsk, *def=NULL;
IGNORE(ckt);
*taskPtr = TMALLOC(TSKtask, 1);
if(*taskPtr==NULL) return(E_NOMEM);
tsk = *taskPtr;

View File

@ -393,6 +393,8 @@ gillespie_src (CKTcircuit * ckt, long int firstmode,
double *OldRhsOld, *OldCKTstate0;
CKTnode *n;
IGNORE(iterlim);
ckt->CKTmode = firstmode;
(*(SPfrontEnd->IFerror)) (ERR_INFO,
"Starting source stepping", (IFuid *) NULL);
@ -599,6 +601,8 @@ spice3_src (CKTcircuit * ckt, long int firstmode,
int converged, i;
IGNORE(iterlim);
ckt->CKTmode = firstmode;
(*(SPfrontEnd->IFerror)) (ERR_INFO,
"Starting source stepping", (IFuid *) NULL);

View File

@ -20,6 +20,9 @@ CKTparam(CKTcircuit *ckt, GENinstance *fast, int param, IFvalue *val, IFvalue *s
{
int type;
GENinstance *myfast = /*fixme*/ fast;
IGNORE(ckt);
type = myfast->GENmodPtr->GENmodType;
if(((*DEVices[type]).DEVparam)) {
return(((*((*DEVices[type]).DEVparam)) (param,val,myfast,selector)));

View File

@ -31,6 +31,8 @@ CKTpModName(char *parm, IFvalue *val, CKTcircuit *ckt, int type, IFuid name, GEN
int error; /* int to store evaluate error return codes in */
int i;
IGNORE(name);
for(i=0;i<(*(*DEVices[type]).DEVpublic.numModelParms);i++) {
if(strcmp(parm,((*DEVices[type]).DEVpublic.modelParms[i].keyword))==0){
error = CKTmodParam(ckt, *modfast,

View File

@ -33,6 +33,8 @@ CKTpName(char *parm, IFvalue *val, CKTcircuit *ckt, int dev, char *name, GENinst
int error; /* int to store evaluate error return codes in */
int i;
IGNORE(name);
for(i=0;i<(*(*DEVices[dev]).DEVpublic.numInstanceParms);i++) {
if(strcmp(parm,
((*DEVices[dev]).DEVpublic.instanceParms[i].keyword))==0) {

View File

@ -781,6 +781,8 @@ CKTpzVerify(PZtrial **set, PZtrial *new_trial)
PZtrial *t, *prev;
IGNORE(set);
NZeros += 1;
if (new_trial->s.imag != 0.0)
NZeros += 1;

View File

@ -719,6 +719,8 @@ sens_getp(sgen *sg, CKTcircuit *ckt, IFvalue *val)
{
int pid;
IGNORE(ckt);
error = 0;
if (sg->is_instparam) {
@ -763,6 +765,8 @@ sens_setp(sgen *sg, CKTcircuit *ckt, IFvalue *val)
{
int pid;
IGNORE(ckt);
error = 0;
if (sg->is_instparam) {

View File

@ -19,6 +19,9 @@ int
CKTsetAnalPm(CKTcircuit *ckt, JOB *analPtr, int parm, IFvalue *value, IFvalue *selector)
{
int type = analPtr->JOBtype;
IGNORE(selector);
if((analInfo[type]->setParm)==NULL) return(E_BADPARM);
return( (*(analInfo[type]->setParm))(ckt,analPtr,parm,value) );
}

View File

@ -20,6 +20,9 @@ Author: 1985 Thomas L. Quarles
int
CKTsetNodPm(CKTcircuit *ckt, CKTnode *node, int parm, IFvalue *value, IFvalue *selector)
{
IGNORE(ckt);
IGNORE(selector);
if(!node) return(E_BADPARM);
switch(parm) {

View File

@ -179,16 +179,19 @@ sgen_next(sgen **xsg)
int set_inst(sgen *sg)
{
IGNORE(sg);
return 1;
}
int set_model(sgen *sg)
{
IGNORE(sg);
return 1;
}
int set_dev(sgen *sg)
{
IGNORE(sg);
return 1;
}

View File

@ -32,6 +32,8 @@ CKTsetOpt(CKTcircuit *ckt, JOB *anal, int opt, IFvalue *val)
{
TSKtask *task = (TSKtask *)anal;
IGNORE(ckt);
switch(opt) {
case OPT_NOOPITER:

View File

@ -14,6 +14,8 @@ Author: 1988 Jaijeet S Roychowdhury
int
DaskQuest(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(ckt);
switch(which) {
case D_START:

View File

@ -14,6 +14,10 @@ Author: 1985 Thomas L. Quarles
int
DCOaskQuest(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(ckt);
IGNORE(anal);
IGNORE(which);
IGNORE(value);
return(E_BADPARM);
}

View File

@ -26,6 +26,8 @@ DCop(CKTcircuit *ckt, int notused)
IFuid *nameList; /* va: tmalloc'ed list */
int numNames;
void *plot = NULL;
IGNORE(notused);
#ifdef XSPICE
/* gtri - add - wbk - 12/19/90 - Add IPC stuff and initialize anal_init and anal_type */

View File

@ -16,6 +16,10 @@ Author: 1985 Thomas L. Quarles
int
DCOsetParm(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(ckt);
IGNORE(anal);
IGNORE(value);
switch(which) {
default:

View File

@ -14,6 +14,9 @@ Author: 1985 Thomas L. Quarles
int
DCTaskQuest(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(ckt);
IGNORE(anal);
IGNORE(value);
switch(which) {
default:

View File

@ -16,6 +16,9 @@ int
DCTsetParm(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
TRCV* cv= (TRCV*)anal;
IGNORE(ckt);
switch(which) {
case DCT_START1:

View File

@ -56,6 +56,8 @@ DISTOan(CKTcircuit *ckt, int restart)
double time,time1;
#endif
IGNORE(restart);
/* start at beginning */

View File

@ -14,6 +14,8 @@ DkerProc(int type, double *rPtr, double *iPtr, int size, DISTOAN *job)
{
int i;
IGNORE(job);
switch(type) {
case D_F1:

View File

@ -15,6 +15,8 @@ Author: 1988 Jaijeet S Roychowdhury
int
DsetParm(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(ckt);
switch(which) {
case D_START:

View File

@ -13,6 +13,8 @@ Author: 1987 Gary W. Ng
int
NaskQuest(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(ckt);
switch(which) {
case N_OUTPUT:

View File

@ -14,6 +14,8 @@ Author: 1987 Gary W. Ng
int
NsetParm(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(ckt);
switch(which) {
case N_OUTPUT:

View File

@ -23,6 +23,8 @@ PZan(CKTcircuit *ckt, int reset)
IFuid *nameList;
void *plot = NULL;
IGNORE(reset);
error = PZinit(ckt);
if (error != OK) return error;

View File

@ -16,6 +16,8 @@ Author: 1985 Thomas L. Quarles
int
PZsetParm(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(ckt);
switch(which) {
case PZ_NODEI:

View File

@ -15,6 +15,8 @@ SENSask(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
SENS_AN *sinfo = (SENS_AN *) anal;
IGNORE(ckt);
switch (which) {
case SENS_START:

View File

@ -16,6 +16,8 @@ SENSsetParam(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
SENS_AN *sinfo = (SENS_AN *) anal;
IGNORE(ckt);
switch(which) {
case SENS_POS:

View File

@ -38,6 +38,7 @@ TFanal(CKTcircuit *ckt, int restart)
#define inuid (uids[1]) /* unique id for the transfer function input imp. */
#define outuid (uids[2]) /* unique id for the transfer function out. imp. */
IGNORE(restart);
/* first, find the operating point */
converged = CKTop(ckt,

View File

@ -14,6 +14,10 @@ Author: 1985 Thomas L. Quarles
int
TFaskQuest(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(value);
IGNORE(anal);
IGNORE(ckt);
switch(which) {
default:

View File

@ -15,6 +15,8 @@ Author: 1985 Thomas L. Quarles
int
TFsetParm(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(ckt);
switch(which) {
case TF_OUTPOS:

View File

@ -13,6 +13,8 @@ Author: 1985 Thomas L. Quarles
int
TRANaskQuest(CKTcircuit *ckt, JOB *anal, int which,IFvalue *value)
{
IGNORE(ckt);
switch(which) {
case TRAN_TSTOP:

View File

@ -15,6 +15,8 @@ Author: 1985 Thomas L. Quarles
int
TRANsetParm(CKTcircuit *ckt, JOB *anal, int which, IFvalue *value)
{
IGNORE(ckt);
switch(which) {
case TRAN_TSTOP:

View File

@ -30,6 +30,8 @@ ASRCacLoad(GENmodel *inModel, CKTcircuit *ckt)
double *derivs;
double rhs;
IGNORE(ckt);
/* loop through all the Arbitrary source models */
for( ; model != NULL; model = model->ASRCnextModel ) {

View File

@ -26,6 +26,8 @@ ASRCask(CKTcircuit *ckt, GENinstance *instPtr, int which, IFvalue *value, IFvalu
{
ASRCinstance *here = (ASRCinstance*)instPtr;
IGNORE(select);
switch(which) {
case ASRC_CURRENT:
value->tValue = here->ASRCtype == ASRC_CURRENT ?

View File

@ -18,6 +18,9 @@ int
ASRCparam(int param, IFvalue *value, GENinstance *fast, IFvalue *select)
{
ASRCinstance *here = (ASRCinstance*)fast;
IGNORE(select);
switch(param) {
case ASRC_VOLTAGE:
here->ASRCtype = ASRC_VOLTAGE;

View File

@ -23,6 +23,8 @@ ASRCpzLoad(GENmodel *inModel, CKTcircuit *ckt, SPcomplex *s)
double value;
int i, j;
IGNORE(s);
/* loop through all the Arbitrary source models */
for( ; model != NULL; model = model->ASRCnextModel ) {

View File

@ -27,6 +27,8 @@ ASRCsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
int v_first;
CKTnode *tmp;
IGNORE(states);
/* loop through all the user models*/
for( ; model != NULL; model = model->ASRCnextModel ) {

View File

@ -21,6 +21,8 @@ BJTmAsk(CKTcircuit *ckt, GENmodel *instPtr, int which, IFvalue *value)
{
BJTmodel *here = (BJTmodel*)instPtr;
IGNORE(ckt);
switch(which) {
case BJT_MOD_TNOM:
value->rValue = here->BJTtnom-CONSTCtoK;

Some files were not shown because too many files have changed in this diff Show More