This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move #include <assert.h> before ASSUME/NOT_REACHED.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 30 May 2014 01:47:57 +0000 (21:47 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 30 May 2014 01:50:44 +0000 (21:50 -0400)
perl.h

diff --git a/perl.h b/perl.h
index d9c2f47..6dca730 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -3122,6 +3122,10 @@ typedef pthread_key_t    perl_key;
 #  define __attribute__warn_unused_result__
 #endif
 
+#if defined(DEBUGGING) && defined(I_ASSERT)
+#  include <assert.h>
+#endif
+
 /* For functions that are marked as __attribute__noreturn__, it's not
    appropriate to call return.  In either case, include the lint directive.
  */
@@ -3787,10 +3791,6 @@ Gid_t getegid (void);
                    where, (long)PL_scopestack_ix, (long)PL_savestack_ix, \
                    __FILE__, __LINE__));
 
-#if defined(DEBUGGING) && defined(I_ASSERT)
-#  include <assert.h>
-#endif
-
 /* Keep the old croak based assert for those who want it, and as a fallback if
    the platform is so heretically non-ANSI that it can't assert.  */