suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

complain when the up-to-3-arguments JIT constraint is broken

Browse Source 
svn: r15674
This commit is contained in:
Matthew Flatt 2009-08-05 12:36:27 +00:00
parent 7616035dc0
commit 0d4ef1fc9f
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mzscheme/src/lightning/i386/core-common.h
View File

@ -284,7 +284,11 @@ static jit_state _jit;
#define jit_pushr_p(rs) jit_pushr_ul(rs) #define jit_pushr_p(rs) jit_pushr_ul(rs)
#define jit_popr_p(rs) jit_popr_ul(rs) #define jit_popr_p(rs) jit_popr_ul(rs)
#define jit_prepare(nint) jit_prepare_i((nint)) static void jit_check_arg_count(int n) {
if (n > 3) printf("jit_prepare: arg count must be less than 3 for x86_64!\n");
}
#define jit_prepare(nint) (jit_check_arg_count(nint), jit_prepare_i((nint)))
#define jit_pusharg_c(rs) jit_pusharg_i(rs) #define jit_pusharg_c(rs) jit_pusharg_i(rs)
#define jit_pusharg_s(rs) jit_pusharg_i(rs) #define jit_pusharg_s(rs) jit_pusharg_i(rs)
#define jit_pusharg_uc(rs) jit_pusharg_i(rs) #define jit_pusharg_uc(rs) jit_pusharg_i(rs)