From 068dd91745d2e0d75650be5b88c24d1218d28ab5 Mon Sep 17 00:00:00 2001
From: sommerfe <sommerfe@NetBSD.org>
Date: Sat, 23 Jan 1999 17:02:35 +0000
Subject: [PATCH] Under control of "slowchild" global, make child process
 inherit the scheduling penalty for being cpu-bound (p_estcpu) of its parent.

---
 sys/kern/kern_fork.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/sys/kern/kern_fork.c b/sys/kern/kern_fork.c
index 03d54201dd61..4f863ef8d59f 100644
--- a/sys/kern/kern_fork.c
+++ b/sys/kern/kern_fork.c
@@ -1,4 +1,4 @@
-/*	$NetBSD: kern_fork.c,v 1.50 1998/11/11 22:44:25 thorpej Exp $	*/
+/*	$NetBSD: kern_fork.c,v 1.51 1999/01/23 17:02:35 sommerfe Exp $	*/
 
 /*
  * Copyright (c) 1982, 1986, 1989, 1991, 1993
@@ -111,6 +111,8 @@ sys___vfork14(p, v, retval)
 	return (fork1(p, FORK_PPWAIT|FORK_SHAREVM, retval, NULL));
 }
 
+int slowchild = 1;
+
 int
 fork1(p1, flags, retval, rnewprocp)
 	register struct proc *p1;
@@ -276,6 +278,12 @@ again:
 	p2->p_cred->p_refcnt = 1;
 	crhold(p1->p_ucred);
 
+	/*
+	 * slow us down if parent was cpu-bound
+	 */
+	if (slowchild)
+		p2->p_estcpu = p1->p_estcpu;
+
 	/* bump references to the text vnode (for procfs) */
 	p2->p_textvp = p1->p_textvp;
 	if (p2->p_textvp)