ack/mach/powerpc/libem/zer.s

#include "powerpc.h"

.sect .text

! Create empty set.
!  Stack: ( size -- set )

.define .zer
.zer:
	lwz     r3, 0(sp)
	addi    sp, sp, 4

	rlwinm	r7, r3, 30, 2, 31
	addi	r4, r0, 0		! r4 = zero
	neg	r5, r3
	add	sp, sp, r5		! allocate set
	mr	r6, sp			! r6 = ptr to set
	mtspr	ctr, r7			! ctr = r3 / 4
1:
	stw	r4, 0(r6)		! store zero in set
	addi	r6, r6, 4
	bc	DNZ, 0, 1b		! loop ctr times
	bclr	ALWAYS, 0, 0
Add Modula-2 set operations to PowerPC ncg. This provides and, ior, xor, com, zer, set, cms when defined($1) and ior, set when !defined($1). I don't provide the other operations !defined($1) because our Modula-2 compiler hasn't used them. I wrote a Modula-2 example in https://gist.github.com/kernigh/add79662bb3c63ffb7c46d01dc8ae788 Put a dummy comment in mach/powerpc/libem/build.lua so git checkout will touch that file. Without the touch, the build system doesn't see the new *.s files. 2016-12-10 17:23:07 +00:00			`#include "powerpc.h"`

			`.sect .text`

			`! Create empty set.`
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			`! Stack: ( size -- set )`
Add Modula-2 set operations to PowerPC ncg. This provides and, ior, xor, com, zer, set, cms when defined($1) and ior, set when !defined($1). I don't provide the other operations !defined($1) because our Modula-2 compiler hasn't used them. I wrote a Modula-2 example in https://gist.github.com/kernigh/add79662bb3c63ffb7c46d01dc8ae788 Put a dummy comment in mach/powerpc/libem/build.lua so git checkout will touch that file. Without the touch, the build system doesn't see the new *.s files. 2016-12-10 17:23:07 +00:00
			`.define .zer`
			`.zer:`
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 r3, 0(sp)`
			`addi sp, sp, 4`

Add Modula-2 set operations to PowerPC ncg. This provides and, ior, xor, com, zer, set, cms when defined($1) and ior, set when !defined($1). I don't provide the other operations !defined($1) because our Modula-2 compiler hasn't used them. I wrote a Modula-2 example in https://gist.github.com/kernigh/add79662bb3c63ffb7c46d01dc8ae788 Put a dummy comment in mach/powerpc/libem/build.lua so git checkout will touch that file. Without the touch, the build system doesn't see the new *.s files. 2016-12-10 17:23:07 +00:00			`rlwinm r7, r3, 30, 2, 31`
			`addi r4, r0, 0 ! r4 = zero`
			`neg r5, r3`
			`add sp, sp, r5 ! allocate set`
			`mr r6, sp ! r6 = ptr to set`
			`mtspr ctr, r7 ! ctr = r3 / 4`
			`1:`
			`stw r4, 0(r6) ! store zero in set`
			`addi r6, r6, 4`
			`bc DNZ, 0, 1b ! loop ctr times`
			`bclr ALWAYS, 0, 0`