diff options
| -rw-r--r-- | Makefile.linux_arm | 2 | ||||
| -rw-r--r-- | cgarmc.c | 543 | ||||
| -rw-r--r-- | cginstructions.c | 368 |
3 files changed, 558 insertions, 355 deletions
diff --git a/Makefile.linux_arm b/Makefile.linux_arm index 5b32afb..bec90c8 100644 --- a/Makefile.linux_arm +++ b/Makefile.linux_arm @@ -8,6 +8,8 @@ OBJECTS = cg.o cgcalc.o cgcode.o cginput.o cginstructions.o \ cg: $(OBJECTS)
gcc -s $(OBJECTS) -o $@
+cginstructions.o : cgarmc.c
+
clean:
rm $(OBJECTS)
diff --git a/cgarmc.c b/cgarmc.c new file mode 100644 index 0000000..24936c2 --- /dev/null +++ b/cgarmc.c @@ -0,0 +1,543 @@ +
+void code_ccall (char *c_function_name,char *s,int length)
+{
+ LABEL *label;
+ int l,min_index;
+ int a_offset,b_offset,a_result_offset,b_result_offset;
+ int result,a_o,b_o,float_parameters;
+ int n_clean_b_register_parameters,clean_b_register_parameter_n;
+ int n_extra_clean_b_register_parameters;
+ int first_pointer_result_index,callee_pops_arguments,save_state_in_global_variables;
+ int function_address_parameter;
+ int c_offset;
+ int c_parameter_n;
+
+ function_address_parameter=0;
+
+ if (*s=='G'){
+ ++s;
+ --length;
+ save_state_in_global_variables=1;
+ if (saved_heap_p_label==NULL)
+ saved_heap_p_label=enter_label ("saved_heap_p",IMPORT_LABEL);
+ if (saved_a_stack_p_label==NULL)
+ saved_a_stack_p_label=enter_label ("saved_a_stack_p",IMPORT_LABEL);
+ } else
+ save_state_in_global_variables=0;
+
+ if (*s=='P'){
+ ++s;
+ --length;
+ callee_pops_arguments=1;
+ } else
+ callee_pops_arguments=0;
+
+ float_parameters=0;
+
+ a_offset=0;
+ b_offset=0;
+ n_clean_b_register_parameters=0;
+
+ for (l=0; l<length; ++l){
+ switch (s[l]){
+ case '-':
+ case ':':
+ min_index=l;
+ break;
+ case 'I':
+ case 'p':
+ b_offset+=STACK_ELEMENT_SIZE;
+ if (!float_parameters)
+ ++n_clean_b_register_parameters;
+ continue;
+ case 'r':
+ case 'R':
+ float_parameters=1;
+ b_offset+=8;
+ continue;
+ case 'S':
+ case 's':
+ case 'A':
+ a_offset+=STACK_ELEMENT_SIZE;
+ continue;
+ case 'O':
+ case 'F':
+ if (function_address_parameter)
+ error_s (ccall_error_string,c_function_name);
+ function_address_parameter=s[l];
+
+ while (l+1<length && (s[l+1]=='*' || s[l+1]=='[')){
+ ++l;
+ if (s[l]=='['){
+ ++l;
+ while (l<length && (unsigned)(s[l]-'0')<(unsigned)10)
+ ++l;
+ if (!(l<length && s[l]==']'))
+ error_s (ccall_error_string,c_function_name);
+ }
+ }
+ b_offset+=STACK_ELEMENT_SIZE;
+ if (!float_parameters)
+ ++n_clean_b_register_parameters;
+ continue;
+ default:
+ error_s (ccall_error_string,c_function_name);
+ }
+ break;
+ }
+ if (l>=length)
+ error_s (ccall_error_string,c_function_name);
+
+ a_result_offset=0;
+ b_result_offset=0;
+
+ n_extra_clean_b_register_parameters=0;
+
+ for (++l; l<length; ++l){
+ switch (s[l]){
+ case 'I':
+ case 'p':
+ b_result_offset+=STACK_ELEMENT_SIZE;
+ continue;
+ case 'R':
+ float_parameters=1;
+ b_result_offset+=8;
+ continue;
+ case 'S':
+ a_result_offset+=STACK_ELEMENT_SIZE;
+ continue;
+ case 'A':
+ ++l;
+ if (l<length && (s[l]=='i' || s[l]=='r')){
+ a_result_offset+=STACK_ELEMENT_SIZE;
+ continue;
+ } else {
+ error_s (ccall_error_string,c_function_name);
+ break;
+ }
+ case ':':
+ if (l==min_index+1 || l==length-1)
+ error_s (ccall_error_string,c_function_name);
+ else {
+ int new_length;
+
+ new_length=l;
+
+ for (++l; l<length; ++l){
+ switch (s[l]){
+ case 'I':
+ case 'p':
+ if (!float_parameters)
+ ++n_extra_clean_b_register_parameters;
+ break;
+ case 'R':
+ float_parameters=1;
+ break;
+ case 'S':
+ case 'A':
+ continue;
+ default:
+ error_s (ccall_error_string,c_function_name);
+ }
+ }
+
+ length=new_length;
+ }
+ break;
+ case 'V':
+ if (l==min_index+1 && l!=length-1)
+ continue;
+ default:
+ error_s (ccall_error_string,c_function_name);
+ }
+ }
+
+ if (n_clean_b_register_parameters>N_DATA_PARAMETER_REGISTERS){
+ n_clean_b_register_parameters=N_DATA_PARAMETER_REGISTERS;
+ n_extra_clean_b_register_parameters=0;
+ } else if (n_clean_b_register_parameters+n_extra_clean_b_register_parameters>N_DATA_PARAMETER_REGISTERS)
+ n_extra_clean_b_register_parameters=N_DATA_PARAMETER_REGISTERS-n_clean_b_register_parameters;
+
+ end_basic_block_with_registers (0,n_clean_b_register_parameters+n_extra_clean_b_register_parameters,e_vector);
+
+ b_offset-=n_clean_b_register_parameters<<STACK_ELEMENT_LOG_SIZE;
+
+ if (n_extra_clean_b_register_parameters!=0)
+ push_extra_clean_b_register_parameters (n_extra_clean_b_register_parameters);
+
+ c_offset=b_offset;
+
+ if (s[min_index]=='-' && length-1!=min_index+1){
+ result='V';
+ first_pointer_result_index=min_index+1;
+ } else {
+ result=s[min_index+1];
+ first_pointer_result_index=min_index+2;
+
+ switch (result){
+ case 'I':
+ case 'p':
+ b_result_offset-=STACK_ELEMENT_SIZE;
+ break;
+ case 'R':
+ b_result_offset-=8;
+ break;
+ case 'S':
+ a_result_offset-=STACK_ELEMENT_SIZE;
+ break;
+ case 'A':
+ a_result_offset-=STACK_ELEMENT_SIZE;
+ ++first_pointer_result_index;
+ }
+ }
+
+ if (!function_address_parameter)
+ label = enter_c_function_name_label (c_function_name);
+
+ {
+ int c_offset_before_pushing_arguments,function_address_reg,function_address_s_index,c_parameter_n;
+
+ a_o=-b_result_offset-a_result_offset;
+ b_o=0;
+
+ if (a_result_offset+b_result_offset>b_offset){
+ i_sub_i_r (a_result_offset+b_result_offset-b_offset,B_STACK_POINTER);
+ c_offset=a_result_offset+b_result_offset;
+ }
+
+ c_offset_before_pushing_arguments=c_offset;
+
+ c_parameter_n=((a_offset+b_offset+a_result_offset+b_result_offset)>>STACK_ELEMENT_LOG_SIZE)+n_clean_b_register_parameters;
+
+ i_move_r_r (B_STACK_POINTER,REGISTER_A2);
+
+ if (c_parameter_n>=4 && (c_parameter_n & 1)!=0){
+ i_sub_i_r (4,B_STACK_POINTER);
+ i_or_i_r (4,B_STACK_POINTER);
+ } else {
+ i_and_i_r (-8,B_STACK_POINTER);
+ }
+
+ for (l=length-1; l>=first_pointer_result_index; --l){
+ switch (s[l]){
+ case 'I':
+ case 'p':
+ b_o-=STACK_ELEMENT_SIZE;
+ if (--c_parameter_n<4)
+ i_lea_id_r (b_o+c_offset_before_pushing_arguments,REGISTER_A2,REGISTER_D4-c_parameter_n);
+ else {
+ i_lea_id_r (b_o+c_offset_before_pushing_arguments,REGISTER_A2,REGISTER_A3);
+ i_move_r_pd (REGISTER_A3,B_STACK_POINTER);
+ c_offset+=STACK_ELEMENT_SIZE;
+ }
+ break;
+ case 'i':
+ case 'r':
+ --l;
+ case 'S':
+ if (--c_parameter_n<4)
+ i_lea_id_r (a_o+c_offset_before_pushing_arguments,REGISTER_A2,REGISTER_D4-c_parameter_n);
+ else {
+ i_lea_id_r (a_o+c_offset_before_pushing_arguments,REGISTER_A2,REGISTER_A3);
+ i_move_r_pd (REGISTER_A3,B_STACK_POINTER);
+ c_offset+=STACK_ELEMENT_SIZE;
+ }
+ a_o+=STACK_ELEMENT_SIZE;
+ break;
+ case 'V':
+ break;
+ default:
+ error_s (ccall_error_string,c_function_name);
+ }
+ }
+
+ {
+ int last_register_parameter_index,reg_n,c_offset_1;
+
+ last_register_parameter_index=-1;
+
+ reg_n=0;
+ l=0;
+ while (reg_n<n_clean_b_register_parameters && l<min_index){
+ if (s[l]=='I' || s[l]=='p' || s[l]=='F' || s[l]=='O'){
+ ++reg_n;
+ last_register_parameter_index=l;
+ }
+ ++l;
+ }
+
+ c_offset_1=0;
+
+ {
+ int c_parameter_n_1,l;
+
+ c_parameter_n_1 = c_parameter_n;
+ for (l=min_index-1; l>=0; --l){
+ switch (s[l]){
+ case 'I':
+ case 'p':
+ case 'S':
+ case 's':
+ if (--c_parameter_n_1>=4)
+ c_offset_1+=STACK_ELEMENT_SIZE;
+ break;
+ case 'O':
+ case 'F':
+ case '*':
+ case ']':
+ while (l>=0 && (s[l]!='F' && s[l]!='O'))
+ --l;
+ if (--c_parameter_n_1>=4)
+ c_offset_1+=STACK_ELEMENT_SIZE;
+ break;
+ }
+ }
+
+ if (c_offset_1!=0){
+ i_sub_i_r (c_offset_1,B_STACK_POINTER);
+ c_offset += c_offset_1;
+ }
+ }
+
+ {
+ int c_parameter_n_2,l,c_offset_2,not_finished,new_reg[5];
+
+ new_reg[0]=new_reg[1]=new_reg[2]=new_reg[3]=new_reg[4]=-1; /* [0] not used */
+
+ c_offset_2 = c_offset_1;
+ c_parameter_n_2 = c_parameter_n;
+ reg_n=0;
+ for (l=min_index-1; l>=0; --l){
+ switch (s[l]){
+ case 'I':
+ case 'p':
+ if (--c_parameter_n_2<4){
+ if (l<=last_register_parameter_index){
+ new_reg [4-c_parameter_n_2] = n_extra_clean_b_register_parameters+reg_n;
+ ++reg_n;
+ }
+ } else {
+ c_offset_2-=STACK_ELEMENT_SIZE;
+ if (l<=last_register_parameter_index){
+ i_move_r_id (REGISTER_D0+n_extra_clean_b_register_parameters+reg_n,c_offset_2,B_STACK_POINTER);
+ ++reg_n;
+ }
+ }
+ break;
+ case 'S':
+ case 's':
+ if (--c_parameter_n_2>=4)
+ c_offset_2-=STACK_ELEMENT_SIZE;
+ break;
+ case 'O':
+ case 'F':
+ case '*':
+ case ']':
+ while (l>=0 && (s[l]!='F' && s[l]!='O'))
+ --l;
+ if (--c_parameter_n_2<4){
+ if (l<=last_register_parameter_index){
+ new_reg [4-c_parameter_n_2] = n_extra_clean_b_register_parameters+reg_n;
+ ++reg_n;
+ }
+ }
+ break;
+ }
+ }
+
+ do {
+ not_finished=0;
+ for (reg_n=1; reg_n<=4; ++reg_n){
+ int n;
+
+ n=new_reg[reg_n];
+ if (n>=0 && n!=reg_n){
+ if (new_reg[1]!=reg_n && new_reg[2]!=reg_n && new_reg[3]!=reg_n && new_reg[4]!=reg_n){
+ i_move_r_r (REGISTER_D0+n,REGISTER_D0+reg_n);
+ new_reg[reg_n]=-1;
+ } else
+ not_finished=1;
+ }
+ }
+ } while (not_finished); /* infinite loop in case of cycle */
+ }
+
+ reg_n=0;
+ a_o=-a_offset;
+ b_o=0;
+ for (l=min_index-1; l>=0; --l){
+ switch (s[l]){
+ case 'I':
+ case 'p':
+ if (--c_parameter_n<4){
+ if (l<=last_register_parameter_index){
+ /* i_move_r_r (REGISTER_D0+n_extra_clean_b_register_parameters+reg_n,REGISTER_D4-c_parameter_n); */
+ ++reg_n;
+ } else {
+ b_o-=STACK_ELEMENT_SIZE;
+ i_move_id_r (b_o+c_offset_before_pushing_arguments,REGISTER_A2,REGISTER_D4-c_parameter_n);
+ }
+ } else {
+ c_offset_1-=STACK_ELEMENT_SIZE;
+ if (l<=last_register_parameter_index){
+ /* i_move_r_id (REGISTER_D0+n_extra_clean_b_register_parameters+reg_n,c_offset_1,B_STACK_POINTER); */
+ ++reg_n;
+ } else {
+ b_o-=STACK_ELEMENT_SIZE;
+ i_move_id_r (b_o+c_offset_before_pushing_arguments,REGISTER_A2,6/*r12*/);
+ i_move_r_id (6/*r12*/,c_offset_1,B_STACK_POINTER);
+ }
+ }
+ break;
+ case 'S':
+ if (--c_parameter_n<4){
+ i_move_id_r (a_o,A_STACK_POINTER,REGISTER_D4-c_parameter_n);
+ i_add_i_r (STACK_ELEMENT_SIZE,REGISTER_D4-c_parameter_n);
+ } else {
+ c_offset_1-=STACK_ELEMENT_SIZE;
+ i_move_id_r (a_o,A_STACK_POINTER,REGISTER_A0);
+ i_add_i_r (STACK_ELEMENT_SIZE,REGISTER_A0);
+ i_move_r_id (REGISTER_A0,c_offset_1,B_STACK_POINTER);
+ }
+ a_o+=STACK_ELEMENT_SIZE;
+ break;
+ case 's':
+ if (--c_parameter_n<4){
+ i_move_id_r (a_o,A_STACK_POINTER,REGISTER_D4-c_parameter_n);
+ i_add_i_r (2*STACK_ELEMENT_SIZE,REGISTER_D4-c_parameter_n);
+ } else {
+ c_offset_1-=STACK_ELEMENT_SIZE;
+ i_move_id_r (a_o,A_STACK_POINTER,REGISTER_A0);
+ i_add_i_r (2*STACK_ELEMENT_SIZE,REGISTER_A0);
+ i_move_r_id (REGISTER_A0,c_offset_1,B_STACK_POINTER);
+ }
+ a_o+=STACK_ELEMENT_SIZE;
+ break;
+ case 'O':
+ case 'F':
+ case '*':
+ case ']':
+ while (l>=0 && (s[l]!='F' && s[l]!='O'))
+ --l;
+ if (--c_parameter_n<4){
+ if (l<=last_register_parameter_index){
+ /* i_move_r_r (REGISTER_D0+n_extra_clean_b_register_parameters+reg_n,REGISTER_D4-c_parameter_n); */
+ ++reg_n;
+ } else {
+ b_o-=STACK_ELEMENT_SIZE;
+ i_move_id_r (b_o+c_offset_before_pushing_arguments,REGISTER_A2,REGISTER_D4-c_parameter_n);
+ }
+
+ function_address_reg = REGISTER_D4-c_parameter_n;
+ function_address_s_index = l+1;
+ break;
+ }
+ default:
+ error_s (ccall_error_string,c_function_name);
+ }
+ }
+ }
+
+ if (save_state_in_global_variables){
+ i_lea_l_i_r (saved_a_stack_p_label,0,REGISTER_D6);
+ i_move_r_id (A_STACK_POINTER,0,REGISTER_D6);
+ i_lea_l_i_r (saved_heap_p_label,0,REGISTER_D6);
+ i_move_r_id (HEAP_POINTER,0,REGISTER_D6);
+ i_move_r_id (REGISTER_D5,4,REGISTER_D6);
+ }
+
+ if (!function_address_parameter)
+ i_call_l (label);
+ else {
+ int l;
+
+ for (l=function_address_s_index; l<length && (s[l]=='*' || s[l]=='['); ++l){
+ int n;
+
+ n=0;
+
+ if (s[l]=='['){
+ ++l;
+ while (l<length && (unsigned)(s[l]-'0')<(unsigned)10){
+ n=n*10+(s[l]-'0');
+ ++l;
+ }
+ }
+
+ i_move_id_r (n,function_address_reg,REGISTER_D6);
+ function_address_reg = REGISTER_D6;
+ }
+
+ i_call_r (function_address_reg);
+ }
+
+ if (save_state_in_global_variables){
+ i_lea_l_i_r (saved_a_stack_p_label,0,REGISTER_D6);
+ i_move_id_r (0,REGISTER_D6,A_STACK_POINTER);
+ i_lea_l_i_r (saved_heap_p_label,0,REGISTER_D6);
+ i_move_id_r (0,REGISTER_D6,HEAP_POINTER);
+ i_move_id_r (4,REGISTER_D6,REGISTER_D5);
+ }
+
+ if (c_offset_before_pushing_arguments-(b_result_offset+a_result_offset)==0)
+ i_move_r_r (REGISTER_A2,B_STACK_POINTER);
+ else
+ i_lea_id_r (c_offset_before_pushing_arguments-(b_result_offset+a_result_offset),REGISTER_A2,B_STACK_POINTER);
+ }
+
+ if (a_offset!=0)
+ i_sub_i_r (a_offset,A_STACK_POINTER);
+
+ for (l=length-1; l>=first_pointer_result_index; --l){
+ switch (s[l]){
+ case 'I':
+ case 'p':
+ case 'R':
+ case 'V':
+ break;
+ case 'S':
+ if (string_to_string_node_label==NULL)
+ string_to_string_node_label=enter_label ("string_to_string_node",IMPORT_LABEL);
+ i_move_pi_r (B_STACK_POINTER,REGISTER_A0);
+ i_jsr_l_idu (string_to_string_node_label,-4);
+ i_move_r_id (REGISTER_A0,0,A_STACK_POINTER);
+ i_add_i_r (STACK_ELEMENT_SIZE,A_STACK_POINTER);
+ break;
+ default:
+ error_s (ccall_error_string,c_function_name);
+ }
+ }
+
+ b_o=0;
+ for (l=first_pointer_result_index; l<length; ++l){
+ switch (s[l]){
+ case 'I':
+ case 'p':
+ b_o+=STACK_ELEMENT_SIZE;
+ break;
+ case 'S':
+ case 'V':
+ break;
+ default:
+ error_s (ccall_error_string,c_function_name);
+ }
+ }
+
+ switch (result){
+ case 'I':
+ case 'p':
+ begin_new_basic_block();
+ init_b_stack (5,i_i_i_i_i_vector);
+ s_put_b (4,s_get_b (0));
+ s_remove_b();
+ s_remove_b();
+ s_remove_b();
+ s_remove_b();
+ break;
+ case 'V':
+ begin_new_basic_block();
+ break;
+ default:
+ error_s (ccall_error_string,c_function_name);
+ }
+}
diff --git a/cginstructions.c b/cginstructions.c index d05549f..da9667b 100644 --- a/cginstructions.c +++ b/cginstructions.c @@ -3727,6 +3727,10 @@ LABEL *pthread_getspecific_label=NULL; # endif #endif +#ifdef ARM +# include "cgarmc.c" +#else + void code_ccall (char *c_function_name,char *s,int length) { LABEL *label; @@ -3740,10 +3744,10 @@ void code_ccall (char *c_function_name,char *s,int length) int n_a_c_in_clean_out_parameters_size,n_b_c_in_clean_out_parameters_size; int c_offset; -#if ! (defined (sparc) || defined (G_POWER) || defined (I486) || defined (ARM)) +#if ! (defined (sparc) || defined (G_POWER) || defined (I486)) error ("ABC instruction 'ccall' not implemented"); #endif -#if defined (sparc) || defined (G_POWER) || defined (ARM) +#if defined (sparc) || defined (G_POWER) int c_parameter_n; #endif #if defined (G_POWER) || (defined (G_A64) && (defined (LINUX_ELF) || defined (MACH_O64))) @@ -3758,7 +3762,7 @@ void code_ccall (char *c_function_name,char *s,int length) ++s; --length; save_state_in_global_variables=1; -#if ((defined (I486) || defined (ARM)) && !defined (THREAD64)) || defined (G_POWER) +#if (defined (I486) && !defined (THREAD64)) || defined (G_POWER) if (saved_heap_p_label==NULL) saved_heap_p_label=enter_label ("saved_heap_p",IMPORT_LABEL); if (saved_a_stack_p_label==NULL) @@ -3778,7 +3782,7 @@ void code_ccall (char *c_function_name,char *s,int length) } else callee_pops_arguments=0; -#if defined (sparc) || defined (I486) || defined (G_POWER) || defined (ARM) +#if defined (sparc) || defined (I486) || defined (G_POWER) float_parameters=0; a_offset=0; @@ -3798,14 +3802,14 @@ void code_ccall (char *c_function_name,char *s,int length) b_offset+=STACK_ELEMENT_SIZE; if (!float_parameters) ++n_clean_b_register_parameters; -# if (defined (I486) || defined (ARM)) && !defined (G_AI64) +# if defined (I486) && !defined (G_AI64) if (s[l+1]=='>'){ ++l; n_b_c_in_clean_out_parameters_size+=STACK_ELEMENT_SIZE; } # endif continue; -# if defined (I486) || defined (ARM) || defined (G_POWER) +# if defined (I486) || defined (G_POWER) case 'r': # endif case 'R': @@ -3819,7 +3823,7 @@ void code_ccall (char *c_function_name,char *s,int length) case 's': case 'A': a_offset+=STACK_ELEMENT_SIZE; -# if (defined (I486) || defined (ARM)) && !defined (G_AI64) +# if defined (I486) && !defined (G_AI64) if (s[l+1]=='>'){ ++l; n_a_c_in_clean_out_parameters_size+=STACK_ELEMENT_SIZE; @@ -5467,357 +5471,11 @@ void code_ccall (char *c_function_name,char *s,int length) } # endif -#elif defined (ARM) - - { - int c_offset_before_pushing_arguments,function_address_reg,function_address_s_index,c_parameter_n; - - a_o=-b_result_offset-a_result_offset; - b_o=0; - - if (a_result_offset+b_result_offset>b_offset){ - i_sub_i_r (a_result_offset+b_result_offset-b_offset,B_STACK_POINTER); - c_offset=a_result_offset+b_result_offset; - } - - c_offset_before_pushing_arguments=c_offset; - - c_parameter_n=((a_offset+b_offset+a_result_offset+b_result_offset)>>STACK_ELEMENT_LOG_SIZE)+n_clean_b_register_parameters; - - i_move_r_r (B_STACK_POINTER,REGISTER_A2); - - if (c_parameter_n>=4 && (c_parameter_n & 1)!=0){ - i_sub_i_r (4,B_STACK_POINTER); - i_or_i_r (4,B_STACK_POINTER); - } else { - i_and_i_r (-8,B_STACK_POINTER); - } - - for (l=length-1; l>=first_pointer_result_index; --l){ - switch (s[l]){ - case 'I': - case 'p': - b_o-=STACK_ELEMENT_SIZE; - if (--c_parameter_n<4) - i_lea_id_r (b_o+c_offset_before_pushing_arguments,REGISTER_A2,REGISTER_D4-c_parameter_n); - else { - i_lea_id_r (b_o+c_offset_before_pushing_arguments,REGISTER_A2,REGISTER_A3); - i_move_r_pd (REGISTER_A3,B_STACK_POINTER); - c_offset+=STACK_ELEMENT_SIZE; - } - break; - case 'i': - case 'r': - --l; - case 'S': - if (--c_parameter_n<4) - i_lea_id_r (a_o+c_offset_before_pushing_arguments,REGISTER_A2,REGISTER_D4-c_parameter_n); - else { - i_lea_id_r (a_o+c_offset_before_pushing_arguments,REGISTER_A2,REGISTER_A3); - i_move_r_pd (REGISTER_A3,B_STACK_POINTER); - c_offset+=STACK_ELEMENT_SIZE; - } - a_o+=STACK_ELEMENT_SIZE; - break; - case 'V': - break; - default: - error_s (ccall_error_string,c_function_name); - } - } - - { - int last_register_parameter_index,reg_n,c_offset_1; - - last_register_parameter_index=-1; - - reg_n=0; - l=0; - while (reg_n<n_clean_b_register_parameters && l<min_index){ - if (s[l]=='I' || s[l]=='p' || s[l]=='F' || s[l]=='O'){ - ++reg_n; - last_register_parameter_index=l; - } - ++l; - } - - c_offset_1=0; - - { - int c_parameter_n_1,l; - - c_parameter_n_1 = c_parameter_n; - for (l=min_index-1; l>=0; --l){ - switch (s[l]){ - case 'I': - case 'p': - case 'S': - case 's': - if (--c_parameter_n_1>=4) - c_offset_1+=STACK_ELEMENT_SIZE; - break; - case 'O': - case 'F': - case '*': - case ']': - while (l>=0 && (s[l]!='F' && s[l]!='O')) - --l; - if (--c_parameter_n_1>=4) - c_offset_1+=STACK_ELEMENT_SIZE; - break; - } - } - - if (c_offset_1!=0){ - i_sub_i_r (c_offset_1,B_STACK_POINTER); - c_offset += c_offset_1; - } - } - - { - int c_parameter_n_2,l,c_offset_2,not_finished,new_reg[5]; - - new_reg[0]=new_reg[1]=new_reg[2]=new_reg[3]=new_reg[4]=-1; /* [0] not used */ - - c_offset_2 = c_offset_1; - c_parameter_n_2 = c_parameter_n; - reg_n=0; - for (l=min_index-1; l>=0; --l){ - switch (s[l]){ - case 'I': - case 'p': - if (--c_parameter_n_2<4){ - if (l<=last_register_parameter_index){ - new_reg [4-c_parameter_n_2] = n_extra_clean_b_register_parameters+reg_n; - ++reg_n; - } - } else { - c_offset_2-=STACK_ELEMENT_SIZE; - if (l<=last_register_parameter_index){ - i_move_r_id (REGISTER_D0+n_extra_clean_b_register_parameters+reg_n,c_offset_2,B_STACK_POINTER); - ++reg_n; - } - } - break; - case 'S': - case 's': - if (--c_parameter_n_2>=4) - c_offset_2-=STACK_ELEMENT_SIZE; - break; - case 'O': - case 'F': - case '*': - case ']': - while (l>=0 && (s[l]!='F' && s[l]!='O')) - --l; - if (--c_parameter_n_2<4){ - if (l<=last_register_parameter_index){ - new_reg [4-c_parameter_n_2] = n_extra_clean_b_register_parameters+reg_n; - ++reg_n; - } - } - break; - } - } - - do { - not_finished=0; - for (reg_n=1; reg_n<=4; ++reg_n){ - int n; - - n=new_reg[reg_n]; - if (n>=0 && n!=reg_n){ - if (new_reg[1]!=reg_n && new_reg[2]!=reg_n && new_reg[3]!=reg_n && new_reg[4]!=reg_n){ - i_move_r_r (REGISTER_D0+n,REGISTER_D0+reg_n); - new_reg[reg_n]=-1; - } else - not_finished=1; - } - } - } while (not_finished); /* infinite loop in case of cycle */ - } - - reg_n=0; - a_o=-a_offset; - b_o=0; - for (l=min_index-1; l>=0; --l){ - switch (s[l]){ - case 'I': - case 'p': - if (--c_parameter_n<4){ - if (l<=last_register_parameter_index){ - /* i_move_r_r (REGISTER_D0+n_extra_clean_b_register_parameters+reg_n,REGISTER_D4-c_parameter_n); */ - ++reg_n; - } else { - b_o-=STACK_ELEMENT_SIZE; - i_move_id_r (b_o+c_offset_before_pushing_arguments,REGISTER_A2,REGISTER_D4-c_parameter_n); - } - } else { - c_offset_1-=STACK_ELEMENT_SIZE; - if (l<=last_register_parameter_index){ - /* i_move_r_id (REGISTER_D0+n_extra_clean_b_register_parameters+reg_n,c_offset_1,B_STACK_POINTER); */ - ++reg_n; - } else { - b_o-=STACK_ELEMENT_SIZE; - i_move_id_r (b_o+c_offset_before_pushing_arguments,REGISTER_A2,6/*r12*/); - i_move_r_id (6/*r12*/,c_offset_1,B_STACK_POINTER); - } - } - break; - case 'S': - if (--c_parameter_n<4){ - i_move_id_r (a_o,A_STACK_POINTER,REGISTER_D4-c_parameter_n); - i_add_i_r (STACK_ELEMENT_SIZE,REGISTER_D4-c_parameter_n); - } else { - c_offset_1-=STACK_ELEMENT_SIZE; - i_move_id_r (a_o,A_STACK_POINTER,REGISTER_A0); - i_add_i_r (STACK_ELEMENT_SIZE,REGISTER_A0); - i_move_r_id (REGISTER_A0,c_offset_1,B_STACK_POINTER); - } - a_o+=STACK_ELEMENT_SIZE; - break; - case 's': - if (--c_parameter_n<4){ - i_move_id_r (a_o,A_STACK_POINTER,REGISTER_D4-c_parameter_n); - i_add_i_r (2*STACK_ELEMENT_SIZE,REGISTER_D4-c_parameter_n); - } else { - c_offset_1-=STACK_ELEMENT_SIZE; - i_move_id_r (a_o,A_STACK_POINTER,REGISTER_A0); - i_add_i_r (2*STACK_ELEMENT_SIZE,REGISTER_A0); - i_move_r_id (REGISTER_A0,c_offset_1,B_STACK_POINTER); - } - a_o+=STACK_ELEMENT_SIZE; - break; - case 'O': - case 'F': - case '*': - case ']': - while (l>=0 && (s[l]!='F' && s[l]!='O')) - --l; - if (--c_parameter_n<4){ - if (l<=last_register_parameter_index){ - /* i_move_r_r (REGISTER_D0+n_extra_clean_b_register_parameters+reg_n,REGISTER_D4-c_parameter_n); */ - ++reg_n; - } else { - b_o-=STACK_ELEMENT_SIZE; - i_move_id_r (b_o+c_offset_before_pushing_arguments,REGISTER_A2,REGISTER_D4-c_parameter_n); - } - - function_address_reg = REGISTER_D4-c_parameter_n; - function_address_s_index = l+1; - break; - } - default: - error_s (ccall_error_string,c_function_name); - } - } - } - - if (save_state_in_global_variables){ - i_lea_l_i_r (saved_a_stack_p_label,0,REGISTER_D6); - i_move_r_id (A_STACK_POINTER,0,REGISTER_D6); - i_lea_l_i_r (saved_heap_p_label,0,REGISTER_D6); - i_move_r_id (HEAP_POINTER,0,REGISTER_D6); - i_move_r_id (REGISTER_D5,4,REGISTER_D6); - } - - if (!function_address_parameter) - i_call_l (label); - else { - int l; - - for (l=function_address_s_index; l<length && (s[l]=='*' || s[l]=='['); ++l){ - int n; - - n=0; - - if (s[l]=='['){ - ++l; - while (l<length && (unsigned)(s[l]-'0')<(unsigned)10){ - n=n*10+(s[l]-'0'); - ++l; - } - } - - i_move_id_r (n,function_address_reg,REGISTER_D6); - function_address_reg = REGISTER_D6; - } - - i_call_r (function_address_reg); - } - - if (save_state_in_global_variables){ - i_lea_l_i_r (saved_a_stack_p_label,0,REGISTER_D6); - i_move_id_r (0,REGISTER_D6,A_STACK_POINTER); - i_lea_l_i_r (saved_heap_p_label,0,REGISTER_D6); - i_move_id_r (0,REGISTER_D6,HEAP_POINTER); - i_move_id_r (4,REGISTER_D6,REGISTER_D5); - } - - if (c_offset_before_pushing_arguments-(b_result_offset+a_result_offset)==0) - i_move_r_r (REGISTER_A2,B_STACK_POINTER); - else - i_lea_id_r (c_offset_before_pushing_arguments-(b_result_offset+a_result_offset),REGISTER_A2,B_STACK_POINTER); - } - - if (a_offset!=0) - i_sub_i_r (a_offset,A_STACK_POINTER); - - for (l=length-1; l>=first_pointer_result_index; --l){ - switch (s[l]){ - case 'I': - case 'p': - case 'R': - case 'V': - break; - case 'S': - if (string_to_string_node_label==NULL) - string_to_string_node_label=enter_label ("string_to_string_node",IMPORT_LABEL); - i_move_pi_r (B_STACK_POINTER,REGISTER_A0); - i_jsr_l_idu (string_to_string_node_label,-4); - i_move_r_id (REGISTER_A0,0,A_STACK_POINTER); - i_add_i_r (STACK_ELEMENT_SIZE,A_STACK_POINTER); - break; - default: - error_s (ccall_error_string,c_function_name); - } - } - - b_o=0; - for (l=first_pointer_result_index; l<length; ++l){ - switch (s[l]){ - case 'I': - case 'p': - b_o+=STACK_ELEMENT_SIZE; - break; - case 'S': - case 'V': - break; - default: - error_s (ccall_error_string,c_function_name); - } - } - - switch (result){ - case 'I': - case 'p': - begin_new_basic_block(); - init_b_stack (5,i_i_i_i_i_vector); - s_put_b (4,s_get_b (0)); - s_remove_b(); - s_remove_b(); - s_remove_b(); - s_remove_b(); - break; - case 'V': - begin_new_basic_block(); - break; - default: - error_s (ccall_error_string,c_function_name); - } #endif } +#endif + #define SMALL_VECTOR_SIZE 32 #define LOG_SMALL_VECTOR_SIZE 5 #define MASK_SMALL_VECTOR_SIZE 31 |