aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.h
diff options
context:
space:
mode:
authorjohnvg2001-09-03 10:47:40 +0000
committerjohnvg2001-09-03 10:47:40 +0000
commitf07f6d4b3ae62e887d3caadf124808d2da16ab7c (patch)
tree8d80a1ad5885da08c30ca22277874540652f61d4 /backendC/CleanCompilerSources/instructions.h
parentnew 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.h4
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);