9 /* A quick and dirty hack to resurrect -fvia-C from bitrot.
11 * The newest CapiFFI extension doesn't play nice with -fvia-C,
12 * generating function wrappers without saving them into the .hc
16 int ghc_wrapper_d2kC_fcntl(int fd, int cmd);
17 int ghc_wrapper_d2kq_fcntl(int filedes, int cmd, long arg);
18 int ghc_wrapper_d2kb_fcntl(int filedes, int cmd, struct flock* arg);
19 int ghc_wrapper_d1lS_gettimeofday(struct timeval* tp, struct timezone* tzp);
20 int ghc_wrapper_d2ir_utime(const char *path, const struct utimbuf *times);
21 HsInt32 SystemziConsoleziTerminfoziBase_d2dS(StgStablePtr the_stableptr, HsInt32 a1);
24 int ghc_wrapper_d2kC_fcntl(int fd, int cmd) {
25 return fcntl(fd, cmd);
29 int ghc_wrapper_d2kq_fcntl(int fd, int cmd, long arg) {
30 return fcntl(fd, cmd, arg);
34 int ghc_wrapper_d2kb_fcntl(int fd, int cmd, struct flock* arg) {
35 return fcntl(fd, cmd, arg);
38 int ghc_wrapper_d1lS_gettimeofday(struct timeval* tp, struct timezone* tzp) {
39 return gettimeofday(tp, tzp);
42 int ghc_wrapper_d2ir_utime(const char *path, const struct utimbuf *times) {
43 return utime(path, times);
46 HsInt32 SystemziConsoleziTerminfoziBase_d2dS(StgStablePtr the_stableptr, HsInt32 a1) {
47 /* The recipe to create this function is somewhere in
48 * compiler/deSugar/DsForeign.lhs, but... I don't want to bother
49 * replicating that here.
51 assert("DO NOT CALL THIS FUNCTION" == NULL);