Changeset 10662 for src/Pugs/CodeGen

Timestamp:

06/12/06 16:23:53 (2 years ago)

Author:

audreyt

Message:

* -CPIR: catch up the VType change by treating it as VUndef (for now)

Files:

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

src/Pugs/CodeGen/PIR.hs

@@ -65 +65 @@
     trans PNoop = return (StmtComment "")
     trans (PStmt (PLit (PVal VUndef))) = return $ StmtComment ""
+    trans (PStmt (PLit (PVal VType{}))) = return $ StmtComment ""
     trans (PStmt exp) = do
         expC    <- trans exp
@@ -79 +80 @@
     trans (PExp exp) = fmap ExpLV $ trans exp
     trans (PLit (PVal VUndef)) = do
+        pmc     <- genScalar "undef"
+        return $ ExpLV pmc
+    trans (PLit (PVal VType{})) = do
         pmc     <- genScalar "undef"
         return $ ExpLV pmc