From 6ebfdb2a105b7354d6e081abece071cd7948bbf9 Mon Sep 17 00:00:00 2001
From: Gareth Rees <gdr@ravenbrook.com>
Date: Thu, 21 Jun 2018 17:30:51 +0100
Subject: [PATCH] Avoid "dereferencing type-punned pointer will break
 strict-aliasing rules" from gcc 4.8.

Copied from Perforce
 Change: 194061
---
 mps/code/event.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/mps/code/event.c b/mps/code/event.c
index 2b196034e75..ec032640a46 100644
--- a/mps/code/event.c
+++ b/mps/code/event.c
@@ -423,9 +423,9 @@ void EventDump(mps_lib_FILE *stream)
   }
 
   for (kind = 0; kind < EventKindLIMIT; ++kind) {
-    for (event = (Event)EventBuffer[kind];
-         (char *)event < EventLogged[kind];
-         event = (Event)((char *)event + event->any.size)) {
+    for (event = (void *)EventBuffer[kind];
+         (void *)event < (void *)EventLogged[kind];
+         event = PointerAdd(event, event->any.size)) {
       /* Try to keep going even if there's an error, because this is used as a
          backtrace and we'll take what we can get. */
       (void)EventWrite(event, stream);