File: stack.adv

package info (click to toggle)
xsystem35 2.17.0-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 8,096 kB
  • sloc: ansic: 38,159; java: 4,085; xml: 249; sh: 134; python: 15; makefile: 12
file content (67 lines) | stat: -rw-r--r-- 2,009 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
	MS FILE,"stack.adv":

const word STACK_TOP_ATTR = 0:
const word NUM_PAGE_CALLS = 1:
const word NUM_LABEL_CALLS = 2:
const word NUM_VAR_PUSHES = 3:
const word NUM_LABEL_CALLS_AFTER_PAGE_CALL = 4:
const word NUM_VAR_PUSHES_AFTER_CALL = 5:

	!D01 : 1!
	!D02 : 2!
	!D03 : 3!
	US D01, 3:
	UG D02, 3:
	~AssertEquals D02, 1, __LINE__:
	~AssertEquals D03, 2, __LINE__:
	~AssertEquals D04, 3, __LINE__:

	UR D01:
	~AssertEquals D01[STACK_TOP_ATTR], 0, __LINE__:
	~AssertEquals D01[NUM_PAGE_CALLS], 1, __LINE__:
	~AssertEquals D01[NUM_LABEL_CALLS], 0, __LINE__:
	~AssertEquals D01[NUM_VAR_PUSHES], 0, __LINE__:
	~TestGlobalReturnFromLocalFunc:
	%0:

**TestGlobalReturnFromLocalFunc:
	UR D01:
	~AssertEquals D01[STACK_TOP_ATTR], 0, __LINE__:
	~AssertEquals D01[NUM_PAGE_CALLS], 2, __LINE__:
	~AssertEquals D01[NUM_LABEL_CALLS], 0, __LINE__:
	~AssertEquals D01[NUM_LABEL_CALLS_AFTER_PAGE_CALL], 0, __LINE__:
	\LocalFunc:
	; Unreachable
	~Fail __LINE__:
	%0:

*LocalFunc:
	UR D01:
	~AssertEquals D01[STACK_TOP_ATTR], 0, __LINE__:
	~AssertEquals D01[NUM_PAGE_CALLS], 2, __LINE__:
	~AssertEquals D01[NUM_LABEL_CALLS], 1, __LINE__:
	~AssertEquals D01[NUM_LABEL_CALLS_AFTER_PAGE_CALL], 1, __LINE__:
	~NestedGlobalFunc:
	%0:  ; This returns from TestGlobalReturnFromLocalFunc!

**NestedGlobalFunc:
	US D01, 20:
	UR D01:
	~AssertEquals D01[STACK_TOP_ATTR], 0, __LINE__:
	~AssertEquals D01[NUM_PAGE_CALLS], 3, __LINE__:
	~AssertEquals D01[NUM_LABEL_CALLS], 1, __LINE__:
	~AssertEquals D01[NUM_LABEL_CALLS_AFTER_PAGE_CALL], 0, __LINE__:
	~AssertEquals D01[NUM_VAR_PUSHES], 20, __LINE__:
	~AssertEquals D01[NUM_VAR_PUSHES_AFTER_CALL], 20, __LINE__:
	\NestedLocalFunc:
	%0:

*NestedLocalFunc:
	UR D01:
	~AssertEquals D01[STACK_TOP_ATTR], 0, __LINE__:
	~AssertEquals D01[NUM_PAGE_CALLS], 3, __LINE__:
	~AssertEquals D01[NUM_LABEL_CALLS], 2, __LINE__:
	~AssertEquals D01[NUM_LABEL_CALLS_AFTER_PAGE_CALL], 1, __LINE__:
	~AssertEquals D01[NUM_VAR_PUSHES], 20, __LINE__:
	~AssertEquals D01[NUM_VAR_PUSHES_AFTER_CALL], 0, __LINE__:
	\0: