Changeset 9309 for src/Pugs/CodeGen

Timestamp:

03/06/06 22:27:05 (3 years ago)

Author:

audreyt

Message:

* sweeping warnings fix on unused imports and functions.

Location:

src/Pugs/CodeGen

Files:

• JSON.hs (modified) (1 diff)
• PIL1.hs (modified) (1 diff)
• PIL2.hs (modified) (1 diff)
• PIR.hs (modified) (4 diffs)
• Perl5.hs (modified) (1 diff)
• YAML.hs (modified) (1 diff)

src/Pugs/CodeGen/JSON.hs

@@ -6 +6 @@
 import Pugs.AST
 import Pugs.Compile
-import Pugs.PIL1.Instances
+import Pugs.PIL1.Instances ()
 import Pugs.PIL1
 import DrIFT.JSON

src/Pugs/CodeGen/PIL1.hs

@@ -5 +5 @@
 import Pugs.Internals
 import Pugs.AST
-import Pugs.PIL1.Instances
+import Pugs.PIL1.Instances ()
 import Pugs.PIL1
 import Pugs.Compile

src/Pugs/CodeGen/PIL2.hs

@@ -8 +8 @@
 import Pugs.Internals
 import Pugs.AST
-import Pugs.PIL2.Instances
+import Pugs.PIL2.Instances ()
 import Pugs.PIL2
 import Pugs.Compile.PIL2

src/Pugs/CodeGen/PIR.hs

@@ -20 +20 @@
 import Pugs.Eval.Var
 import Pugs.PIL1
-import Emit.PIR.Instances
+import Emit.PIR.Instances ()
 import Emit.PIR
 import Pugs.Pretty
@@ -89 +89 @@
         return $ ExpLV pmc
     trans (PThunk exp) = do
-        [begL, initL]  <- genLabel ["thunk", "thunkInit"]
+        [begL, _]  <- genLabel ["thunk", "thunkInit"]
         this    <- genPMC "thunk"
         let begP = begL ++ "_C"
@@ -312 +312 @@
 genArray = genWith (`InsNew` PerlArray)
 
-genHash :: (RegClass a) => String -> CodeGen a
-genHash = genWith (`InsNew` PerlHash)
+-- genHash :: (RegClass a) => String -> CodeGen a
+-- genHash = genWith (`InsNew` PerlHash)
 
 genLabel :: [String] -> CodeGen [LabelName]
@@ -406 +406 @@
 vivifySub _ = []
 
+genPIRWith :: ([Decl] -> [Stmt] -> PIL_Environment -> Eval a) -> Eval a
 genPIRWith f = do
     tenv        <- initTEnv

src/Pugs/CodeGen/Perl5.hs

@@ -6 +6 @@
 import Pugs.AST
 import Pugs.Compile
-import Pugs.PIL1.Instances
+import Pugs.PIL1.Instances ()
 import Pugs.PIL1
 import DrIFT.Perl5

src/Pugs/CodeGen/YAML.hs

@@ -6 +6 @@
 import Pugs.AST
 import Pugs.Compile
-import Pugs.PIL1.Instances
+import Pugs.PIL1.Instances ()
 import Pugs.PIL1
 import DrIFT.YAML