pike.git/
src/
pike_types.cmod
Branch:
Tag:
Non-build tags
All tags
No tags
2021-05-07
2021-05-07 14:27:28 by Henrik Grubbström (Grubba) <grubba@grubba.org>
3992b995e512ed4e6e714c17af97754fe66ea9cc (
11
lines) (+
6
/-
5
)
[
Show
|
Annotate
]
Branch:
master
Compiler
[Typechecker]
: Improve robustness against NULL in free_type().
373:
/* Free car & cdr */ free_type(car); t = (struct pike_type *) cdr;
-
debug_free_type_preamble (t);
+
if (t)
debug_free_type_preamble (t);
goto loop; case PIKE_T_AUTO:
386:
case T_PROGRAM: /* Free car */ t = (struct pike_type *) car;
-
debug_free_type_preamble (t);
+
if (t)
debug_free_type_preamble (t);
goto loop; case T_SCOPE: case T_ASSIGN: /* Free cdr */ t = (struct pike_type *) cdr;
-
debug_free_type_preamble (t);
+
if (t)
debug_free_type_preamble (t);
goto loop; case PIKE_T_ATTRIBUTE: case PIKE_T_NAME: free_string((struct pike_string *)car); t = (struct pike_type *) cdr;
-
debug_free_type_preamble (t);
+
if (t)
debug_free_type_preamble (t);
goto loop; case PIKE_T_OPERATOR:
410:
free_type(cdr); } t = car;
-
debug_free_type_preamble(t);
+
if (t)
debug_free_type_preamble(t);
goto loop; #ifdef PIKE_DEBUG