projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix EXPORT problem with string variables. From Andreas Streichardt
[pspp-builds.git]
/
src
/
numeric.c
diff --git
a/src/numeric.c
b/src/numeric.c
index 1619a99af342236c7ccc78b0fb7e8adaaf794d3d..b97410a51bc234ffb826e06d6705f339ea56e6eb 100644
(file)
--- a/
src/numeric.c
+++ b/
src/numeric.c
@@
-20,7
+20,6
@@
#include <config.h>
#include <assert.h>
#include <stdlib.h>
#include <config.h>
#include <assert.h>
#include <stdlib.h>
-#include "cases.h"
#include "command.h"
#include "error.h"
#include "lexer.h"
#include "command.h"
#include "error.h"
#include "lexer.h"
@@
-80,7
+79,6
@@
cmd_numeric (void)
{
if (f.type != -1)
new_var->print = new_var->write = f;
{
if (f.type != -1)
new_var->print = new_var->write = f;
- envector (new_var);
}
}
}
}
@@
-160,10
+158,7
@@
cmd_string (void)
if (!new_var)
msg (SE, _("There is already a variable named %s."), v[i]);
else
if (!new_var)
msg (SE, _("There is already a variable named %s."), v[i]);
else
- {
- new_var->print = new_var->write = f;
- envector (new_var);
- }
+ new_var->print = new_var->write = f;
}
/* Clean up. */
}
/* Clean up. */
@@
-198,11
+193,10
@@
cmd_leave (void)
return CMD_FAILURE;
for (i = 0; i < nv; i++)
{
return CMD_FAILURE;
for (i = 0; i < nv; i++)
{
- if (
v[i]->lef
t)
+ if (
!v[i]->reini
t)
continue;
continue;
- devector (v[i]);
- v[i]->left = 1;
- envector (v[i]);
+ v[i]->reinit = 0;
+ v[i]->init = 1;
}
free (v);
}
free (v);