Changeset 3944 for src/Pugs/Run

Timestamp:

05/27/05 03:27:56 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

5515

Message:

* various callconv fix.

Files:

• src/Pugs/Run/Perl5.hs (modified) (1 diff)

src/Pugs/Run/Perl5.hs

@@ -62 +62 @@
 pugs_apply :: PugsVal -> PugsVal -> Ptr PugsVal -> IO PugsVal
 pugs_apply subPtr invPtr argsPtr = do
-    print "DEREF #0"
+    -- print "DEREF #0"
     env     <- askPerl5Env
-    print "DEREF #1"
+    -- print "DEREF #1"
     sub     <- deVal subPtr
-    print "DEREF #2"
+    -- print "DEREF #2"
     inv     <- deValMaybe invPtr
-    print "DEREF #3"
+    -- print ("DEREF #3", inv)
     args    <- mapM deVal =<< peekArray0 nullPtr argsPtr
+    -- print ("DEREF #4", args)
     let subExp = case sub of
             VStr name   -> Var name