ack/mach/powerpc/libem/and.s

#include "powerpc.h"

.sect .text

! Set intersection.
!  Stack: ( b a size -- a*b )

.define .and
.and:
	lwz r3, 0 (sp)      ! r3 = size
	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)
	and	r8, r7, r8		! intersection 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 intersection.`
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 .and`
			`.and:`
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			`lwz r3, 0 (sp) ! r3 = size`
			`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)`
			`and r8, r7, r8 ! intersection 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`