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, local scope for some variables

This commit is contained in:
rlar 2013-05-29 22:37:16 +02:00
parent d84f3af2d3
commit 40343f164b
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/frontend/inpcom.c
View File

@ -928,10 +928,9 @@ readline(FILE *fd)
static void
inp_fix_gnd_name(struct line *c)
{
char *gnd;
for (; c; c = c->li_next) {
gnd = c->li_line;
char *gnd = c->li_line;
// if there is a comment or no gnd, go to next line
if ((*gnd == '*') || (strstr(gnd, "gnd") == NULL))
continue;
@ -1195,7 +1194,6 @@ static void
inp_fix_macro_param_func_paren_io(struct line *card)
{
char *str_ptr, *new_str;
bool is_func = FALSE;
for (; card; card = card->li_next) {
@ -1237,8 +1235,8 @@ inp_fix_macro_param_func_paren_io(struct line *card)
card->li_line = inp_remove_ws(card->li_line); /* remove the extra white spaces just introduced */
}
}
is_func = FALSE;
if (ciprefix(".param", card->li_line)) {
bool is_func = FALSE;
str_ptr = skip_non_ws(card->li_line); // skip over .param
str_ptr = skip_ws(str_ptr);
while (!isspace(*str_ptr) && *str_ptr != '=') {
@ -1354,12 +1352,12 @@ get_subckts_for_subckt(struct line *start_card, char *subckt_name,
bool has_models)
{
struct line *card;
char *line = NULL, *curr_subckt_name, *inst_subckt_name, *model_name, *new_names[100];
char *curr_subckt_name, *inst_subckt_name, *model_name, *new_names[100];
bool found_subckt = FALSE, have_subckt = FALSE, found_model = FALSE;
int i, num_terminals = 0, tmp_cnt = 0;
for (card = start_card; card; card = card->li_next) {
line = card->li_line;
char *line = card->li_line;
if (*line == '*')
continue;
@ -1474,7 +1472,7 @@ static void
comment_out_unused_subckt_models(struct line *start_card, int no_of_lines)
{
struct line *card;
char **used_subckt_names, **used_model_names, *line = NULL, *subckt_name, *model_name;
char **used_subckt_names, **used_model_names, *subckt_name, *model_name;
int num_used_subckt_names = 0, num_used_model_names = 0, i = 0, num_terminals = 0, tmp_cnt = 0;
bool processing_subckt = FALSE, found_subckt = FALSE, remove_subckt = FALSE, found_model = FALSE, has_models = FALSE;
int skip_control = 0, nested_subckt = 0;
@ -1496,7 +1494,7 @@ comment_out_unused_subckt_models(struct line *start_card, int no_of_lines)
}
for (card = start_card; card; card = card->li_next) {
line = card->li_line;
char *line = card->li_line;
if (*line == '*')
continue;
@ -1587,7 +1585,7 @@ comment_out_unused_subckt_models(struct line *start_card, int no_of_lines)
/* comment out any unused subckts, currently only at top level */
for (card = start_card; card; card = card->li_next) {
line = card->li_line;
char *line = card->li_line;
if (*line == '*')
continue;
@ -1824,11 +1822,10 @@ inp_fix_ternary_operator_str(char *line, bool all)
static void
inp_fix_ternary_operator(struct line *card)
{
char *line;
bool found_control = FALSE;
for (; card; card = card->li_next) {
line = card->li_line;
char *line = card->li_line;
/* exclude replacement of ternary function between .control and .endc */
if (ciprefix(".control", line))
@ -2236,7 +2233,6 @@ static void
inp_fix_for_numparam(struct line *c)
{
bool found_control = FALSE;
char *str_ptr;
for (; c; c = c->li_next) {
if (ciprefix(".lib", c->li_line) || ciprefix("*lib", c->li_line) || ciprefix("*inc", c->li_line))
@ -2255,7 +2251,7 @@ inp_fix_for_numparam(struct line *c)
if ((inp_compat_mode == COMPATMODE_ALL) || (inp_compat_mode == COMPATMODE_PS))
if (ciprefix(".subckt", c->li_line) || ciprefix("x", c->li_line)) {
/* remove params: */
str_ptr = strstr(c->li_line, "params:");
char *str_ptr = strstr(c->li_line, "params:");
if (str_ptr)
memcpy(str_ptr, " ", 7);
}