[Gnash-commit] gnash/testsuite/actionscript.all Function.as

[Zou Lunkai]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Zou Lunkai <zoulunkai>  07/12/12 07:30:12

Modified files:
        testsuite/actionscript.all: Function.as 

Log message:
        more tests to inspect the runtime vm stack.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/Function.as?cvsroot=gnash&r1=1.61&r2=1.62

Patches:
Index: Function.as
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/Function.as,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -b -r1.61 -r1.62
--- Function.as 12 Dec 2007 02:11:50 -0000      1.61
+++ Function.as 12 Dec 2007 07:30:12 -0000      1.62
@@ -21,7 +21,7 @@
 // compile this test case with Ming makeswf, and then
 // execute it like this gnash -1 -r 0 -v out.swf
 
-rcsid="$Id: Function.as,v 1.61 2007/12/12 02:11:50 zoulunkai Exp $";
+rcsid="$Id: Function.as,v 1.62 2007/12/12 07:30:12 zoulunkai Exp $";
 
 #include "check.as"
 
@@ -730,7 +730,9 @@
 #endif
 
 #ifdef MING_SUPPORTS_ASM
-
+//
+// --case1--
+//
 testvar1 = 0;
 testvar2 = 0;
 testvar3 = 0;
@@ -757,6 +759,9 @@
 xcheck_equals(testvar2, 2);
 xcheck_equals(testvar3, 3);
 
+//
+// --case2--
+//
 testvar1 = 0;
 testvar2 = 0;
 testvar3 = 0;
@@ -785,6 +790,60 @@
        xcheck_equals(testvar3, 6);
 #endif
 
+//
+// --case3--
+//
+
+testvar1 = 0;
+testvar2 = 0;
+testvar3 = 0;
+
+function stack_test3 () {
+    asm{
+        // Please check the produced swf file to see if the 
+        // structure of opcodes are that you expect.
+        push 7, 8, 9, 'pad to make Ming work as I expect'
+        // pop out the pad stuff, I just want to push 7,8,9 actually. 
+        pop 
+    };
+}
+
+outer_func1 = function () {
+    stack_test3();
+};
+
+outer_func2 = function () {
+    outer_func1();
+};
+
+outer_func2();
+
+//stack content after calling outer_func2:
+//    7, 8, 9
+
+asm{
+    push 'testvar1'
+    swap
+    setvariable
+};
+
+//stack: 7, 8
+asm{
+    push 'testvar2'
+    swap
+    setvariable
+};
+
+//stack: 7
+asm{
+    push 'testvar3'
+    swap
+    setvariable
+};
+xcheck_equals(testvar1, 9);
+xcheck_equals(testvar2, 8);
+xcheck_equals(testvar3, 7);
+
 #endif //MING_SUPPORTS_ASM
 
 totals();