Added Levene test. Added T-TEST section to pspp.texi

[pspp-builds.git] / src / expr-opt.c

diff --git a/src/expr-opt.c b/src/expr-opt.c
index 9d1537733fa0ede071e3cc2adb05f6367dd5c2b5..40358a77e76108159ef41e45467b1e4e0a5260f8 100644 (file)
--- a/src/expr-opt.c
+++ b/src/expr-opt.c
@@ -31,6 +31,7 @@
 #include "error.h"
 #include "julcal/julcal.h"
 #include "misc.h"
+#include "pool.h"
 #include "stats.h"
 #include "str.h"
 #include "var.h"
@@ -834,6 +835,7 @@ evaluate_tree (struct nonterm_node * n)
        f.d = (int) n->arg[3];
        v.f = n0;
 
+        assert ((formats[f.type].cat & FCAT_STRING) == 0);
        data_out (strbuf, &f, &v);
        n = repl_str_con (n, strbuf, f.w);
       }
@@ -1027,12 +1029,7 @@ dump_expression (union any_node * n, struct expression * expr)
 
   e->stack = xmalloc (max_height * sizeof *e->stack);
 
-#if PAGED_STACK
-  e->str_stack = e->type == EX_STRING ? xmalloc (256) : NULL;
-#else
-  e->str_stack = xmalloc (256);
-  e->str_size = 256;
-#endif
+  e->pool = pool_create ();
 }
 
 static void