76 lines
1,001 B
Plaintext
76 lines
1,001 B
Plaintext
#
|
|
mes 2, EM_WSIZE, EM_PSIZE
|
|
|
|
/*
|
|
* Does basic testing of aar. Unfortunately, aar throws ERANGE on
|
|
* error, which we can't catch (or at least, the platforms I've looked at
|
|
* don't allow it to be caught, those platforms which actually throw it on
|
|
* error). So we just test the non-throwing cases, not the negative ones.
|
|
*/
|
|
|
|
array
|
|
bss 3*EM_WSIZE, 0, 0
|
|
|
|
descriptor
|
|
con -1 ; lower bound
|
|
con 2 ; range, *inclusive*
|
|
con EM_WSIZE ; size of element
|
|
|
|
|
|
exp $_m_a_i_n
|
|
pro $_m_a_i_n, 0
|
|
|
|
/* Access element -1 */
|
|
|
|
lae array
|
|
loc -1
|
|
lae descriptor
|
|
aar EM_WSIZE
|
|
|
|
lae array
|
|
cmu EM_WSIZE
|
|
zeq *1
|
|
|
|
loc __LINE__
|
|
cal $fail
|
|
ass EM_WSIZE
|
|
1
|
|
|
|
/* Access element 0 */
|
|
|
|
lae array
|
|
loc 0
|
|
lae descriptor
|
|
aar EM_WSIZE
|
|
|
|
lae array
|
|
adp EM_WSIZE
|
|
cmu EM_WSIZE
|
|
zeq *2
|
|
|
|
loc __LINE__
|
|
cal $fail
|
|
ass EM_WSIZE
|
|
2
|
|
|
|
/* Access element 1 */
|
|
|
|
lae array
|
|
loc 1
|
|
lae descriptor
|
|
aar EM_WSIZE
|
|
|
|
lae array
|
|
adp EM_WSIZE*2
|
|
cmu EM_WSIZE
|
|
zeq *3
|
|
|
|
loc __LINE__
|
|
cal $fail
|
|
ass EM_WSIZE
|
|
3
|
|
|
|
cal $finished
|
|
end
|
|
|