1/*
2 * Tests originated from namespace/ns4
3 */
4
5/*
6 * Calls to methods instead of Add
7 */
8
9/*
10in progress
11// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! z100 ????????????????????????????
12// ??????????????????????????????????????????????????
13*/
14Name(z100, 100)
15
16Method(m401, 1, Serialized)
17{
18	Name(ts, "m401")
19	Name(i000, 0x00000001)
20	Name(i001, 0)
21	Name(p000, Package() {1,2,3,4})
22
23	CH03(ts, z100, 0x000, __LINE__, 0)
24
25	Store(arg0, i001)
26
27	Method(MAdd, 2)
28	{
29		Add(arg0, arg1, Local0)
30		Return (Local0)
31	}
32
33	Method(m001)
34	{
35		Method(m002)
36		{
37			Method(m003)
38			{
39				Method(m004)
40				{
41					Method(m005)
42					{
43						Method(m006)
44						{
45							Method(m007)
46							{
47								/*
48								 * Because of the stack overflow issues on MS
49								 * the number of method calls eliminated.
50								 */
51								Return (0)
52							}
53							Store(0x07000000, i000)
54							Return (MAdd(i000, m007()))
55						}
56						Store(0x00600000, i000)
57						Return (MAdd(i000, m006()))
58					}
59					Store(0x00050000, i000)
60					Return (MAdd(i000, m005()))
61				}
62				Store(0x00004000, i000)
63				Return (MAdd(i000, m004()))
64			}
65			Store(0x00000300, i000)
66			Return (MAdd(i000, m003()))
67		}
68		Store(0x00000020, i000)
69		Return (MAdd(i000, m002()))
70	}
71	Store(MAdd(i000, m001()), Local0)
72
73	if (LNotEqual(Local0, 0x07654321)) {
74		err(ts, z100, __LINE__, 0, 0, Local0, 0x07654321)
75	}
76
77	if (LNotEqual(i000, 0x07000000)) {
78		err(ts, z100, __LINE__, 0, 0, i000, 0x07000000)
79	}
80
81	CH03(ts, z100, 0x003, __LINE__, 0)
82}
83
84Method(n004)
85{
86	SRMT("m401-0")
87	m401(0)
88}
89