[Ooc-checkins] CVS: ooc2/tests/ssa HOTLoop2.Ref,NONE,1.1 HOTLoop2.Mod,NONE,1.1 testsuite.xml,1.7,1.8

[Michael v. A. <mv...@us...>]

Update of /cvsroot/ooc/ooc2/tests/ssa
In directory usw-pr-cvs1:/tmp/cvs-serv8544/tests/ssa

Modified Files:
	testsuite.xml 
Added Files:
	HOTLoop2.Ref HOTLoop2.Mod 
Log Message:
added WHILE statement to IR & SSA


--- NEW FILE: HOTLoop2.Ref ---
0
3

--- NEW FILE: HOTLoop2.Mod ---
MODULE HOTLoop2;

IMPORT Out;
  
PROCEDURE Len (str: ARRAY OF CHAR): INTEGER;
  VAR
    i: INTEGER;
  BEGIN
    i := 0;
    WHILE (str[i] # 0X) DO
      i := i+1
    END;
    RETURN i
  END Len;

PROCEDURE Test* ();
  BEGIN
    Out.Int (Len(""), 0); Out.Ln;
    Out.Int (Len("abc"), 0); Out.Ln;
  END Test;

END HOTLoop2.

Index: testsuite.xml
===================================================================
RCS file: /cvsroot/ooc/ooc2/tests/ssa/testsuite.xml,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- testsuite.xml	2001/12/16 01:26:12	1.7
+++ testsuite.xml	2001/12/16 13:10:41	1.8
@@ -18,11 +18,11 @@
   baseline1 baseline2 baseline3 baseline4 baseline5 baseline6
   baseline8 baseline10 baseline11
   function1 function2 function3 if1 if2 if3 function4 function5
-  designator1 function6 loop1">
+  designator1 function6 loop1 loop2">
 
 <!--<testsuite-ext
   profile="Test Suite for Framework Testing"
-  select ="prepare_out_module loop1">-->
+  select ="prepare_out_module loop1 loop2">-->
   
   <testcases profile="Test Suite Setup" default-lang="O1 O2 AO">
     <test id="prepare_out_module" type="accept" file="../compile/src/Out.Mod">
@@ -103,6 +103,11 @@
     <test id="loop1" type="run"
       file="HOTLoop1.Mod" output="HOTLoop1.Ref">
       Loop variant <code>REPEAT-UNTIL</code>: Calculate string length.
+    </test>
+    
+    <test id="loop2" type="run"
+      file="HOTLoop2.Mod" output="HOTLoop2.Ref">
+      Loop variant <code>WHILE-DO</code>: Calculate string length.
     </test>
   </testcases>