diff options
author | johnvg | 2006-11-03 13:00:41 +0000 |
---|---|---|
committer | johnvg | 2006-11-03 13:00:41 +0000 |
commit | 07bcce9ac1173600a10425bf30346ea1ee5a05db (patch) | |
tree | 637147432ea01e22cb5dece8869df5d45bab9565 /backendC/CleanCompilerSources/instructions.h | |
parent | allow TC to be used in the context of a class definition (e.g. class C a | TC a) (diff) |
generate ea entry for boxed records, fixes jmp_eval_upd in lazy selectors
for fields (in other records) with this record type
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1620 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.h')
-rw-r--r-- | backendC/CleanCompilerSources/instructions.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/backendC/CleanCompilerSources/instructions.h b/backendC/CleanCompilerSources/instructions.h index da507e4..62d2b6c 100644 --- a/backendC/CleanCompilerSources/instructions.h +++ b/backendC/CleanCompilerSources/instructions.h @@ -90,6 +90,8 @@ void GenJsrEval (int offset); void GenJsrAp (int n_args); void GenJmpEval (void); void GenJmpAp (int n_args); +void GenJmpApUpd (int n_args); +void GenJmpUpd (Label tolab); void GenPopA (int nr); void GenPopB (int nr); @@ -162,7 +164,7 @@ void GenApplyEntryDirective (int arity,Label label); #ifdef NEW_APPLY void GenApplyEntryDirective (int arity,Label label); #endif -void GenLazyRecordNodeEntryDirective (int arity,Label label); +void GenLazyRecordNodeEntryDirective (int arity,Label label,Label label2); void GenFieldNodeEntryDirective (int arity, Label label, Label label2,char *record_name); void GenConstructorDescriptorAndExport (SymbDef sdef); void GenFunctionDescriptorAndExportNodeAndDescriptor (SymbDef sdef); |