pike.git/
src/
pike_types.cmod
Branch:
Tag:
Non-build tags
All tags
No tags
2020-01-04
2020-01-04 13:04:18 by Henrik Grubbström (Grubba) <grubba@grubba.org>
38a96adc64b71d57f4f856d614d40aa81341a16f (
15
lines) (+
13
/-
2
)
[
Show
|
Annotate
]
Branch:
master
Compiler: Added compiler_discard_top_type().
119:
} }
+
void compiler_discard_top_type(void)
+
{
+
TYPE_STACK_DEBUG("discard_top_type");
+
#ifdef PIKE_DEBUG
+
if (!peek_stack_mark())
+
Pike_fatal("Type stack underflow.\n");
+
#endif
+
free_type(*(Pike_compiler->type_stackp--));
+
}
+
void compiler_discard_type (void) { ptrdiff_t len = pop_stack_mark();
-
TYPE_STACK_DEBUG("
paranoid
_
pop_
type");
+
TYPE_STACK_DEBUG("
discard
_type");
for (;len > 0; len--) { /* Get rid of excess junk. */
-
free
_
type(*(Pike
_
compiler->type
_
stackp--
)
)
;
+
compiler
_
discard_top_
type();
} }