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

fix pointer comparison for JIT overflow

Browse Source 
svn: r6910
This commit is contained in:
Matthew Flatt 2007-07-13 22:07:48 +00:00
parent e661e96cfe
commit e9a0d9552f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/mzscheme/src/jit.c
View File

@ -252,14 +252,14 @@ static Scheme_Object *_scheme_tail_apply_from_native_fixup_args(Scheme_Object *r
#endif
#define _jit (jitter->js)
#define PAST_LIMIT() ((long)jit_get_ip().ptr > (long)jitter->limit)
#define PAST_LIMIT() ((unsigned long)jit_get_ip().ptr > (unsigned long)jitter->limit)
#define CHECK_LIMIT() if (PAST_LIMIT()) return past_limit(jitter);
#if 1
# define past_limit(j) 0
#else
static int past_limit(mz_jit_state *jitter)
{
if ((jit_get_ip().ptr > jitter->limit + JIT_BUFFER_PAD_SIZE)
if (((unsigned long)jit_get_ip().ptr > (unsigned long)jitter->limit + JIT_BUFFER_PAD_SIZE)
|| (jitter->retain_start)) {
printf("way past\n");
}