luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix initial detection of labels when compiling a function.

Browse source 
[COMPILER]
* BUG: Fix initial detection of labels when compiling a function.
This commit is contained in:
Benoît Minisini 2023-09-30 23:19:17 +02:00
parent c600f69be3
commit 56ed08af02
1 changed files with 9 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
main/gbc/gbc_trans_code.c
View file

@ -405,23 +405,16 @@ static void translate_body()
for(;;)
{
if (TRANS_newline())
{
look = JOB->current;
look = JOB->current;
if (PATTERN_is(look[0], RS_END) && TRANS_is_end_function(is_proc, &look[1]))
break;
if (PATTERN_is(look[0], RS_END) && TRANS_is_end_function(is_proc, &look[1]))
break;
if (PATTERN_is_identifier(look[0]) && PATTERN_is(look[1], RS_COLON))
{
fprintf(stderr, "TRANS_declare_label\n");
TRANS_declare_label();
}
if (PATTERN_is_identifier(look[0]) && PATTERN_is(look[1], RS_COLON))
TRANS_declare_label();
continue;
}
JOB->current++;
while (!TRANS_newline())
JOB->current++;
}
JOB->line = save_line;
@ -435,9 +428,8 @@ static void translate_body()
look = JOB->current;
if (PATTERN_is(look[0], RS_END))
if (TRANS_is_end_function(is_proc, &look[1]))
break;
if (PATTERN_is(look[0], RS_END) && TRANS_is_end_function(is_proc, &look[1]))
break;
if (TRANS_newline())
continue;