summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--cgcode.c111
-rw-r--r--cginstructions.c18
2 files changed, 0 insertions, 129 deletions
diff --git a/cgcode.c b/cgcode.c
index a13e233..5789078 100644
--- a/cgcode.c
+++ b/cgcode.c
@@ -118,12 +118,6 @@
# define SIZE_OF_REAL_IN_STACK_ELEMENTS 2
#endif
-#ifdef THINK_C
-# define SMALL_LAZY_DESCRIPTORS 1
-#else
-# define SMALL_LAZY_DESCRIPTORS 0
-#endif
-
#ifdef sparc
# undef ALIGN_REAL_ARRAYS
# undef NEW_ARRAYS
@@ -760,16 +754,6 @@ void code_build (char descriptor_name[],int arity,char *code_name)
if (descriptor_name[0]=='_' && descriptor_name[1]=='_' && descriptor_name[2]=='\0')
descriptor_label=NULL;
else
-#if SMALL_LAZY_DESCRIPTORS
- if (parallel_flag){
- char curried_descriptor_name[257];
-
- strcpy (curried_descriptor_name,descriptor_name);
- strcat (curried_descriptor_name,"#");
-
- descriptor_label=enter_label (curried_descriptor_name,DATA_LABEL);
- } else
-#endif
descriptor_label=enter_label (descriptor_name,DATA_LABEL);
if (arity<-2)
@@ -2722,16 +2706,6 @@ void code_fill (char descriptor_name[],int arity,char *code_name,int a_offset)
if (descriptor_name[0]=='_' && descriptor_name[1]=='_' && descriptor_name[2]=='\0')
descriptor_label=NULL;
else
-#if SMALL_LAZY_DESCRIPTORS
- if (parallel_flag){
- char curried_descriptor_name[257];
-
- strcpy (curried_descriptor_name,descriptor_name);
- strcat (curried_descriptor_name,"#");
-
- descriptor_label=enter_label (curried_descriptor_name,DATA_LABEL);
- } else
-#endif
descriptor_label=enter_label (descriptor_name,DATA_LABEL);
if (arity<-2)
@@ -2790,16 +2764,6 @@ void code_fillcp (char descriptor_name[],int arity,char *code_name,int a_offset,
if (descriptor_name[0]=='_' && descriptor_name[1]=='_' && descriptor_name[2]=='\0')
descriptor_label=NULL;
else
-#if SMALL_LAZY_DESCRIPTORS
- if (parallel_flag){
- char curried_descriptor_name[257];
-
- strcpy (curried_descriptor_name,descriptor_name);
- strcat (curried_descriptor_name,"#");
-
- descriptor_label=enter_label (curried_descriptor_name,DATA_LABEL);
- } else
-#endif
descriptor_label=enter_label (descriptor_name,DATA_LABEL);
if (arity<-2)
@@ -5064,16 +5028,6 @@ void code_n (int number_of_arguments,char *descriptor_name,char *ea_label_name)
if (descriptor_name[0]=='_' && descriptor_name[1]=='_' && descriptor_name[2]=='\0')
label=NULL;
else
-#if SMALL_LAZY_DESCRIPTORS
- if (parallel_flag){
- char curried_descriptor_name[257];
-
- strcpy (curried_descriptor_name,descriptor_name);
- strcat (curried_descriptor_name,"#");
-
- label=enter_label (curried_descriptor_name,DATA_LABEL);
- } else
-#endif
label=enter_label (descriptor_name,DATA_LABEL);
last_block->block_n_node_arguments=number_of_arguments;
@@ -8905,16 +8859,7 @@ static void code_descriptor (char label_name[],char node_entry_label_name[],char
{
LABEL *label;
int n;
-#if SMALL_LAZY_DESCRIPTORS
- char curried_label_name[257];
- if (parallel_flag){
- strcpy (curried_label_name,label_name);
- strcat (curried_label_name,"#");
-
- label=enter_label (curried_label_name,LOCAL_LABEL | DATA_LABEL);
- } else
-#endif
label=enter_label (label_name,LOCAL_LABEL | DATA_LABEL | export_flag);
if (label->label_id>=0)
@@ -8977,62 +8922,6 @@ static void code_descriptor (char label_name[],char node_entry_label_name[],char
store_word_in_data_section (0x4eed); /* JMP x(A5) */
store_label_offset_in_data_section (node_entry_label->label_id);
-
-# if SMALL_LAZY_DESCRIPTORS
- {
- LABEL *new_label;
- int flags;
-
- new_label=enter_label (label_name,LOCAL_LABEL | DATA_LABEL);
- if (new_label->label_id>=0)
- error_s ("label %d defined twice\n",curried_label_name);
- new_label->label_id=next_label_id++;
- new_label->label_descriptor=string_label;
-
- if (new_label->label_flags & EXPORT_LABEL)
- label->label_flags |= EXPORT_LABEL;
-
- if (label->label_flags & EXPORT_LABEL)
- define_external_label (label->label_id,LDATA,label->label_name);
- else
- define_local_label (label->label_id,LDATA);
-
- if (assembly_flag)
- w_as_define_label (label);
-
- store_word_in_data_section (-4);
- if (assembly_flag)
- w_as_word_in_data_section (-4);
-
- if (code_label_name!=NULL && arity==1){
-# ifdef GEN_MAC_OBJ
- store_label_offset_in_data_section (code_label->label_id);
-# else
-# ifdef GEN_OBJ
- store_label_in_data_section (code_label);
-# endif
-# endif
- if (assembly_flag)
- w_as_label_in_data_section (code_label_name);
- } else {
- store_word_in_data_section (0);
- if (assembly_flag)
- w_as_word_in_data_section (0);
-
- /*
- store_label_offset_in_data_section (string_code_label_id);
- if (assembly_flag)
- w_as_internal_label_value (string_code_label_id);
- */
- }
-
- start_new_module (2);
- if (assembly_flag)
- w_as_new_module (0);
-
- label=new_label;
- }
-# endif
}
#endif
diff --git a/cginstructions.c b/cginstructions.c
index 13d6402..e70a947 100644
--- a/cginstructions.c
+++ b/cginstructions.c
@@ -12,13 +12,6 @@
#include <stdlib.h>
#include "cgport.h"
-
-#ifdef THINK_C
-# define SMALL_LAZY_DESCRIPTORS 1
-#else
-# define SMALL_LAZY_DESCRIPTORS 0
-#endif
-
#include "cg.h"
#include "cgconst.h"
#include "cgrconst.h"
@@ -6031,19 +6024,8 @@ void code_send_graph (char descriptor_name[],int a_offset_1,int a_offset_2)
if (send_graph_label==NULL)
send_graph_label=enter_label ("send_graph",IMPORT_LABEL);
-
-#ifdef SMALL_LAZY_DESCRIPTORS
- {
- char h_descriptor_name[257];
-
- strcpy (h_descriptor_name,descriptor_name);
- strcat (h_descriptor_name,"#");
- descriptor_label=enter_label (h_descriptor_name,DATA_LABEL);
- }
-#else
descriptor_label=enter_label (descriptor_name,0);
-#endif
graph_1=g_lea (descriptor_label);
graph_2=s_get_a (a_offset_1);
generated by cgit v1.2.3 (git 2.39.1) at 2025-03-15 16:06:21 +0000