d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

use general as pointer flag added

Browse source
This commit is contained in:
ceriel 1989-03-07 10:24:32 +00:00
parent 15449606d1
commit 23f2646704
9 changed files with 21 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
util/ego/descr/i86.descr
View file

@ -4,6 +4,7 @@ pointersize: 2
general registers: 2
address registers: 0
floating point registers: 0
use general as pointer: yes
register score parameters:
local variable:

5
util/ego/descr/m68020.descr
View file

@ -4,6 +4,7 @@ pointersize: 4
general registers: 5
address registers: 4
floating point registers: 0
use general as pointer: no
register score parameters:
local variable:
@ -69,7 +70,7 @@ opening cost parameters:
register save costs:
(11 cases)
0 -> (0,0)
1 -> (12,4)
1 -> (12,6)
2 -> (24,8)
3 -> (34,8)
4 -> (42,8)
@ -102,4 +103,4 @@ do not eliminate sli if index on shiftcounts: 1 2 3 -1
1 2 3 -1
forbidden operators: -1 -1
%%SP
global stack pollution allowed?: no
global stack pollution allowed?: yes

1
util/ego/descr/m68k2.descr
View file

@ -4,6 +4,7 @@ pointersize: 4
general registers: 5
address registers: 4
floating point registers: 0
use general as pointer: no
register score parameters:
local variable:

1
util/ego/descr/m68k4.descr
View file

@ -4,6 +4,7 @@ pointersize: 4
general registers: 5
address registers: 4
floating point registers: 0
use general as pointer: no
register score parameters:
local variable:

1
util/ego/descr/pdp.descr
View file

@ -4,6 +4,7 @@ pointersize: 2
general registers: 2
address registers: 0
floating point registers: 0
use general as pointer: yes
register score parameters:
local variable:

1
util/ego/descr/vax4.descr
View file

@ -4,6 +4,7 @@ pointersize: 4
general registers: 8
address registers: 0
floating point registers: 0
use general as pointer: yes
register score parameters:
local variable:

3
util/ego/ra/ra.c
View file

@ -52,6 +52,8 @@ short regs_available[] = {
0 /* reg_float */
} ;
short use_any_as_pointer = 0;
STATIC cond_p getcondtab(f)
FILE *f;
{
@ -114,6 +116,7 @@ STATIC ra_machinit(f)
fscanf(f,"%hd",&regs_available[reg_any]);
fscanf(f,"%hd",&regs_available[reg_pointer]);
fscanf(f,"%hd",&regs_available[reg_float]);
fscanf(f,"%hd",&use_any_as_pointer);
get_atab(f,alocaltab);
get_atab(f,alocaddrtab);
aconsttab = getcondtab(f);

3
util/ego/ra/ra.h
View file

@ -36,6 +36,9 @@ typedef struct time *time_p;
extern short regs_available[]; /* contains #registers of every type */
extern short use_any_as_pointer;/* indicates whether general registers
can be used as pointers
*/
/* A thing that can be put in a register is called an "item". The are several

7
util/ego/ra/ra_profits.c
View file

@ -65,7 +65,7 @@ allocscore(itemtyp,localtyp,size,off,totyp,time_out,space_out)
offset off;
short *time_out, *space_out;
{
cond_p m;
cond_p m = (cond_p) 0;
if (localtyp == reg_loop) localtyp = reg_any;
if (size == ws || size ==ps && totyp == reg_pointer) {
@ -74,6 +74,7 @@ allocscore(itemtyp,localtyp,size,off,totyp,time_out,space_out)
m = alocaltab[localtyp][totyp];
break;
case LOCAL_ADDR:
if (use_any_as_pointer || totyp == reg_pointer)
m = alocaddrtab[localtyp][totyp];
break;
case CONST:
@ -83,14 +84,14 @@ allocscore(itemtyp,localtyp,size,off,totyp,time_out,space_out)
m = aconsttab;
break;
case GLOBL_ADDR:
if (use_any_as_pointer || totyp == reg_pointer)
m = aglobaltab;
break;
case PROC_ADDR:
if (use_any_as_pointer || totyp == reg_pointer)
m = aproctab;
break;
}
} else {
m = (cond_p) 0;
}
*time_out = (m == (cond_p) 0 ? -1 : map_value(m,off,TRUE));
*space_out = (m == (cond_p) 0 ? -1 : map_value(m,off,FALSE));