Changeset 21930

Timestamp:

08/18/08 09:06:22 (3 months ago)

Author:

pmurias

Message:

[pugs] removed the useless use of constant warning

Files:

• misc/elfish/elfX/EmitM0ld.pm (modified) (1 diff)
• src/Pugs/CodeGen/M0ld.hs (modified) (1 diff)
• src/Pugs/Compile.hs (modified) (2 diffs)

misc/elfish/elfX/EmitM0ld.pm

@@ -61 +61 @@
       if ($n.function eq 'return') {
           my $arguments = $n.capture.arguments;
-          my $positionals = "";
+          my $positionals_emit = "";
+          my $positionals_args = "";
           for $arguments.keys -> $i {
-              $positionals = $positionals ~ $.e($arguments[$i],"pos_" ~ $id ~ "_" ~ $i);
+              $positionals_args = $positionals ~ $.e($arguments[$i],'pos_' ~ $id ~ "_" ~ $i);
+
           }
-          'i_' ~ $id ~ ': $continuation;' ~ "\n" ~ 
-          $positionals ~
-          '$SMOP__SLIME__CurrentFrame.move_capturize('~self.capturize($arguments,$id)~");\n" ~
-          $ret ~ ': $continuation.$SMOP__ID__setr();' ~ "\n"
+          $positionals_emit ~
+          '$back.setr('~$positionals_args~");\n" ~
+          '$interpreter.goto($back);'
       } elsif ($n.function eq 'infix:=') {
         IRx1::Call.new('invocant',$n.capture.arguments[0],'method','STORE','capture',IRx1::Capture.new('arguments',[$n.capture.arguments[1]])).callback(self,$ret);

src/Pugs/CodeGen/M0ld.hs

@@ -11 +11 @@
 genM0ld filepath = do
     penv <- compile () :: Eval PIL_Environment
-    return $ VStr $ filepath++"\n"
+    return $ VStr $ (show penv)

src/Pugs/Compile.hs

@@ -209 +209 @@
     compile (Ann _ rest) = compile rest
     compile Noop = return PNoop
+    {-
     compile (Val val) = do
         cxt     <- asks envContext
@@ -218 +219 @@
                     compile Noop
             else compile val
+    -}
+    compile (Val val) = compile val
     compile (Syn "loop" [exp]) =
         compile (Syn "loop" $ [emptyExp, Val (VBool True), emptyExp, exp])