This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Dynaloader: fix build issue
authorDavid Mitchell <davem@iabyn.com>
Thu, 14 Nov 2013 12:45:44 +0000 (12:45 +0000)
committerDavid Mitchell <davem@iabyn.com>
Thu, 14 Nov 2013 12:54:39 +0000 (12:54 +0000)
My commit from yesterday, 860b3d937d9b004a7de4b684765ab75006c71f00,
inadvertently included c99-ish mixed declarations and code.

ext/DynaLoader/dl_aix.xs
ext/DynaLoader/dl_dllload.xs
ext/DynaLoader/dl_dlopen.xs
ext/DynaLoader/dl_dyld.xs
ext/DynaLoader/dl_hpux.xs
ext/DynaLoader/dl_next.xs
ext/DynaLoader/dl_symbian.xs
ext/DynaLoader/dl_vms.xs
ext/DynaLoader/dl_win32.xs

index e56fdc4..9c98972 100644 (file)
@@ -772,9 +772,10 @@ dl_error()
 void
 CLONE(...)
     CODE:
-    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
+    PERL_UNUSED_VAR(items);
+
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid
      * using Perl variables that belong to another thread, we create our 
      * own for this thread.
index f7daf01..ea0a8f6 100644 (file)
@@ -197,9 +197,10 @@ dl_error()
 void
 CLONE(...)
     CODE:
-    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
+    PERL_UNUSED_VAR(items);
+
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid
      * using Perl variables that belong to another thread, we create our 
      * own for this thread.
index 9cbbeb4..cb513ab 100644 (file)
@@ -271,9 +271,10 @@ dl_error()
 void
 CLONE(...)
     CODE:
-    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
+    PERL_UNUSED_VAR(items);
+
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid
      * using Perl variables that belong to another thread, we create our 
      * own for this thread.
index 280d27e..caa9467 100644 (file)
@@ -226,9 +226,10 @@ dl_error()
 void
 CLONE(...)
     CODE:
-    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
+    PERL_UNUSED_VAR(items);
+
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid
      * using Perl variables that belong to another thread, we create our 
      * own for this thread.
index ff3ed37..9acf8ce 100644 (file)
@@ -182,9 +182,10 @@ dl_error()
 void
 CLONE(...)
     CODE:
-    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
+    PERL_UNUSED_VAR(items);
+
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid
      * using Perl variables that belong to another thread, we create our 
      * own for this thread.
index 99f4d2f..f1fb1c4 100644 (file)
@@ -329,9 +329,10 @@ dl_error()
 void
 CLONE(...)
     CODE:
-    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
+    PERL_UNUSED_VAR(items);
+
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid
      * using Perl variables that belong to another thread, we create our 
      * own for this thread.
index 9a0ba45..7f0c0d3 100644 (file)
@@ -226,9 +226,10 @@ dl_error()
 void
 CLONE(...)
     CODE:
-    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
+    PERL_UNUSED_VAR(items);
+
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid
      * using Perl variables that belong to another thread, we create our 
      * own for this thread.
index 11053a3..d30d839 100644 (file)
@@ -359,9 +359,10 @@ dl_error()
 void
 CLONE(...)
     CODE:
-    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
+    PERL_UNUSED_VAR(items);
+
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid
      * using Perl variables that belong to another thread, we create our 
      * own for this thread.
index 3d86b95..f5d56cf 100644 (file)
@@ -199,9 +199,10 @@ dl_error()
 void
 CLONE(...)
     CODE:
-    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
+    PERL_UNUSED_VAR(items);
+
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid
      * using Perl variables that belong to another thread, we create our 
      * own for this thread.