[ViewVC] Diff of: cvs/Coro/Coro/State.xs

Comparing Coro/Coro/State.xs (file contents):
Revision 1.30 by root, Sat Aug 25 22:19:05 2001 UTC vs.
Revision 1.31 by root, Sun Aug 26 16:36:08 2001 UTC

  * still there is a memleak of 128 bytes...
  */
 STATIC void
 destroy_stacks(pTHX)
 {
+  int destruct = PL_main_cv != Nullcv;
+  if (destruct)
+    {
-  /* is this ugly, I ask? */
+      /* is this ugly, I ask? */
-  while (PL_scopestack_ix)
+      while (PL_scopestack_ix)
-    LEAVE;
+        LEAVE;
-  /* sure it is, but more important: is it correct?? :/ */
+      /* sure it is, but more important: is it correct?? :/ */
-  while (PL_tmps_ix > PL_tmps_floor) /* should only ever be one iteration */
+      while (PL_tmps_ix > PL_tmps_floor) /* should only ever be one iteration */
-    FREETMPS;
+        FREETMPS;
+    }
   while (PL_curstackinfo->si_next)
     PL_curstackinfo = PL_curstackinfo->si_next;
   while (PL_curstackinfo)
         dSP;
         SWITCHSTACK (PL_curstack, PL_curstackinfo->si_stack);
         PUTBACK; /* possibly superfluous */
       }
-      if (PL_main_cv != Nullcv) /* don't during destruction. hack? */
+      if (destruct)
+        {
-        dounwind(-1);
+          dounwind(-1);
-      SvREFCNT_dec(PL_curstackinfo->si_stack);
+          SvREFCNT_dec(PL_curstackinfo->si_stack);
+        }
       Safefree(PL_curstackinfo->si_cxstack);
       Safefree(PL_curstackinfo);
       PL_curstackinfo = p;
   }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines