Changeset 15777 for src/Pugs/Compile

Timestamp:

03/22/07 20:58:32 (20 months ago)

Author:

audreyt

Message:

* Gain another ~10% on startup speed (Prelude+Test) by simply

changing all "atomically . newTVar" to "newTVarIO" when
atomicity is irrelevant.

Location:

src/Pugs/Compile

Files:

• PIL2.hs (modified) (1 diff)
• Pugs.hs (modified) (1 diff)

src/Pugs/Compile/PIL2.hs

@@ -433 +433 @@
 initTEnv :: Eval TEnv
 initTEnv = do
-    initReg <- stm $ newTVar (0, "")
-    initLbl <- stm $ newTVar 0
+    initReg <- io $ newTVarIO (0, "")
+    initLbl <- io $ newTVarIO 0
     return $ MkTEnv
         { tLexDepth = 0

src/Pugs/Compile/Pugs.hs

@@ -130 +130 @@
         if Str.null vrefC then return Str.empty else do
         tv      <- io $ fmap (Str.pack . ('t':) . show . hashUnique) newUnique
-        tell [Str.concat [tv, Str.pack " <- stm (newTVar ", vrefC, Str.pack ");\n"]]
+        tell [Str.concat [tv, Str.pack " <- io (newTVarIO ", vrefC, Str.pack ");\n"]]
         return tv