Fix the bogus missing return warning.

Pascal's return mechanism is such that void return is always used.
This commit is contained in:
Bill Currie 2012-10-26 20:11:38 +09:00
parent 3f351a5c88
commit 7519ec7bbd
1 changed files with 1 additions and 0 deletions

View File

@ -242,6 +242,7 @@ subprogram_declaration
} }
declarations compound_statement ';' declarations compound_statement ';'
{ {
append_expr ($5, new_unary_expr ('r', 0));
build_code_function ($1, 0, $5); build_code_function ($1, 0, $5);
current_symtab = current_symtab->parent; current_symtab = current_symtab->parent;
current_storage = $<storage>3; current_storage = $<storage>3;