mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-25 00:51:21 +00:00
6b787b91fc
System III, 4.3BSD-Reno, Ultrix 3.1 and `home made'' fixes and enhancements PR: ports/68127 Submitted by: Cyrille Lefevre <cyrille.lefevre@laposte.net>
42 lines
1.2 KiB
C
42 lines
1.2 KiB
C
diff -u -x CVS -x work -x core -x *.core -x #* -x *~ -x *.orig -x *.rej -I $Id.*$ -I $.+BSD.*$ blok.c.orig blok.c
|
|
--- blok.c.orig Fri Jun 4 02:51:00 2004
|
|
+++ blok.c Sat Jun 19 18:42:21 2004
|
|
@@ -18,9 +18,9 @@
|
|
#define BUSY 01
|
|
#define busy(x) (Rcheat((x)->word)&BUSY)
|
|
|
|
-POS brkincr=BRKINCR;
|
|
-BLKPTR blokp; /*current search pointer*/
|
|
-BLKPTR bloktop=BLK(end); /*top of arena (last blok)*/
|
|
+INT brkincr=BRKINCR;
|
|
+LOCAL BLKPTR blokp; /*current search pointer*/
|
|
+LOCAL BLKPTR bloktop=BLK(end); /*top of arena (last blok)*/
|
|
|
|
|
|
|
|
@@ -34,13 +34,13 @@
|
|
REG BLKPTR q;
|
|
REP IF !busy(p)
|
|
THEN WHILE !busy(q = p->word) DO p->word = q->word OD
|
|
- IF ADR(q)-ADR(p) >= rbytes
|
|
+ IF (POS) (ADR(q)-ADR(p)) >= rbytes
|
|
THEN blokp = BLK(ADR(p)+rbytes);
|
|
IF q > blokp
|
|
THEN blokp->word = p->word;
|
|
FI
|
|
p->word=BLK(Rcheat(blokp)|BUSY);
|
|
- return(ADR(p+1));
|
|
+ return((ADDRESS) ADR(p+1));
|
|
FI
|
|
FI
|
|
q = p; p = BLK(Rcheat(p->word)&~BUSY);
|
|
@@ -57,7 +57,7 @@
|
|
REG BLKPTR blokstak;
|
|
|
|
pushstak(0);
|
|
- rndstak=round(staktop,BYTESPERWORD);
|
|
+ rndstak=(STKPTR) round(staktop,BYTESPERWORD);
|
|
blokstak=BLK(stakbas)-1;
|
|
blokstak->word=stakbsy; stakbsy=blokstak;
|
|
bloktop->word=BLK(Rcheat(rndstak)|BUSY);
|