mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2025-01-19 05:57:04 +01:00
c302b7a596
* gnu/packages/patches/hugs-fix-build.patch: New file. * gnu/local.mk (dist_patch_DATA): Register it. * gnu/packages/hugs.scm (hugs)[source]: Use it. [native-inputs]: Remove. Change-Id: I8b17f6c8a89fbc25ac9fe40b58962c83b08cbc21 Signed-off-by: Ludovic Courtès <ludo@gnu.org>
24 lines
837 B
Diff
24 lines
837 B
Diff
Fixes build with GCC 5 and later.
|
|
Patch from <https://aur.archlinux.org/cgit/aur.git/tree/hsbase_inline.patch?h=hugs>.
|
|
|
|
diff --git a/packages/base/include/HsBase.h b/packages/base/include/HsBase.h
|
|
index aa1a7fb..78d5b46 100644
|
|
--- a/packages/base/include/HsBase.h
|
|
+++ b/packages/base/include/HsBase.h
|
|
@@ -217,15 +217,7 @@ StgWord64 stg_integerToWord64 (StgInt sa, StgByteArray /* Really: mp_limb_t* */
|
|
when compiling to native code.
|
|
-------------------------------------------------------------------------- */
|
|
|
|
-#ifndef INLINE
|
|
-# if defined(_MSC_VER)
|
|
-# define INLINE extern __inline
|
|
-# elif defined(__GNUC__)
|
|
-# define INLINE extern inline
|
|
-# else
|
|
-# define INLINE inline
|
|
-# endif
|
|
-#endif
|
|
+#define INLINE inline
|
|
|
|
INLINE int __hscore_get_errno(void) { return errno; }
|
|
INLINE void __hscore_set_errno(int e) { errno = e; }
|