commit 98014aa54361143450d0d9869369b6e3cb715f28
from: rsc <devnull@localhost>
date: Fri Oct 03 15:33:45 2003 UTC

Macintosh.

commit - d4853cf44b50f5de560cdea4530bd17659a32cb8
commit + 98014aa54361143450d0d9869369b6e3cb715f28
blob - 5b1a8a4ee18973b42b1a658ada6309683abd2830
blob + ba135073d043bdddb164340bc0f85724eea3ac52
--- package
+++ package
@@ -2,18 +2,8 @@
 
 rm -rf ../9tmp
 mkdir ../9tmp
-mkdir ../9pkg
 cp -R * ../9tmp
 cd ../9tmp
 rm -rf `find . -name CVS`
-rm lib/*
-rm */*.o
-rm */*.a
-rm mk/mk
-rm sam/sam
-rm man/*/*
-for i in libfmt libbio lib9 libthread libutf libregexp sam mk 
-do
-	tar cf - $i |gzip >../9pkg/$i.tar.gz
-done
-tar cf - . | gzip > ../9pkg/all.tar.gz
+make nuke
+tar cf - . | gzip >~/public_html/9src.tar.gz
blob - 30ff19e1018d7f76a1e6ed43a2076bffae228a47
blob + 19326a0d6c4680af533c926bed8cc23a4dca6156
--- src/Makefile
+++ src/Makefile
@@ -13,8 +13,8 @@ CMDS=\
 	sam\
 	samterm\
 
-clean all install nuke:
-	for i in $(LIBS) $(DIRS); \
+all clean install nuke:
+	for i in $(LIBS) $(CMDS); \
 	do \
 		(echo $$i; cd $$i; $(MAKE) $@); \
 	done
blob - 62292855b86e780f8e32ce862b78481e1520c619
blob + 4f8e94889e2206170f34f49388e8b9e569a4b62f
--- src/Makeone
+++ src/Makeone
@@ -4,6 +4,7 @@ $(TARG): $(OFILES)
 	$(CC) -o $(TARG) $(OFILES) $(LDFLAGS)
 
 CLEANFILES+=$(TARG)
+NUKEFILES+=$(9SRC)/bin/$(TARG)
 
 include $(9SRC)/Makecommon
 
blob - /dev/null
blob + 3571b744c7e86b75873aaf38fc276d00e31ab462 (mode 644)
--- /dev/null
+++ src/lib9/getcallerpc-PowerMacintosh.s
@@ -0,0 +1,5 @@
+.text
+.globl _getcallerpc
+_getcallerpc:
+	mflr	r3
+	blr
blob - /dev/null
blob + 29928ce0b62eb518fb068e4149c523f136908ced (mode 644)
--- /dev/null
+++ src/lib9/tas-PowerMacintosh.c
@@ -0,0 +1,42 @@
+#include "u.h"
+#include "libc.h"
+
+/*
+ * first argument (l) is in r3 at entry.
+ * r3 contains return value upon return.
+ */
+int
+_tas(void *x)
+{
+	int     v;
+	/*
+	 * this __asm__ works with gcc 2.95.2 (mac os x 10.1).
+	 * this assembly language destroys r0 (0), some other register (v),
+	 * r4 (x) and r5 (temp).
+	 */
+	__asm__("\n	sync\n"
+	"	li	r0,0\n"
+	"	mr	r4,%1		/* &l->val */\n"
+	"	lis	r5,0xdead	/* assemble constant 0xdeaddead */\n"
+	"	ori	r5,r5,0xdead	/* \" */\n"
+	"tas1:\n"
+	"	dcbf	r4,r0	/* cache flush; \"fix for 603x bug\" */\n"
+	"	lwarx	%0,r4,r0	/* v = l->val with reservation */\n"
+	"	cmp	cr0,0,%0,r0	/* v == 0 */\n"
+	"	bne	tas0\n"
+	"	stwcx.	r5,r4,r0   /* if (l->val same) l->val = 0xdeaddead */\n"
+	"	bne	tas1\n"
+	"tas0:\n"
+	"	sync\n"
+	"	isync\n"
+	: "=r" (v)
+	: "r"  (x)
+	: "cc", "memory", "r0", "r4", "r5"
+	);
+	switch(v) {
+	case 0:		return 0;
+	case 0xdeaddead: return 1;
+	default:	print("tas: corrupted 0x%lux\n", v);
+	}
+	return 0;
+}
blob - 33b92c8743046d7419eb0acf6b5ef59bf58bf4f9
blob + ee91791d9794c4cb8aef91cc76f170d07047abed
--- src/libdraw/x11-draw.c
+++ src/libdraw/x11-draw.c
@@ -17,14 +17,12 @@ void
 memimagedraw(Memimage *dst, Rectangle r, Memimage *src, Point sp,
 	Memimage *mask, Point mp, int op)
 {
+	int drew;
 	Memdrawparam *par;
 
 	if((par = _memimagedrawsetup(dst, r, src, sp, mask, mp, op)) == nil)
 		return;
 
-	if(xdraw(par))
-		return;
-
 	/* only fetch dst data if we need it */
 	if((par->state&(Simplemask|Fullmask)) != (Simplemask|Fullmask))
 		xgetxdata(dst, par->r);
@@ -36,6 +34,9 @@ memimagedraw(Memimage *dst, Rectangle r, Memimage *src
 	/* now can run memimagedraw on the in-memory bits */
 	_memimagedraw(par);
 
+	if(xdraw(par))
+		return;
+
 	/* put bits back on x server */
 	xputxdata(dst, par->r);
 }
@@ -67,7 +68,7 @@ xdraw(Memdrawparam *par)
 	m = Simplesrc|Simplemask|Fullmask;
 	if((state&m) == m){
 		xfillcolor(dst, r, par->sdval);
-		xdirtyxdata(dst, r);
+	//	xdirtyxdata(dst, r);
 		return 1;
 	}
 
@@ -86,7 +87,7 @@ xdraw(Memdrawparam *par)
 
 		XCopyArea(_x.display, xsrc->pixmap, xdst->pixmap, gc,
 			sp.x, sp.y, Dx(r), Dy(r), dp.x, dp.y);
-		xdirtyxdata(dst, r);
+	//	xdirtyxdata(dst, r);
 		return 1;
 	}
 
@@ -131,7 +132,7 @@ xdraw(Memdrawparam *par)
 		XSetTSOrigin(_x.display, gc, mp.x, mp.y);
 		XFillRectangle(_x.display, xdst->pixmap, gc, dp.x, dp.y,
 			Dx(r), Dy(r));
-		xdirtyxdata(dst, r);
+	//	xdirtyxdata(dst, r);
 		return 1;
 	}
 
blob - feed46c67221e5a6d3f08442c9271de6a60667cb
blob + a6d4b12ecc727f9c608327bc3dfb26c37433a6bd
--- src/libdraw/x11-get.c
+++ src/libdraw/x11-get.c
@@ -30,6 +30,8 @@ xgetxdata(Memimage *m, Rectangle r)
 	if(xm->dirty == 0)
 		return xm->xi;
 
+	abort();	/* should never call this now */
+
 	r = xm->dirtyr;
 	if(Dx(r)==0 || Dy(r)==0)
 		return xm->xi;
@@ -102,6 +104,7 @@ xdirtyxdata(Memimage *m, Rectangle r)
 	xm = m->X;
 	if(xm == nil)
 		return;
+
 	xm->dirty = 1;
 	addrect(&xm->dirtyr, r);
 }