Changeset 15296 for src/Pugs/Val

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.

Location:

src/Pugs/Val

Files:

• Base.hs (modified) (2 diffs)
• Code.hs (modified) (1 diff)

src/Pugs/Val/Base.hs

@@ -25 +25 @@
     asNum x = fail $ "coerce fail: " ++ (show $ typeOf x) ++ " to PureNum"
     asStr    :: a -> m PureStr
-    asStr _ = return (cast "<opaque>") -- XXX wrong
+    asStr _ = return (_cast "<opaque>") -- XXX wrong
     -- "$item = VAL"
     asItem   :: a -> Maybe (m Val)
@@ -78 +78 @@
 instance ICoercible P PureInt where
     asInt = return . cast
-    asStr INotANumber           = cast "NaN"
-    asStr (IInfinite SPositive) = cast "Inf"
-    asStr (IInfinite SNegative) = cast "-Inf"
+    asStr INotANumber           = _cast "NaN"
+    asStr (IInfinite SPositive) = _cast "Inf"
+    asStr (IInfinite SNegative) = _cast "-Inf"
     asStr (IFinite n)           = cast (show n)
     asNum INotANumber           = return $ cast ( (0/0) :: Double)

src/Pugs/Val/Code.hs

@@ -223 +223 @@
 
 instance ICoercible P ValCapt where
-        asStr _ = return (cast "<capt>") -- XXX
-
+        asStr _ = return (_cast "<capt>") -- XXX
+