[Bast-commits] r4961 - Devel-Declare/1.000/trunk

rafl at dev.catalyst.perl.org rafl at dev.catalyst.perl.org
Fri Oct 24 08:17:20 BST 2008


Author: rafl
Date: 2008-10-24 08:17:20 +0100 (Fri, 24 Oct 2008)
New Revision: 4961

Modified:
   Devel-Declare/1.000/trunk/Declare.xs
Log:
Don't mix declarations and code when declaring the stack pointer.

Modified: Devel-Declare/1.000/trunk/Declare.xs
===================================================================
--- Devel-Declare/1.000/trunk/Declare.xs	2008-10-24 03:00:57 UTC (rev 4960)
+++ Devel-Declare/1.000/trunk/Declare.xs	2008-10-24 07:17:20 UTC (rev 4961)
@@ -194,6 +194,7 @@
 /* replacement PL_check rv2cv entry */
 
 STATIC OP *dd_ck_rv2cv(pTHX_ OP *o, void *user_data) {
+  dSP;
   OP* kid;
   int dd_flags;
 
@@ -206,13 +207,11 @@
       printf("linestr len: %i\n", PL_bufend - SvPVX(PL_linestr));
     }
 
-    dSP;
-  
     ENTER;
     SAVETMPS;
-  
+
     PUSHMARK(SP);
-  
+
     call_pv("Devel::Declare::done_declare", G_VOID|G_DISCARD);
 
     FREETMPS;




More information about the Bast-commits mailing list