projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Removed some vertical whitespace and added some horizontal
[pspp]
/
src
/
q2c.c
diff --git
a/src/q2c.c
b/src/q2c.c
index 197fd8d9ca00a843f9b9dee7306496c9c58832a2..a1bc26ba8ef042b0bec1b362a22dc9f989a3c2b4 100644
(file)
--- a/
src/q2c.c
+++ b/
src/q2c.c
@@
-1097,6
+1097,10
@@
dump_declarations (void)
dump (0, "long n_%s;", st_lower (sbc->name));
break;
dump (0, "long n_%s;", st_lower (sbc->name));
break;
+ case SBC_DBL:
+ dump (0, "double n_%s;", st_lower (sbc->name));
+ break;
+
default:;
/* nothing */
}
default:;
/* nothing */
}
@@
-1537,11
+1541,19
@@
dump_subcommand (const subcommand *sbc)
if (sbc->restriction)
dump (-1, "}");
}
if (sbc->restriction)
dump (-1, "}");
}
+ else if (sbc->type == SBC_DBL)
+ {
+ dump (1, "if (!lex_force_num ())");
+ dump (0, "goto lossage;");
+ dump (-1, "p->n_%s = lex_double ();", st_lower (sbc->name));
+ dump (0, "lex_get();");
+ }
else if (sbc->type == SBC_INT)
{
dump (1, "if (!lex_force_int ())");
dump (0, "goto lossage;");
dump (-1, "p->n_%s = lex_integer ();", st_lower (sbc->name));
else if (sbc->type == SBC_INT)
{
dump (1, "if (!lex_force_int ())");
dump (0, "goto lossage;");
dump (-1, "p->n_%s = lex_integer ();", st_lower (sbc->name));
+ dump (0, "lex_get();");
}
else if (sbc->type == SBC_PINT)
{
}
else if (sbc->type == SBC_PINT)
{