Changeset 5167 for src/Pugs/CodeGen/PIR.hs

Timestamp:

07/04/05 00:34:05 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6965

Message:

* AST.Internals, CodeGen?.PIR - deal with the fallout of

not deriving from Read. also introduce newHash for incHV.

Files:

• src/Pugs/CodeGen/PIR.hs (modified) (2 diffs)

src/Pugs/CodeGen/PIR.hs

@@ -18 +18 @@
 import Pugs.AST
 import Pugs.AST.Internals
+import Pugs.Eval.Var
 import Emit.Common
 import Emit.PIR
@@ -311 +312 @@
     let var = render $ varText name
     tellIns $ InsLocal RegPMC var
-    tellIns $ InsNew (VAR var) (read $ render $ varInit name)
+    tellIns $ InsNew (VAR var) (varInit name)
     return $ reg (VAR var)
 
-varInit :: String -> Doc
-varInit ('$':_) = text $ "PerlScalar"
-varInit ('@':_) = text $ "PerlArray"
-varInit ('%':_) = text $ "PerlHash"
-varInit ('&':_) = text $ "PerlScalar"
-varInit x       = error $ "invalid name: " ++ x
+varInit :: String -> ObjType
+varInit ('$':_) = PerlScalar
+varInit ('@':_) = PerlArray
+varInit ('%':_) = PerlHash
+varInit ('&':_) = PerlScalar
+varInit x       = internalError $ "Invalid name: " ++ x
 
 {-| Compiles the current environment to PIR code. -}