Changeset 15296 for src/Pugs/Run

Timestamp:

02/18/07 15:56:10 (21 months ago)

Author:

audreyt

Message:

* Convert VStr from String to ByteString?, and Syn from

String to ID, in Pugs. Benchmark shows the perf gain is 5%,
so it's not worth the trouble of writing a GHC 6.7-compatible
processor. The next commit will revert this commit.

Files:

• src/Pugs/Run/Perl5.hs (modified) (4 diffs)

src/Pugs/Run/Perl5.hs

@@ -14 +14 @@
 import Foreign.C.String
 import Foreign.Marshal.Array
+import qualified Data.ByteString.Char8 as Str
 
 foreign export ccall "pugs_Eval"
@@ -70 +71 @@
     args    <- mapM deVal =<< peekArray0 nullVal argsPtr
     let subExp = case sub of
-            VStr name@('&':_)   -> _Var name
-            VStr name           -> _Var ('&':name)
+            VStr str -> case cast str of
+                name@('&':_)    -> _Var name
+                name            -> _Var ('&':name)
             _                   -> Val sub
     -- warn "Applying:" (subExp, inv, args, envLexical env)
@@ -118 +120 @@
     env     <- askPerl5Env
     VStr x  <- runEvalIO env $ fmap VInt (fromVal val)
-    newCString x
+    newCString (cast x)
 
 mkSvRef :: PerlSV -> IO PugsVal
@@ -132 +134 @@
 pvnToVal cstr len = do
     str <- peekCStringLen (cstr, fromEnum len)
-    ptr <- mkVal $ VStr (decodeUTF8 str)
+    ptr <- mkVal $ _VStr (decodeUTF8 str)
     return ptr