pike.git/
src/
pike_types.cmod
Branch:
Tag:
Non-build tags
All tags
No tags
2019-10-17
2019-10-17 09:03:58 by Henrik Grubbström (Grubba) <grubba@grubba.org>
b08494a5c803fffc64382af894438f2af6fc02eb (
11
lines) (+
11
/-
0
)
[
Show
|
Annotate
]
Branch:
master
Compiler [Type checker]: Added peek_stack_mark().
663:
struct pike_type **type_stack; struct pike_type ***pike_type_mark_stack;
+
ptrdiff_t peek_stack_mark(void)
+
{
+
if(Pike_compiler->pike_type_mark_stackp-1 < pike_type_mark_stack)
+
Pike_fatal("Type mark stack underflow\n");
+
+
TYPE_STACK_DEBUG("peek_stack_mark");
+
+
return Pike_compiler->type_stackp - Pike_compiler->pike_type_mark_stackp[-1];
+
}
+
ptrdiff_t pop_stack_mark(void) { Pike_compiler->pike_type_mark_stackp--;