03b067e1d5
Inspired by the sparc code (mach/sparc/libem/lar.s). My powerpc code might still have bugs, but it's enough for examples/hilo.mod to work. May need to 'make clean' or touch a build.lua file, so ackbuilder can notice the new lar4.s and sar4.s files and build them.
38 lines
733 B
ArmAsm
38 lines
733 B
ArmAsm
#
|
|
! $Source$
|
|
! $State$
|
|
! $Revision$
|
|
|
|
#include "powerpc.h"
|
|
|
|
.sect .text
|
|
|
|
! Index into a bounds-checked array.
|
|
!
|
|
! On entry:
|
|
! r3 = ptr to descriptor
|
|
! r4 = index
|
|
! r5 = address of array
|
|
! Yields:
|
|
! r3 = address of element
|
|
! r0 = size of element (used by .lar4, .sar4)
|
|
! Preserves r10 for .lar4, .sar4
|
|
|
|
.define .aar4
|
|
.aar4:
|
|
la r0, .trap_earray
|
|
mtspr ctr, r0 ! load CTR with trap address
|
|
|
|
lwz r0, 0(r3)
|
|
subf. r4, r0, r4 ! adjust range
|
|
bcctr IFTRUE, LT, 0 ! check lower bound
|
|
|
|
lwz r0, 4(r3)
|
|
cmpl cr0, 0, r4, r3
|
|
bcctr IFFALSE, LT, 0 ! check upper bound
|
|
|
|
lwz r0, 8(r3)
|
|
mullw r4, r4, r0 ! scale index
|
|
add r3, r4, r5 ! calculate element address
|
|
|
|
bclr ALWAYS, 0, 0
|