From e3aa07cf26ec5907a0c477de3af8fcdfdb79edae Mon Sep 17 00:00:00 2001 From: Doni Pracner Date: Fri, 18 Jul 2014 17:03:46 +0200 Subject: [PATCH] experimental transf script, move the flag removal --- src-wsl/transf-exp.wsl | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/src-wsl/transf-exp.wsl b/src-wsl/transf-exp.wsl index 1bffdbd..6e50137 100755 --- a/src-wsl/transf-exp.wsl +++ b/src-wsl/transf-exp.wsl @@ -45,11 +45,7 @@ MW_PROC @Process_Prog() == @Delete FI OD; - FOREACH Statement DO - IF @Trans?(TR_Flag_Removal) THEN - @Trans(TR_Flag_Removal, ""); - FI - OD; + C:"remove all the comments "; FOREACH Statement DO IF @ST(@I) = T_Comment THEN @@ -68,6 +64,11 @@ MW_PROC @Process_Prog() == @Trans(TR_Floop_To_While, ""); FI OD; + FOREACH Statement DO + IF @Trans?(TR_Flag_Removal) THEN + @Trans(TR_Flag_Removal, ""); + FI + OD; C:"Go back to the start, and remove redundant"; @GOTO(< >); @Trans(TR_Delete_All_Redundant, ""); -- 2.17.1