projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* sys-file-info.c: (cmd_display) Use compare_var_ptr_names to
[pspp]
/
src
/
language
/
control
/
control-stack.c
diff --git
a/src/language/control/control-stack.c
b/src/language/control/control-stack.c
index 193b52b0837c3457dc5057571e6d548229ea1fd5..4b57bdeceb473e1b2d48872ac25beb2ed2fabd8f 100644
(file)
--- a/
src/language/control/control-stack.c
+++ b/
src/language/control/control-stack.c
@@
-11,7
+11,7
@@
struct ctl_struct
{
struct ctl_struct
{
- struct ctl_class *class; /* Class of control structure. */
+
const
struct ctl_class *class; /* Class of control structure. */
struct ctl_struct *down; /* Points toward the bottom of ctl_stack. */
void *private; /* Private data. */
};
struct ctl_struct *down; /* Points toward the bottom of ctl_stack. */
void *private; /* Private data. */
};
@@
-31,7
+31,7
@@
ctl_stack_clear (void)
}
void
}
void
-ctl_stack_push (struct ctl_class *class, void *private)
+ctl_stack_push (
const
struct ctl_class *class, void *private)
{
struct ctl_struct *ctl;
{
struct ctl_struct *ctl;
@@
-44,7
+44,7
@@
ctl_stack_push (struct ctl_class *class, void *private)
}
void *
}
void *
-ctl_stack_top (struct ctl_class *class)
+ctl_stack_top (
const
struct ctl_class *class)
{
struct ctl_struct *top = ctl_stack;
if (top != NULL && top->class == class)
{
struct ctl_struct *top = ctl_stack;
if (top != NULL && top->class == class)
@@
-61,7
+61,7
@@
ctl_stack_top (struct ctl_class *class)
}
void *
}
void *
-ctl_stack_search (struct ctl_class *class)
+ctl_stack_search (
const
struct ctl_class *class)
{
struct ctl_struct *ctl;
{
struct ctl_struct *ctl;
@@
-75,7
+75,7
@@
ctl_stack_search (struct ctl_class *class)
}
void
}
void
-ctl_stack_pop (void *private
UNUSED
)
+ctl_stack_pop (void *private)
{
struct ctl_struct *top = ctl_stack;
{
struct ctl_struct *top = ctl_stack;