--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__StackFrameTest.st Thu Aug 31 13:14:11 2000 +0200
@@ -0,0 +1,78 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+Object subclass:#StackFrameTest
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Tests-Regression'
+!
+
+
+!StackFrameTest class methodsFor:'tests'!
+
+unlimitedStackTest1:anArray
+"
+[
+ |a|
+
+ a := Array with:'1' copy with:'2' copy with:'3' copy with:'4' copy with:'5' copy.
+ self unlimitedStackTest1:a.
+ true.
+] whileTrue
+"
+%{ /* UNLIMITEDSTACK */
+
+ OBJ __returnArray;
+ OBJ __symbol;
+ OBJ __returnCode;
+
+ if (!__isString(__ArrayInstPtr(anArray)->a_element[0])) {
+ printf("OOPS\n");
+ };
+ if (!__isString(__ArrayInstPtr(anArray)->a_element[1])) {
+ printf("OOPS\n");
+ };
+ if (!__isString(__ArrayInstPtr(anArray)->a_element[2])) {
+ printf("OOPS\n");
+ };
+ if (!__isString(__ArrayInstPtr(anArray)->a_element[3])) {
+ printf("OOPS\n");
+ };
+ if (!__isString(__ArrayInstPtr(anArray)->a_element[4])) {
+ printf("OOPS\n");
+ };
+ __PROTECT__(anArray);
+ __scavenge();
+ __UNPROTECT__(anArray);
+
+
+ if (!__isString(__ArrayInstPtr(anArray)->a_element[0])) {
+ printf("OOPS2\n");
+ };
+ if (!__isString(__ArrayInstPtr(anArray)->a_element[1])) {
+ printf("OOPS2\n");
+ };
+ if (!__isString(__ArrayInstPtr(anArray)->a_element[2])) {
+ printf("OOPS2\n");
+ };
+ if (!__isString(__ArrayInstPtr(anArray)->a_element[3])) {
+ printf("OOPS2\n");
+ };
+ if (!__isString(__ArrayInstPtr(anArray)->a_element[4])) {
+ printf("OOPS2\n");
+ };
+%}.
+
+
+
+
+
+! !
+
+!StackFrameTest class methodsFor:'documentation'!
+
+version
+ ^ '$Header$'
+! !