From 50060d9a03e81894a50ed647c708b0279584f7b2 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Mon, 10 Aug 2015 21:45:01 +0000 Subject: [PATCH] re PR libfortran/67140 (undefined reference to _gfortran_mvbits_i16) 2015-08-10 Steven G. Kargl PR libfortran/67140 * intrinsics/mvbits.c: Fix build for paltforms without c_int128_t. From-SVN: r226769 --- libgfortran/ChangeLog | 5 +++++ libgfortran/intrinsics/mvbits.c | 2 ++ 2 files changed, 7 insertions(+) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index dd9143bf845..2206c7fe35e 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2015-08-10 Steven G. Kargl + + PR libfortran/67140 + * intrinsics/mvbits.c: Fix build for paltforms without c_int128_t. + 2015-08-10 Steven G. Kargl PR libfortran/67140 diff --git a/libgfortran/intrinsics/mvbits.c b/libgfortran/intrinsics/mvbits.c index cb9dd6c30bd..b883a2e71e2 100644 --- a/libgfortran/intrinsics/mvbits.c +++ b/libgfortran/intrinsics/mvbits.c @@ -84,6 +84,7 @@ SUB_NAME (const TYPE *from, const int *frompos, const int *len, TYPE *to, # undef TYPE # undef UTYPE +#if defined (HAVE_GFC_INTEGER_16) # define TYPE GFC_INTEGER_16 # define UTYPE GFC_UINTEGER_16 # define SUB_NAME mvbits_i16 @@ -92,3 +93,4 @@ SUB_NAME (const TYPE *from, const int *frompos, const int *len, TYPE *to, # undef TYPE # undef UTYPE #endif +#endif -- 2.30.2