attempt to fix xform problem

Mark some pointer arithmetic as ok.
2015-06-06 09:20:19 -06:00 · 2015-06-06 09:20:19 -06:00 · 4deacddde8
commit 4deacddde8
parent cf8c3c9cfe
1 changed files with 1 additions and 1 deletions
--- a/racket/src/racket/src/eval.c
+++ b/racket/src/racket/src/eval.c
@ -505,7 +505,7 @@ static uintptr_t adjust_stack_base(uintptr_t bnd) {
      while (fgets(buf, 256, f)) {
 	int len;
 	len = strlen(buf);
-	if ((len > 8) && !strcmp("[stack]\n", buf + len - 8)) {
+	if ((len > 8) && !strcmp("[stack]\n", buf XFORM_OK_PLUS len XFORM_OK_MINUS 8)) {
 	  uintptr_t p = 0;
 	  int i;
 	  /* find separator: */