74 lines
940 B
Plaintext
74 lines
940 B
Plaintext
#
|
|
mes 2, EM_WSIZE, EM_PSIZE
|
|
|
|
/*
|
|
* Does basic testing of lar. Unfortunately, lar 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.
|
|
*/
|
|
|
|
#define ARRAY_SIZE 3*EM_WSIZE
|
|
|
|
array
|
|
con 1
|
|
con 2
|
|
con 3
|
|
|
|
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
|
|
|
|
/* Read element -1 */
|
|
|
|
lae array
|
|
loc -1
|
|
lae descriptor
|
|
lar EM_WSIZE
|
|
|
|
loc 1
|
|
beq *1
|
|
|
|
loc __LINE__
|
|
cal $fail
|
|
ass EM_WSIZE
|
|
1
|
|
|
|
/* Read element 0 */
|
|
|
|
lae array
|
|
loc 0
|
|
lae descriptor
|
|
lar EM_WSIZE
|
|
|
|
loc 2
|
|
beq *2
|
|
|
|
loc __LINE__
|
|
cal $fail
|
|
ass EM_WSIZE
|
|
2
|
|
|
|
/* Read element 1 */
|
|
|
|
lae array
|
|
loc 1
|
|
lae descriptor
|
|
lar EM_WSIZE
|
|
|
|
loc 3
|
|
beq *3
|
|
|
|
loc __LINE__
|
|
cal $fail
|
|
ass EM_WSIZE
|
|
3
|
|
|
|
cal $finished
|
|
end
|
|
|