X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fq2c.c;h=a1bc26ba8ef042b0bec1b362a22dc9f989a3c2b4;hb=8b811199c8a79dba237254527012b43773e60975;hp=197fd8d9ca00a843f9b9dee7306496c9c58832a2;hpb=3a7fba81ceae5b049d0f7d671e9e3c3c43bbf703;p=pspp

diff --git a/src/q2c.c b/src/q2c.c
index 197fd8d9ca..a1bc26ba8e 100644
--- 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;
 
+	  case SBC_DBL:
+	    dump (0, "double n_%s;", st_lower (sbc->name));
+	    break;
+
 	  default:;
 	    /* nothing */
 	  }
@@ -1537,11 +1541,19 @@ dump_subcommand (const subcommand *sbc)
       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));
+      dump (0, "lex_get();");
     }
   else if (sbc->type == SBC_PINT)
     {