ack/mach/powerpc/libem/ior.s

#include "powerpc.h"

.sect .text

! Set union.
!  Stack: ( b a size -- a+b )

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

	mr	r4, sp			! r4 = ptr to set a
	add	r5, sp, r3		! r5 = ptr to set b
	rlwinm	r6, r3, 30, 2, 31
	mtspr	ctr, r6			! ctr = r3 / 4
1:
	lwz	r7, 0(r4)
	lwz	r8, 0(r5)
	or	r8, r7, r8		! union of words
	stw	r8, 0(r5)
	addi	r4, r4, 4
	addi	r5, r5, 4
	bc	DNZ, 0, 1b		! loop ctr times
	add	sp, sp, r3
	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`

			`! Set union.`
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: ( b a size -- a+b )`
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 .ior`
			`.ior:`
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			`mr r4, sp ! r4 = ptr to set a`
			`add r5, sp, r3 ! r5 = ptr to set b`
			`rlwinm r6, r3, 30, 2, 31`
			`mtspr ctr, r6 ! ctr = r3 / 4`
			`1:`
			`lwz r7, 0(r4)`
			`lwz r8, 0(r5)`
			`or r8, r7, r8 ! union of words`
			`stw r8, 0(r5)`
			`addi r4, r4, 4`
			`addi r5, r5, 4`
			`bc DNZ, 0, 1b ! loop ctr times`
			`add sp, sp, r3`
			`bclr ALWAYS, 0, 0`