[MacPorts] #48899: haskell-platform update?

[MacPorts]

#48899: haskell-platform update?
-------------------------------+------------------------
  Reporter:  J.Gilbey@…        |      Owner:  neverpanic
      Type:  update            |     Status:  assigned
  Priority:  Normal            |  Milestone:
 Component:  ports             |    Version:
Resolution:                    |   Keywords:
      Port:  haskell-platform  |
-------------------------------+------------------------

Comment (by informatimago):

 It looks like by just adding:

 {{{
 #ifdef darwin_HOST_OS
 #include <mach/mach_time.h>
 #endif
 }}}

 in rts/posix/GetTime.c , the following errors can be eliminated.

 {{{
 :info:build "inplace/bin/ghc-stage1" -optc-m64 -optc-fno-stack-protector
 -optc-Wall -optc-Wextra -optc-Wstrict-prototypes -optc-Wmissing-prototypes
 -optc-Wmissing-declarations -optc-Winline -optc-Waggregate-return -optc-
 Wpointer-arith -optc-Wmissing-noreturn -optc-Wnested-externs -optc-
 Wredundant-decls -optc-Iincludes -optc-Iincludes/dist -optc-Iincludes
 /dist-derivedconstants/header -optc-Iincludes/dist-ghcconstants/header
 -optc-Irts -optc-Irts/dist/build -optc-DCOMPILING_RTS -optc-fno-strict-
 aliasing -optc-fno-common -optc-DDTRACE -optc-O2 -optc-fomit-frame-pointer
 -optc-DRtsWay=\"rts_v\" -static  -H32m -O -Iincludes -Iincludes/dist
 -Iincludes/dist-derivedconstants/header -Iincludes/dist-
 ghcconstants/header -Irts -Irts/dist/build -DCOMPILING_RTS -package-name
 rts -dcmm-lint  -DDTRACE     -i -irts -irts/dist/build
 -irts/dist/build/autogen -Irts/dist/build -Irts/dist/build/autogen
 -O2    -c rts/posix/GetTime.c -o rts/dist/build/posix/GetTime.o
 :info:build
 :info:build rts/posix/GetTime.c:44:5:
 :info:build      error: use of undeclared identifier
 'mach_timebase_info_data_t'
 :info:build         mach_timebase_info_data_t info;
 :info:build         ^
 :info:build
 :info:build rts/posix/GetTime.c:45:12:
 :info:build      warning: implicit declaration of function
 'mach_timebase_info' is invalid in C99 [-Wimplicit-function-declaration]
 :info:build         (void) mach_timebase_info(&info);
 :info:build                ^
 :info:build
 :info:build rts/posix/GetTime.c:45:32:
 :info:build      error: use of undeclared identifier 'info'; did you mean
 'sinf'?
 :info:build         (void) mach_timebase_info(&info);
 :info:build                                    ^~~~
 :info:build                                    sinf
 :info:build
 :info:build /usr/include/math.h:342:14:  note: 'sinf' declared here
 :info:build extern float sinf(float);
 :info:build              ^
 :info:build
 :info:build rts/posix/GetTime.c:46:44:
 :info:build      error: use of undeclared identifier 'info'; did you mean
 'int'?
 :info:build         timer_scaling_factor_numer = (uint64_t)info.numer;
 :info:build                                                ^~~~
 :info:build                                                int
 :info:build
 :info:build rts/posix/GetTime.c:46:44:  error: expected expression
 :info:build
 :info:build rts/posix/GetTime.c:47:44:
 :info:build      error: use of undeclared identifier 'info'; did you mean
 'int'?
 :info:build         timer_scaling_factor_denom = (uint64_t)info.denom;
 :info:build                                                ^~~~
 :info:build                                                int
 :info:build
 :info:build rts/posix/GetTime.c:47:44:  error: expected expression
 :info:build 1 warning and 6 errors generated.
 :info:build make[1]: *** [rts/dist/build/posix/GetTime.o] Error 1
 }}}

--
Ticket URL: <https://trac.macports.org/ticket/48899#comment:25>
MacPorts <https://www.macports.org/>
Ports system for macOS