X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=pkgsrc-ghc.git;a=blobdiff_plain;f=files%2Fcapi-wrappers-freebsd-i386.c;fp=files%2Fcapi-wrappers-freebsd-i386.c;h=0000000000000000000000000000000000000000;hp=ad8088322f74089b94c8a43cbc8ccac8b837ce2e;hb=4fe2e34ec7254f1e4eb85b085ea22fd09866b245;hpb=96e61103d139f67648ba7729b614e2cedcbb1ad4

diff --git a/files/capi-wrappers-freebsd-i386.c b/files/capi-wrappers-freebsd-i386.c
deleted file mode 100644
index ad80883..0000000
--- a/files/capi-wrappers-freebsd-i386.c
+++ /dev/null
@@ -1,51 +0,0 @@
-#include "HsFFI.h"
-#include <assert.h>
-#include <fcntl.h>
-#include <sys/time.h>
-#include <utime.h>
-
-/* A quick and dirty hack to resurrect -fvia-C from bitrot.
- *
- * The newest CapiFFI extension doesn't play nice with -fvia-C,
- * generating function wrappers without saving them into the .hc
- * files.
- */
-
-int ghc_wrapper_d2lL_fcntl(int filedes, int cmd);
-int ghc_wrapper_d2lz_fcntl(int filedes, int cmd, long arg);
-int ghc_wrapper_d2lk_fcntl(int filedes, int cmd, struct flock* arg);
-int ghc_wrapper_d1mv_gettimeofday(struct timeval* tp, struct timezone* tzp);
-int ghc_wrapper_d2jA_utime(const char *path, const struct utimbuf *times);
-HsInt32 SystemziConsoleziTerminfoziBase_d2eD(StgStablePtr the_stableptr, void* original_return_addr, HsInt32 a1);
-
-/* c_fcntl_read */
-int ghc_wrapper_d2lL_fcntl(int filedes, int cmd) {
-    return fcntl(filedes, cmd);
-}
-
-/* c_fcntl_write */
-int ghc_wrapper_d2lz_fcntl(int filedes, int cmd, long arg) {
-    return fcntl(filedes, cmd, arg);
-}
-
-/* c_fcntl_lock */
-int ghc_wrapper_d2lk_fcntl(int filedes, int cmd, struct flock* arg) {
-    return fcntl(filedes, cmd, arg);
-}
-
-int ghc_wrapper_d1mv_gettimeofday(struct timeval* tp, struct timezone* tzp) {
-    return gettimeofday(tp, tzp);
-}
-
-int ghc_wrapper_d2jA_utime(const char *path, const struct utimbuf *times) {
-    return utime(path, times);
-}
-
-HsInt32 SystemziConsoleziTerminfoziBase_d2eD(StgStablePtr the_stableptr, void* original_return_addr, HsInt32 a1) {
-    /* The recipe to create this function is somewhere in
-     * compiler/deSugar/DsForeign.lhs, but... I don't want to bother
-     * replicating that here.
-     */
-    assert("DO NOT CALL THIS FUNCTION" == NULL);
-    return -1;
-}