Changeset 4886

Timestamp:

06/20/05 22:00:35 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* add some missing type sigs.

Location:

src

Files:

• Emit/PIR.hs (modified) (2 diffs)
• Pugs/Compile/PIR.hs (modified) (1 diff)

src/Emit/PIR.hs

@@ -586 +586 @@
 preludePIR = emit $
     -- [ include "interpinfo.pasm"
-{-
-    , sub "&run_END" []
-        [ tempPMC <-- "find_global" $ [lit "@*END"]
-        , InsLabel "run_END_loop"
-        , tempINT <:= tempPMC
-        , "le" .- [tempINT, ExpLit . LitInt $ 0, bare "run_END_done"]
-        , tempPMC2 <-- "shift" $ [tempPMC]
-        , InsFun [] tempPMC2 []
-        , "goto" .- [bare "run_END_loop"]
-        , InsLabel "run_END_done"
-        ] --> [lit True]
--}
     -- Control flowy
     [ sub "&return" [slurpy arg0]
@@ -643 +631 @@
         , "print" .- [tempSTR]
         ] --> [lit True]
-{- XXX BROKEN
-    , sub "&say" [slurpy arg0]
-        [ "push" .- [arg0, lit "\n"]
-        , "&print" .& [arg0]
-        ]
--}
     , sub "&say" [slurpy arg0]
         [ tempSTR <-- "join" $ [lit "", arg0]

src/Pugs/Compile/PIR.hs

@@ -567 +567 @@
     tellIns $ "returncc" .- []
 
--- XXX - slurpiness
+prmToSig :: Param -> Sig
 prmToSig prm = MkSig (prmToArgs prm) . bare $ prmToIdent prm
+
+prmToArgs :: Param -> [ArgFlag]
 prmToArgs prm = combine 
     [ if isSlurpy prm then (MkArgSlurpyArray:) else id
     , if isOptional prm then (MkArgOptional:) else id
     ] []
+
+prmToIdent :: Param -> String
 prmToIdent = render . varText . paramName
+
+storeLex :: TParam -> Trans ()
 storeLex param = do
     let var = paramName prm