projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Improve the way we handle the various parsing "states". Until now
[pspp-builds.git]
/
src
/
procedure.c
diff --git
a/src/procedure.c
b/src/procedure.c
index 7f48709e2af4dd7727785f45f26ab56326d88c3a..422e7c05ca167a34552ac52d0f500cbc3c1a8fbd 100644
(file)
--- a/
src/procedure.c
+++ b/
src/procedure.c
@@
-726,14
+726,6
@@
free_case_source (struct case_source *source)
}
}
}
}
-/* Returns nonzero if a case source is "complex". */
-int
-case_source_is_complex (const struct case_source *source)
-{
- return source != NULL && (source->class == &input_program_source_class
- || source->class == &file_type_source_class);
-}
-
/* Returns nonzero if CLASS is the class of SOURCE. */
int
case_source_is_class (const struct case_source *source,
/* Returns nonzero if CLASS is the class of SOURCE. */
int
case_source_is_class (const struct case_source *source,
@@
-1012,6
+1004,4
@@
discard_variables (void)
process_if_expr = NULL;
cancel_temporary ();
process_if_expr = NULL;
cancel_temporary ();
-
- pgm_state = STATE_INIT;
}
}