[commit: ghc] master: rts: Fix MachO from D3527 (8a60550)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/8a6055048c0af75bbaed24df35a9b48afe1fa242/ghc

>---------------------------------------------------------------

commit 8a6055048c0af75bbaed24df35a9b48afe1fa242
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Thu May 4 15:23:46 2017 -0400

    rts: Fix MachO from D3527
    
    We gave up on typedefing {Section,ObjectCode}FormatInfo structs but
    MachO never got the memo.


>---------------------------------------------------------------

8a6055048c0af75bbaed24df35a9b48afe1fa242
 rts/linker/MachO.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/rts/linker/MachO.c b/rts/linker/MachO.c
index 55ca853..f8b665a 100644
--- a/rts/linker/MachO.c
+++ b/rts/linker/MachO.c
@@ -99,9 +99,9 @@ bool ocMprotect_MachO( ObjectCode *oc );
 void
 ocInit_MachO(ObjectCode * oc)
 {
-    oc->info = (ObjectCodeFormatInfo*)stgCallocBytes(
-                1, sizeof(ObjectCodeFormatInfo),
-                "ocInit_MachO(ObjectCodeFormatInfo)");
+    oc->info = (struct ObjectCodeFormatInfo*)stgCallocBytes(
+                1, sizeof(struct ObjectCodeFormatInfo),
+                "ocInit_MachO(struct ObjectCodeFormatInfo)");
     oc->info->header  = (MachOHeader *) oc->image;
     oc->info->symCmd  = NULL;
     oc->info->segCmd  = NULL;