ack/mach/powerpc/libem/rck.s

#include "powerpc.h"

.sect .text

! Bounds check. Traps if the value is out of range.
!  Stack: ( value descriptor -- value )

.define .rck
.rck:
    lwz r3, 0 (sp)
    lwz r4, 4 (sp)
    addi sp, sp, 4 ! leave value on stack

    lwz r5, 0 (r3)
    cmp cr0, 0, r4, r5
    bc IFTRUE, LT, .trap_erange

    lwz r5, 4 (r3)
    cmp cr0, 0, r4, r5
    bc IFTRUE, GT, .trap_erange

	bclr ALWAYS, 0, 0
Add a test (currently failing) to check that Pascal char sets can store all 256 possible values. Add the PowerPC ncg and mcg backend support to let the test actually run, including modifying a bunch of PowrePC libem functions so that they can be called from both ncg and mcg. 2017-01-15 21:28:14 +00:00			`#include "powerpc.h"`

			`.sect .text`

			`! Bounds check. Traps if the value is out of range.`
Add a bunch more set operations to the PowerPC backends, and the Pascal test for the same. 2017-01-17 21:31:38 +00:00			`! Stack: ( value descriptor -- value )`
Add a test (currently failing) to check that Pascal char sets can store all 256 possible values. Add the PowerPC ncg and mcg backend support to let the test actually run, including modifying a bunch of PowrePC libem functions so that they can be called from both ncg and mcg. 2017-01-15 21:28:14 +00:00
			`.define .rck`
			`.rck:`
			`lwz r3, 0 (sp)`
			`lwz r4, 4 (sp)`
Add a bunch more set operations to the PowerPC backends, and the Pascal test for the same. 2017-01-17 21:31:38 +00:00			`addi sp, sp, 4 ! leave value on stack`
Add a test (currently failing) to check that Pascal char sets can store all 256 possible values. Add the PowerPC ncg and mcg backend support to let the test actually run, including modifying a bunch of PowrePC libem functions so that they can be called from both ncg and mcg. 2017-01-15 21:28:14 +00:00
			`lwz r5, 0 (r3)`
			`cmp cr0, 0, r4, r5`
			`bc IFTRUE, LT, .trap_erange`

			`lwz r5, 4 (r3)`
			`cmp cr0, 0, r4, r5`
			`bc IFTRUE, GT, .trap_erange`

			`bclr ALWAYS, 0, 0`