writing code for function activation using function-local literal frame

This commit is contained in:
2020-10-05 09:37:26 +00:00
parent a28553b195
commit e30cbc844c
5 changed files with 83 additions and 51 deletions

View File

@ -87,6 +87,7 @@ enum
WORD_CFRAME,
WORD_PRIM,
WORD_FUNCTION,
WORD_CONTEXT,
WORD_PROCESS,
WORD_PROCESS_SCHEDULER,
@ -107,6 +108,7 @@ static struct
{ 9, { '#','<','C','F','R','A','M','E','>' } },
{ 7, { '#','<','P','R','I','M','>' } },
{ 11, { '#','<','F','U','N','C','T','I','O','N','>' } },
{ 10, { '#','<','C','O','N','T','E','X','T','>' } },
{ 10, { '#','<','P','R','O','C','E','S','S','>' } },
{ 20, { '#','<','P','R','O','C','E','S','S','-','S','C','H','E','D','U','L','E','R','>' } },
@ -657,6 +659,10 @@ next:
word_index = WORD_PRIM;
goto print_word;
case HCL_BRAND_FUNCTION:
word_index = WORD_FUNCTION;
goto print_word;
case HCL_BRAND_CONTEXT:
word_index = WORD_CONTEXT;
goto print_word;