From: Ken Thompson <ken@research.uucp>
Date: Tue, 26 Nov 1974 23:13:21 +0000 (-0500)
Subject: Research V5 development
X-Git-Tag: Research-V5~123
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/0c4b8a99298835c18ca823922f5a8b9061566a5a

Research V5 development
Work on file usr/sys/ken/text.c

Synthesized-from: v5
---

diff --git a/usr/sys/ken/text.c b/usr/sys/ken/text.c
new file mode 100644
index 0000000000..9891691f07
--- /dev/null
+++ b/usr/sys/ken/text.c
@@ -0,0 +1,122 @@
+#
+/*
+ *	Copyright 1973 Bell Telephone Laboratories Inc
+ */
+
+#include "../param.h"
+#include "../systm.h"
+#include "../user.h"
+#include "../proc.h"
+#include "../text.h"
+#include "../inode.h"
+
+xswap(p, ff, os)
+int *p;
+{
+	register *rp, a;
+
+	rp = p;
+	if(os == 0)
+		os = rp->p_size;
+	a = malloc(swapmap, (rp->p_size+7)/8);
+	if(a == NULL)
+		panic("out of swap space");
+	xccdec(rp->p_textp);
+	rp->p_flag =| SLOCK;
+	if(swap(a, rp->p_addr, os, 0))
+		panic("swap error");
+	if(ff)
+		mfree(coremap, os, rp->p_addr);
+	rp->p_addr = a;
+	rp->p_flag =& ~(SLOAD|SLOCK);
+	rp->p_time = 0;
+	if(runout) {
+		runout = 0;
+		wakeup(&runout);
+	}
+}
+
+xfree()
+{
+	register *xp, *ip;
+
+	if((xp=u.u_procp->p_textp) != NULL) {
+		u.u_procp->p_textp = NULL;
+		xccdec(xp);
+		if(--xp->x_count == 0) {
+			ip = xp->x_iptr;
+			if((ip->i_mode&ISVTX) == 0) {
+				xp->x_iptr = NULL;
+				mfree(swapmap, (xp->x_size+7)/8, xp->x_daddr);
+				ip->i_flag =& ~ITEXT;
+				iput(ip);
+			}
+		}
+	}
+}
+
+xalloc(ip)
+int *ip;
+{
+	register struct text *xp;
+	register *rp, ts;
+
+	if(u.u_arg[1] == 0)
+		return;
+	rp = NULL;
+	for(xp = &text[0]; xp < &text[NTEXT]; xp++)
+		if(xp->x_iptr == NULL) {
+			if(rp == NULL)
+				rp = xp;
+		} else
+			if(xp->x_iptr == ip) {
+				xp->x_count++;
+				u.u_procp->p_textp = xp;
+				goto out;
+			}
+	if((xp=rp) == NULL)
+		panic("out of text");
+	xp->x_count = 1;
+	xp->x_ccount = 0;
+	xp->x_iptr = ip;
+	ts = ((u.u_arg[1]+63)>>6) & 01777;
+	xp->x_size = ts;
+	if((xp->x_daddr = malloc(swapmap, (ts+7)/8)) == NULL)
+		panic("out of swap space");
+	expand(USIZE+ts);
+	estabur(0, ts, 0);
+	u.u_count = u.u_arg[1];
+	u.u_offset[1] = 020;
+	u.u_base = 0;
+	readi(ip);
+	rp = u.u_procp;
+	rp->p_flag =| SLOCK;
+	swap(xp->x_daddr, rp->p_addr+USIZE, ts, 0);
+	rp->p_flag =& ~SLOCK;
+	rp->p_textp = xp;
+	rp = ip;
+	rp->i_flag =| ITEXT;
+	rp->i_count++;
+	expand(USIZE);
+
+out:
+	if(xp->x_ccount == 0) {
+		savu(u.u_rsav);
+		savu(u.u_ssav);
+		xswap(u.u_procp, 1, 0);
+		u.u_procp->p_flag =| SSWAP;
+		swtch();
+		/* no return */
+	}
+	xp->x_ccount++;
+}
+
+xccdec(xp)
+int *xp;
+{
+	register *rp;
+
+	if((rp=xp)!=NULL && rp->x_ccount!=0)
+		if(--rp->x_ccount == 0)
+			mfree(coremap, rp->x_size, rp->x_caddr);
+}