diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-05-05 12:38:54 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-05-05 12:38:54 +0200 |
| commit | a483e711da7834bc952367f554ac4e877b4e157a (patch) | |
| tree | 69a5ea6857e04609f27610379459aa683175fec2 /rts/linker/MachO.c | |
| parent | 02748a52659949a06ef61d02894dadddd3c97412 (diff) | |
| download | haskell-a483e711da7834bc952367f554ac4e877b4e157a.tar.gz | |
tweak to minimize diff against ocInit_ELF
Diffstat (limited to 'rts/linker/MachO.c')
| -rw-r--r-- | rts/linker/MachO.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/linker/MachO.c b/rts/linker/MachO.c index f8b665a90b..8895482e9f 100644 --- a/rts/linker/MachO.c +++ b/rts/linker/MachO.c @@ -100,8 +100,8 @@ void ocInit_MachO(ObjectCode * oc) { oc->info = (struct ObjectCodeFormatInfo*)stgCallocBytes( - 1, sizeof(struct ObjectCodeFormatInfo), - "ocInit_MachO(struct ObjectCodeFormatInfo)"); + 1, sizeof *oc->info, + "ocInit_MachO(ObjectCodeFormatInfo)"); oc->info->header = (MachOHeader *) oc->image; oc->info->symCmd = NULL; oc->info->segCmd = NULL; |