mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +02:00
Code Activity

Make JIT_RET, JIT_FRET and JIT_SP private.

Browse source 
* check/add.tst, check/allocai.tst, check/bp.tst, check/divi.tst,
	check/fib.tst, check/lightning.c, include/lightning/jit_arm.h,
	include/lightning/jit_mips.h, include/lightning/jit_ppc.h,
	include/lightning/jit_private.h, include/lightning/jit_x86.h:
	Make JIT_RET, JIT_FRET and JIT_SP private. These should not be
	used in any operations due to frequently having special
	constraints (usually JIT_FRET). JIT_FP must be made available
	because it must be used as the base register to access stack
	space allocated with jit_allocai.
This commit is contained in:
pcpa 2013-01-17 16:13:29 -02:00
parent 39afbe1c40
commit c5421a8c76
13 changed files with 51 additions and 46 deletions
Download patch file Download diff file Expand all files Collapse all files

14
check/lightning.c
View file

@ -1827,10 +1827,6 @@ regname(void)
case '0': parser.regval = JIT_R0; break;
case '1': parser.regval = JIT_R1; break;
case '2': parser.regval = JIT_R2; break;
case 'e':
if (getch() != 't') goto fail;
parser.regval = JIT_RET;
break;
case '(':
num = get_int(skip_none);
if (num < 0 || num >= JIT_R_NUM) goto fail;
@ -1869,10 +1865,6 @@ regname(void)
case 'p':
parser.regtype = type_l; /* oops */
parser.regval = JIT_FP; break;
case 'r':
if (getch() != 'e' || getch() != 't') goto fail;
parser.regval = JIT_FRET;
break;
case '(':
num = get_int(skip_none);
if (num < 0 || num >= JIT_F_NUM) goto fail;
@ -1883,12 +1875,6 @@ regname(void)
default: goto fail;
}
break;
case 's':
parser.regtype = type_l;
if (getch() != 'p')
goto fail;
parser.regval = JIT_SP;
break;
default:
fail:
error("bad register");