Changeset 22936 for v6

Timestamp:

11/09/08 16:35:08 (2 months ago)

Author:

pmurias

Message:

[m0ld] added noop
[mildew] noop is used for the then label in an if

Location:

v6

Files:

• mildew/src/AST.pm (modified) (1 diff)
• smop/m0ld/M0ld/Parser.hs (modified) (2 diffs)

v6/mildew/src/AST.pm

@@ -55 +55 @@
     'my '.$id_cond.'_val = '.$id_cond.'."FETCH"();'.$/.
     'my '.$id_cond.'_bool = '.$id_cond.'_val."bool"();'.$/.
-    'if '.$id_cond.'_bool { goto '.$label_then.'; } else { goto '.$label_else.'; };'.$/.
+    'if '.$id_cond.'_bool { goto '.$label_then.' } else { goto '.$label_else.' };'.$/.
     $label_then.':'.$/.
     $then.$/.
-    $label_else.':'.$/;
+    $label_else.': noop;'.$/;
 }
 

v6/smop/m0ld/M0ld/Parser.hs

@@ -36 +36 @@
     return [LabelDef id]
 
+
 stmt = do 
     l <- option [] (try label)
-    body <- choice $ map try [label,call2,call,decl,goto,br]
+    body <- choice $ map try [call2,call,decl,goto,br,noop]
     return $ l ++ body
 
@@ -85 +86 @@
     defaultValue <- option None $ symbol "=" >> constant
     return [Decl x defaultValue]
+
+noop = string "noop" >> return []
 
 branch = inBraces $ do