Semicolon consistency between PERL_FPU_INIT and the other INITs.

p4raw-id: //depot/perl@29075

diff --git a/perl.h b/perl.h
index b23439f..3f46dd1 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -2565,10 +2565,10 @@ typedef struct clone_params CLONE_PARAMS;
 #    if HAS_FLOATINGPOINT_H
 #      include <floatingpoint.h>
 #    endif
-#    define PERL_FPU_INIT fpsetmask(0);
+#    define PERL_FPU_INIT fpsetmask(0)
 #  else
 #    if defined(SIGFPE) && defined(SIG_IGN) && !defined(PERL_MICRO)
-#      define PERL_FPU_INIT       PL_sigfpe_saved = (Sighandler_t) signal(SIGFPE, SIG_IGN);
+#      define PERL_FPU_INIT       PL_sigfpe_saved = (Sighandler_t) signal(SIGFPE, SIG_IGN)
 #      define PERL_FPU_PRE_EXEC   { Sigsave_t xfpe; rsignal_save(SIGFPE, PL_sigfpe_saved, &xfpe);
 #      define PERL_FPU_POST_EXEC    rsignal_restore(SIGFPE, &xfpe); }
 #    else

diff --git a/unixish.h b/unixish.h
index 8a1a943..b87baef 100644 (file)
--- a/unixish.h
+++ b/unixish.h
@@ -128,7 +128,7 @@
 
 #ifndef PERL_SYS_INIT
 #  define PERL_SYS_INIT(c,v)                                           \
-       MALLOC_CHECK_TAINT2(*c,*v) PERL_FPU_INIT PERLIO_INIT; MALLOC_INIT
+       MALLOC_CHECK_TAINT2(*c,*v) PERL_FPU_INIT; PERLIO_INIT; MALLOC_INIT
 #endif
 
 #ifndef PERL_SYS_TERM