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

Added some code to debug breakpoints.

This commit is contained in:
pnenzi 2005-04-25 08:50:22 +00:00
parent 5df827ae4e
commit f72fbdce74
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
src/spicelib/analysis/cktsetbk.c
View File

@ -14,7 +14,8 @@ Author: 1985 Thomas L. Quarles
#include "ifsim.h" #include "ifsim.h"
#include "sperror.h" #include "sperror.h"
/* define to enable breakpoint trace code */
/ *#define TRACE_BREAKPOINT */
int int
CKTsetBreak(CKTcircuit *ckt, double time) CKTsetBreak(CKTcircuit *ckt, double time)
@ -22,6 +23,10 @@ CKTsetBreak(CKTcircuit *ckt, double time)
double *tmp; double *tmp;
int i,j; int i,j;
#ifdef TRACE_BREAKPOINT
printf("[t:%e] \t want breakpoint for t = %e\n", ckt->CKTtime, time);
#endif
if(ckt->CKTtime > time) { if(ckt->CKTtime > time) {
(*(SPfrontEnd->IFerror))(ERR_PANIC,"breakpoint in the past - HELP!", (*(SPfrontEnd->IFerror))(ERR_PANIC,"breakpoint in the past - HELP!",
(IFuid *)NULL); (IFuid *)NULL);
@ -31,11 +36,20 @@ CKTsetBreak(CKTcircuit *ckt, double time)
if(*(ckt->CKTbreaks+i)>time) { /* passed */ if(*(ckt->CKTbreaks+i)>time) { /* passed */
if((*(ckt->CKTbreaks+i)-time) <= ckt->CKTminBreak) { if((*(ckt->CKTbreaks+i)-time) <= ckt->CKTminBreak) {
/* very close together - take earlier point */ /* very close together - take earlier point */
#ifdef TRACE_BREAKPOINT
printf("[t:%e] \t %e replaces %e\n", ckt->CKTtime, time,
*(ckt->CKTbreaks+i));
CKTbreakDump(ckt);
#endif
*(ckt->CKTbreaks+i) = time; *(ckt->CKTbreaks+i) = time;
return(OK); return(OK);
} }
if(time-*(ckt->CKTbreaks+i-1) <= ckt->CKTminBreak) { if(time-*(ckt->CKTbreaks+i-1) <= ckt->CKTminBreak) {
/* very close together, but after, so skip */ /* very close together, but after, so skip */
#ifdef TRACE_BREAKPOINT
printf("[t:%e] \t %e skipped\n", ckt->CKTtime, time);
CKTbreakDump(ckt);
#endif
return(OK); return(OK);
} }
/* fits in middle - new array & insert */ /* fits in middle - new array & insert */
@ -45,18 +59,27 @@ CKTsetBreak(CKTcircuit *ckt, double time)
*(tmp+j) = *(ckt->CKTbreaks+j); *(tmp+j) = *(ckt->CKTbreaks+j);
} }
*(tmp+i)=time; *(tmp+i)=time;
#ifdef TRACE_BREAKPOINT
printf("[t:%e] \t %e added\n", ckt->CKTtime, time);
CKTbreakDump(ckt);
#endif
for(j=i;j<ckt->CKTbreakSize;j++) { for(j=i;j<ckt->CKTbreakSize;j++) {
*(tmp+j+1) = *(ckt->CKTbreaks+j); *(tmp+j+1) = *(ckt->CKTbreaks+j);
} }
FREE(ckt->CKTbreaks); FREE(ckt->CKTbreaks);
ckt->CKTbreakSize++; ckt->CKTbreakSize++;
ckt->CKTbreaks=tmp; ckt->CKTbreaks=tmp;
return(OK); return(OK);
} }
} }
/* never found it - beyond end of time - extend out idea of time */ /* never found it - beyond end of time - extend out idea of time */
if(time-ckt->CKTbreaks[ckt->CKTbreakSize-1]<=ckt->CKTminBreak) { if(time-ckt->CKTbreaks[ckt->CKTbreakSize-1]<=ckt->CKTminBreak) {
/* very close tegether - keep earlier, throw out new point */ /* very close tegether - keep earlier, throw out new point */
#ifdef TRACE_BREAKPOINT
printf("[t:%e] \t %e skipped (at the end)\n", ckt->CKTtime, time);
CKTbreakDump(ckt);
#endif
return(OK); return(OK);
} }
/* fits at end - grow array & add on */ /* fits at end - grow array & add on */
@ -64,5 +87,9 @@ CKTsetBreak(CKTcircuit *ckt, double time)
(ckt->CKTbreakSize+1)*sizeof(double)); (ckt->CKTbreakSize+1)*sizeof(double));
ckt->CKTbreakSize++; ckt->CKTbreakSize++;
ckt->CKTbreaks[ckt->CKTbreakSize-1]=time; ckt->CKTbreaks[ckt->CKTbreakSize-1]=time;
#ifdef TRACE_BREAKPOINT
printf("[t:%e] \t %e added at end\n", ckt->CKTtime, time);
CKTbreakDump(ckt);
#endif
return(OK); return(OK);
} }