From 4deacddde8a478f68d1915707c021a7366e7b54e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 6 Jun 2015 09:20:19 -0600
Subject: [PATCH] attempt to fix xform problem

Mark some pointer arithmetic as ok.
---
 racket/src/racket/src/eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/eval.c b/racket/src/racket/src/eval.c
index c1488c1963..ec32065b17 100644
--- 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: */