Delay storage setting for pascal functions.

The function def must not be local. This fixes the null function call in
gcd.pas.
This commit is contained in:
Bill Currie 2012-10-26 19:03:00 +09:00
parent 27b83a8d65
commit 72045f1a5b

View file

@ -235,9 +235,9 @@ subprogram_declaration
: subprogram_head ';'
{
$<storage>$ = current_storage;
current_storage = st_local;
current_func = begin_function ($1, 0, current_symtab, 0);
current_symtab = current_func->symtab;
current_storage = st_local;
}
declarations compound_statement ';'
{