[svn:parrot] r47379 - trunk/src/ops

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Jun  5 11:32:13 2010
New Revision: 47379
URL: https://trac.parrot.org/parrot/changeset/47379

Log:
Use predefined flag in op sweep instead of wrong magical 0

Modified:
   trunk/src/ops/core.ops
   trunk/src/ops/core_ops.c

Modified: trunk/src/ops/core.ops
==============================================================================
--- trunk/src/ops/core.ops	Sat Jun  5 11:31:43 2010	(r47378)
+++ trunk/src/ops/core.ops	Sat Jun  5 11:32:13 2010	(r47379)
@@ -1107,7 +1107,7 @@
 
 op sweep(inconst INT) {
     if ($1)
-        Parrot_gc_mark_and_sweep(interp, 0);
+        Parrot_gc_mark_and_sweep(interp, GC_trace_normal_FLAG);
     else
         if (Parrot_gc_impatient_pmcs(interp))
             Parrot_gc_mark_and_sweep(interp, GC_lazy_FLAG);

Modified: trunk/src/ops/core_ops.c
==============================================================================
--- trunk/src/ops/core_ops.c	Sat Jun  5 11:31:43 2010	(r47378)
+++ trunk/src/ops/core_ops.c	Sat Jun  5 11:32:13 2010	(r47379)
@@ -14989,7 +14989,7 @@
 Parrot_sweep_ic(opcode_t *cur_opcode, PARROT_INTERP)  {
     const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
     if (cur_opcode[1])
-        Parrot_gc_mark_and_sweep(interp, 0);
+        Parrot_gc_mark_and_sweep(interp, GC_trace_normal_FLAG);
     else
         if (Parrot_gc_impatient_pmcs(interp))
             Parrot_gc_mark_and_sweep(interp, GC_lazy_FLAG);