aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/instructions.c
diff options
context:
space:
mode:
authorjohnvg2001-05-15 10:57:47 +0000
committerjohnvg2001-05-15 10:57:47 +0000
commitc10c04bc302879a378ef0be7aae6574728e39422 (patch)
tree38a0f59394046ca5d8dc9400d3f6b533611ea95e /backendC/CleanCompilerSources/instructions.c
parent*** empty log message *** (diff)
merged with backend C source code on the mac
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@430 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/instructions.c')
-rw-r--r--backendC/CleanCompilerSources/instructions.c23
1 files changed, 13 insertions, 10 deletions
diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c
index d9c9512..80ecb14 100644
--- a/backendC/CleanCompilerSources/instructions.c
+++ b/backendC/CleanCompilerSources/instructions.c
@@ -6,6 +6,7 @@
#pragma segment instructions
#include "compiledefines.h"
+#include "comsupport.h"
#include "system.h"
#include <ctype.h>
@@ -18,7 +19,6 @@
#include "codegen_types.h"
#include "codegen1.h"
#include "codegen2.h"
-#include "comsupport.h"
#include "instructions.h"
#include "statesgen.h"
#include "version.h"
@@ -3254,15 +3254,23 @@ void GenSystemImports (void)
GenImpLab_node_entry (indirection_lab.lab_name,"_eaind");
GenImpDesc ("e_system_dif");
GenImpLab_node_entry ("e_system_nif","e_system_eaif");
+ GenImpLab ("e_system_sif");
+
GenImpDesc ("e_system_dAP");
GenImpLab_node_entry ("e_system_nAP","e_system_eaAP");
-
- GenImpLab ("e_system_sif");
GenImpLab ("e_system_sAP");
- GenImpDesc (cons_lab.lab_name);
+
GenImpDesc (nil_lab.lab_name);
+ GenImpDesc (cons_lab.lab_name);
+#if STRICT_LISTS
+ GenImpDesc (conss_lab.lab_name);
+ GenImpLab_node_entry ("n_Conss","ea_Conss");
+ GenImpDesc (consts_lab.lab_name);
+ GenImpLab_node_entry ("n_Consts","ea_Consts");
+ GenImpDesc (conssts_lab.lab_name);
+ GenImpLab_node_entry ("n_Conssts","ea_Conssts");
+#endif
GenImpDesc (tuple_lab.lab_name);
-
for (selnum=1; selnum<=NrOfGlobalSelectors; ++selnum){
put_directive_b (impdesc);
FPrintF (OutFile,D_PREFIX "%s.%d",glob_sel,selnum);
@@ -3285,11 +3293,6 @@ void GenParameters (Bool input, Parameters params, int asp, int bsp)
{
int is_first_parameter;
-/* RWS ... ??? */
- if (params==NULL)
- return;
-/* ... RWS */
-
if (input)
put_instruction_ (Iin);
else