Devel::PPPort: add PERL_STACK_REALIGN

This was causing build failures when building threads.pm against older
perls.

Author: tonycoz

dist/Devel-PPPort/PPPort_pm.PL

@@ -756,7 +756,7 @@ package Devel::PPPort;
 use strict;
 use vars qw($VERSION $data);
 
-$VERSION = '3.72';
+$VERSION = '3.73';
 
 sub _init_data
 {

dist/Devel-PPPort/parts/inc/misc

@@ -21,6 +21,7 @@ NVTYPE
 PERLIO_FUNCS_CAST
 PERLIO_FUNCS_DECL
 PERL_STATIC_INLINE
+PERL_STACK_REALIGN
 PERL_UNUSED_ARG
 PERL_UNUSED_CONTEXT
 PERL_UNUSED_DECL
@@ -49,6 +50,13 @@ __UNDEFINED__ PERL_STATIC_INLINE static inline
 __UNDEFINED__ PERL_STATIC_INLINE static
 #endif
 
+/* work around a stack alignment bug in 32-bit GCC on Windows */
+#if defined(WIN32) && !defined(WIN64) && defined(__GNUC__)
+__UNDEFINED__ PERL_STACK_REALIGN __attribute__((force_align_arg_pointer))
+#else
+__UNDEFINED__ PERL_STACK_REALIGN
+#endif
+
 __UNDEFINED__ cBOOL(cbool) ((cbool) ? (bool)1 : (bool)0)
 __UNDEFINED__ OpHAS_SIBLING(o)      (cBOOL((o)->op_sibling))
 __UNDEFINED__ OpSIBLING(o)          (0 + (o)->op_sibling)
@@ -1165,6 +1173,9 @@ XS(XS_Devel__PPPort_dAXMARK)
   XSRETURN(1);
 }
 
+/* just test the syntax */
+PERL_STACK_REALIGN void foo(void);
+
 =xsboot
 
 {