Skip to content

Commit 22012c8

Browse files
committed
Added tests for param name clash
1 parent 4f8c630 commit 22012c8

2 files changed

Lines changed: 79 additions & 0 deletions

File tree

Lines changed: 69 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,69 @@
1+
org 32768
2+
__START_PROGRAM:
3+
di
4+
push ix
5+
push iy
6+
exx
7+
push hl
8+
exx
9+
ld hl, 0
10+
add hl, sp
11+
ld (__CALL_BACK__), hl
12+
ei
13+
ld hl, 1
14+
push hl
15+
call _test
16+
ld hl, 0
17+
ld b, h
18+
ld c, l
19+
__END_PROGRAM:
20+
di
21+
ld hl, (__CALL_BACK__)
22+
ld sp, hl
23+
exx
24+
pop hl
25+
exx
26+
pop iy
27+
pop ix
28+
ei
29+
ret
30+
__CALL_BACK__:
31+
DEFW 0
32+
_test:
33+
push ix
34+
ld ix, 0
35+
add ix, sp
36+
ld l, (ix+4)
37+
ld h, (ix+5)
38+
push hl
39+
xor a
40+
pop hl
41+
ld (hl), a
42+
_test__leave:
43+
ld sp, ix
44+
pop ix
45+
exx
46+
pop hl
47+
ex (sp), hl
48+
exx
49+
ret
50+
ZXBASIC_USER_DATA:
51+
_a:
52+
DEFW __LABEL0
53+
_a.__DATA__.__PTR__:
54+
DEFW _a.__DATA__
55+
_a.__DATA__:
56+
DEFB 00h
57+
DEFB 00h
58+
DEFB 00h
59+
DEFB 00h
60+
DEFB 00h
61+
DEFB 00h
62+
__LABEL0:
63+
DEFW 0000h
64+
DEFB 01h
65+
; Defines DATA END --> HEAP size is 0
66+
ZXBASIC_USER_DATA_END:
67+
; Defines USER DATA Length in bytes
68+
ZXBASIC_USER_DATA_LEN EQU ZXBASIC_USER_DATA_END - ZXBASIC_USER_DATA
69+
END
Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,10 @@
1+
2+
DIM a(5) as UByte
3+
4+
REM parameter 'a' clashes with that of the array above
5+
Sub test(a as UInteger)
6+
POKE a, 0
7+
End Sub
8+
9+
test(1)
10+

0 commit comments

Comments
 (0)