pike.git/
src/
las.c
Branch:
Tag:
Non-build tags
All tags
No tags
1999-09-19
1999-09-19 21:00:29 by Henrik Grubbström (Grubba) <grubba@grubba.org>
4a7c86cd77ae90a30025b7bf6a316f90f088ddff (
8
lines) (+
4
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed two struct program_constant related bugs.
Rev: src/las.c:1.89
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: las.c,v 1.
88
1999/09/
18
09:
21:
21
hubbe
Exp $");
+
RCSID("$Id: las.c,v 1.
89
1999/09/
19
21:
00:29
grubba
Exp $");
#include "language.h" #include "interpret.h"
706:
*/ if(IDENTIFIER_IS_CONSTANT(i->identifier_flags)) {
-
push_svalue(PROG_FROM_INT(p, numid)->constants
+
-
i->func.offset);
+
push_svalue(
&
PROG_FROM_INT(p, numid)->constants
[
i->func.offset
].sval
);
}else{ my_yyerror("Identifier '%s' is not a constant", i->name->str); push_int(0);
2403:
while(new_program->num_constants > num_constants) { new_program->num_constants--;
-
free_svalue(new_program->constants
+
new_program->num_constants);
+
free_svalue(
&
new_program->constants
[
new_program->num_constants
].sval
);
} new_program->num_program=jump;