diff options
author | johnvg | 2001-09-03 10:47:40 +0000 |
---|---|---|
committer | johnvg | 2001-09-03 10:47:40 +0000 |
commit | f07f6d4b3ae62e887d3caadf124808d2da16ab7c (patch) | |
tree | 8d80a1ad5885da08c30ca22277874540652f61d4 /backendC/CleanCompilerSources/instructions.h | |
parent | new backend functions for strict and unboxed lists (diff) |
added code for strict and unboxed lists
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@728 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.h')
-rw-r--r-- | backendC/CleanCompilerSources/instructions.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/backendC/CleanCompilerSources/instructions.h b/backendC/CleanCompilerSources/instructions.h index fc3790b..c140d80 100644 --- a/backendC/CleanCompilerSources/instructions.h +++ b/backendC/CleanCompilerSources/instructions.h @@ -17,6 +17,7 @@ void IsString (SymbValue val); void PushBasic (ObjectKind obj, SymbValue val); void EqBasic (ObjectKind obj, SymbValue val, int offset); +void GenNotB(void); void PushBasicFromAOnB (ObjectKind kind,int offset); void GenPushD_a (int a_offset); @@ -165,6 +166,9 @@ void GenFunctionDescriptorForLazyTupleRecursion (SymbDef sdef,int tuple_result_a void GenLazyRecordDescriptorAndExport (SymbDef sdef); void GenFieldSelectorDescriptor (SymbDef sdef,int has_gc_apply_entry); void GenRecordDescriptor (SymbDef sdef); +#ifdef STRICT_LISTS +void GenUnboxedConsRecordDescriptor (SymbDef sdef,int tail_strict); +#endif void GenStrictConstructorDescriptor (SymbDef sdef,StateP constructor_arg_state_p); void GenArrayFunctionDescriptor (SymbDef arr_fun_def, Label desclab, int arity); |