acme win: Delete on Del (experiment)
[rsc] --rw-rw-r-- M 1061556 glenda sys 12447 Mar 23 10:13 acme/bin/source/win/main.c
/n/sourcesdump/2006/0323/plan9/acme/bin/source/win/main.c:106,119 -
/n/sourcesdump/2006/0324/plan9/acme/bin/source/win/main.c:106,114
{
while(*s==' ' || *s=='\t' || *s=='\n')
s++;
- if(strcmp(s, "Delete")==0){
+ if(strcmp(s, "Delete")==0 || strcmp(s, "Del")==0){
windel(w, 1);
threadexitsall(nil);
- return 1;
- }
- if(strcmp(s, "Del")==0){
- if(windel(w, 0))
- threadexitsall(nil);
return 1;
}
if(EQUAL(s, "scroll")){
kernel: new system calls semacquire, semrelease
[rsc] --rw-rw-r-- M 1061556 glenda sys 19699 Mar 23 11:05 sys/include/libc.h
/n/sourcesdump/2006/0323/plan9/sys/include/libc.h:659,664 -
/n/sourcesdump/2006/0324/plan9/sys/include/libc.h:659,666
extern int segdetach(void*);
extern int segflush(void*, ulong);
extern int segfree(void*, ulong);
+ extern int semacquire(long*, int);
+ extern long semrelease(long*, long);
extern int sleep(long);
extern int stat(char*, uchar*, int);
extern Waitmsg* wait(void);
[rsc] --rw-rw-r-- M 1061556 rsc sys 1865 Mar 23 12:25 sys/man/2/semacquire
[rsc] --rw-rw-r-- M 1061556 glenda sys 3626 Mar 23 11:04 sys/src/9/alphapc/fns.h
/n/sourcesdump/2006/0323/plan9/sys/src/9/alphapc/fns.h:12,18 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/alphapc/fns.h:12,18
int cistrncmp(char*, char*, int);
void cpuidprint(void);
void cserve(ulong, ulong);
- #define cycles(x)
+ #define cycles(x) do{}while(0)
void timeradd(Timer *);
void timerdel(Timer *);
int dmacount(int);
[rsc] --rw-rw-r-- M 1061556 glenda sys 9367 Mar 23 11:04 sys/src/9/alphapc/l.s
/n/sourcesdump/2006/0323/plan9/sys/src/9/alphapc/l.s:193,198 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/alphapc/l.s:193,212
BEQ R0, inc1 /* write failed, retry */
RET
+ TEXT cmpswap(SB), $-8
+ MOVQ R0, R1 /* p */
+ MOVL old+4(FP), R2
+ MOVL new+8(FP), R3
+ MOVLL (R1), R0
+ CMPEQ R0, R2, R4
+ BEQ R4, fail /* if R0 != [sic] R2, goto fail */
+ MOVQ R3, R0
+ MOVLC R0, (R1)
+ RET
+ fail:
+ MOVL $0, R0
+ RET
+
TEXT fpenab(SB), $-8
MOVQ R0, R16
CALL_PAL $PALwrfen
[rsc] --rw-rw-r-- M 1061556 glenda sys 13748 Mar 23 11:02 sys/src/9/alphapc/main.c
/n/sourcesdump/2006/0323/plan9/sys/src/9/alphapc/main.c:73,78 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/alphapc/main.c:73,80
print("dumpopts: read %s=%s\n", confname[i], confval[i]);
}
+ extern void (*i8237alloc)(void);
+
void
main(void)
{
/n/sourcesdump/2006/0323/plan9/sys/src/9/alphapc/main.c:87,92 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/alphapc/main.c:89,96
archinit();
xinit();
memholes();
+ if(i8237alloc != nil)
+ i8237alloc();
mmuinit();
if(arch->coreinit)
arch->coreinit();
[rsc] --rw-rw-r-- M 1061556 glenda bitsy 5829 Mar 23 11:03 sys/src/9/bitsy/dat.h
/n/sourcesdump/2006/0323/plan9/sys/src/9/bitsy/dat.h:32,41 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/bitsy/dat.h:32,37
*/
#define AOUT_MAGIC (E_MAGIC)
- enum {
- Lockcycles = 0, /* Don't measure lock latencies */
- };
-
struct Lock
{
ulong key;
/n/sourcesdump/2006/0323/plan9/sys/src/9/bitsy/dat.h:44,50 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/bitsy/dat.h:40,45
Proc *p;
Mach *m;
ushort isilock;
- uvlong lockcycles; /* Measure lock latencies */
};
struct Label
[rsc] --rw-rw-r-- M 1061556 glenda bitsy 3063 Mar 23 11:04 sys/src/9/bitsy/fns.h
/n/sourcesdump/2006/0323/plan9/sys/src/9/bitsy/fns.h:12,19 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/bitsy/fns.h:12,20
int cistrncmp(char*, char*, int);
void clockinit(void);
ulong clockpower(int);
+ int cmpswap(long*, long, long);
#define coherence()
- #define cycles(x)
+ #define cycles(x) do{}while(0)
#define dcflush(a, b)
void delay(int);
void µcpower(int);
[rsc] --rw-rw-r-- M 1061556 glenda bitsy 8951 Mar 23 11:04 sys/src/9/bitsy/main.c
/n/sourcesdump/2006/0323/plan9/sys/src/9/bitsy/main.c:522,533 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/bitsy/main.c:522,533
long
_xdec(long *p)
{
- int x;
+ int s;
long v;
- x = splhi();
+ s = splhi();
v = --*p;
- splx(x);
+ splx(s);
return v;
}
/n/sourcesdump/2006/0323/plan9/sys/src/9/bitsy/main.c:534,542 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/bitsy/main.c:534,555
void
_xinc(long *p)
{
- int x;
+ int s;
- x = splhi();
+ s = splhi();
++*p;
- splx(x);
+ splx(s);
}
+
+ int
+ cmpswap(long *addr, long old, long new)
+ {
+ int r, s;
+
+ s = splhi();
+ if(r = (*addr==old))
+ *addr = new;
+ splx(s);
+ return r;
+ }
+
[rsc] --rw-rw-r-- M 1061556 glenda sys 2767 Mar 23 11:03 sys/src/9/mtx/fns.h
/n/sourcesdump/2006/0323/plan9/sys/src/9/mtx/fns.h:5,13 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/mtx/fns.h:5,14
void clockinit(void);
void clockintr(Ureg*);
void clockintrsched(void);
+ int cmpswap(long*, long, long);
#define coherence() eieio()
void cpuidprint(void);
- #define cycles(x)
+ #define cycles(x) do{}while(0)
void dcflush(void*, ulong);
void delay(int);
void dumpregs(Ureg*);
[rsc] --rw-rw-r-- M 1061556 glenda sys 11000 Mar 23 11:04 sys/src/9/mtx/l.s
/n/sourcesdump/2006/0323/plan9/sys/src/9/mtx/l.s:301,306 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/mtx/l.s:301,322
BNE xdecloop
RETURN
+ TEXT cmpswap(SB),$0 /* int cmpswap(long*, long, long) */
+ MOVW R3, R4 /* addr */
+ MOVW old+4(FP), R5
+ MOVW new+8(FP), R6
+ DCBF (R4) /* fix for 603x bug? */
+ LWAR (R4), R3
+ CMP R3, R5
+ BNE fail
+ STWCCC R6, (R4)
+ BNE fail
+ MOVW $1, R3
+ RETURN
+ fail:
+ MOVW $0, R3
+ RETURN
+
TEXT getpvr(SB), $0
MOVW SPR(PVR), R3
RETURN
[rsc] --rw-rw-r-- M 1061556 glenda sys 19249 Mar 23 11:03 sys/src/9/pc/devarch.c
/n/sourcesdump/2006/0323/plan9/sys/src/9/pc/devarch.c:497,502 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/pc/devarch.c:497,518
}
/*
+ * 386 has no compare-and-swap instruction.
+ * Run it with interrupts turned off instead.
+ */
+ static int
+ cmpswap386(long *addr, long old, long new)
+ {
+ int r, s;
+
+ s = splhi();
+ if(r = (*addr == old))
+ *addr = new;
+ splx(s);
+ return r;
+ }
+
+ /*
* On a uniprocessor, you'd think that coherence could be nop,
* but it can't. We still need a barrier when using coherence() in
* device drivers.
/n/sourcesdump/2006/0323/plan9/sys/src/9/pc/devarch.c:506,511 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/pc/devarch.c:522,529
*/
void (*coherence)(void) = nop;
+ int (*cmpswap)(long*, long, long) = cmpswap386;
+
PCArch* arch;
extern PCArch* knownarch[];
/n/sourcesdump/2006/0323/plan9/sys/src/9/pc/devarch.c:787,792 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/pc/devarch.c:805,817
n += snprint(buf+n, sizeof buf-n, "nop\n");
else
n += snprint(buf+n, sizeof buf-n, "0x%p\n", coherence);
+ n += snprint(buf+n, sizeof buf-n, "cmpswap ");
+ if(cmpswap == cmpswap386)
+ n += snprint(buf+n, sizeof buf-n, "cmpswap386\n");
+ else if(cmpswap == cmpswap486)
+ n += snprint(buf+n, sizeof buf-n, "cmpswap486\n");
+ else
+ n += snprint(buf+n, sizeof buf-n, "0x%p\n", cmpswap);
n += snprint(buf+n, sizeof buf-n, "i8253set %s\n", doi8253set ? "on" : "off");
buf[n] = 0;
return readstr(offset, a, nn, buf);
/n/sourcesdump/2006/0323/plan9/sys/src/9/pc/devarch.c:896,901 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/pc/devarch.c:921,929
*/
if(X86FAMILY(m->cpuidax) == 3)
conf.copymode = 1;
+
+ if(X86FAMILY(m->cpuidax) >= 4)
+ cmpswap = cmpswap486;
if(X86FAMILY(m->cpuidax) >= 5)
coherence = mb586;
[rsc] --rw-rw-r-- M 1061556 glenda sys 4531 Mar 23 11:05 sys/src/9/pc/fns.h
/n/sourcesdump/2006/0323/plan9/sys/src/9/pc/fns.h:5,10 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/pc/fns.h:5,12
void archinit(void);
void bootargs(void*);
void clockintr(Ureg*, void*);
+ int (*cmpswap)(long*, long, long);
+ int cmpswap486(long*, long, long);
void (*coherence)(void);
void cpuid(char*, int*, int*);
int cpuidentify(void);
[rsc] --rw-rw-r-- M 1061556 glenda sys 28552 Mar 23 11:05 sys/src/9/pc/l.s
/n/sourcesdump/2006/0323/plan9/sys/src/9/pc/l.s:839,844 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/pc/l.s:839,857
XCHGW AX, (BX)
RET
+ TEXT cmpswap486(SB), $0
+ MOVL addr+0(FP), BX
+ MOVL old+4(FP), AX
+ MOVL new+8(FP), CX
+ LOCK
+ BYTE $0x0F; BYTE $0xB1; BYTE $0x0B /* CMPXCHGL CX, (BX) */
+ JNZ didnt
+ MOVL $1, AX
+ RET
+ didnt:
+ XORL AX,AX
+ RET
+
TEXT mul64fract(SB), $0
/*
* Multiply two 64-bit number s and keep the middle 64 bits from the 128-bit result
[rsc] --rw-rw-r-- M 1061556 glenda sys 22669 Mar 23 11:04 sys/src/9/port/portdat.h
/n/sourcesdump/2006/0323/plan9/sys/src/9/port/portdat.h:40,45 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/port/portdat.h:40,46
typedef struct Sargs Sargs;
typedef struct Schedq Schedq;
typedef struct Segment Segment;
+ typedef struct Sema Sema;
typedef struct Timer Timer;
typedef struct Timers Timers;
typedef struct Uart Uart;
/n/sourcesdump/2006/0323/plan9/sys/src/9/port/portdat.h:389,394 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/port/portdat.h:390,404
void (*pgfree)(Page*);
};
+ struct Sema
+ {
+ Rendez;
+ long *addr;
+ int waiting;
+ Sema *next;
+ Sema *prev;
+ };
+
struct Segment
{
Ref;
/n/sourcesdump/2006/0323/plan9/sys/src/9/port/portdat.h:407,412 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/port/portdat.h:417,424
Pte **map;
int mapsize;
Pte *ssegmap[SSEGMAPSIZE];
+ Lock semalock;
+ Sema sema;
ulong mark; /* portcountrefs */
};
[rsc] --rw-rw-r-- M 1061556 glenda sys 13992 Mar 23 11:06 sys/src/9/port/segment.c
/n/sourcesdump/2006/0323/plan9/sys/src/9/port/segment.c:70,75 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/port/segment.c:70,77
s->base = base;
s->top = base+(size*BY2PG);
s->size = size;
+ s->sema.prev = &s->sema;
+ s->sema.next = &s->sema;
mapsize = ROUND(size, PTEPERTAB)/PTEPERTAB;
if(mapsize > nelem(s->ssegmap)){
/n/sourcesdump/2006/0323/plan9/sys/src/9/port/segment.c:789,791 -
/n/sourcesdump/2006/0324/plan9/sys/src/9/port/segment.c:791,794
s->profile[pc>>LRESPROF] += TK2MS(1);
}
}
+
[rsc] --rw-rw-r-- M 1061556 rsc sys 2424 Mar 23 11:03 sys/src/9/port/semaphore.p
[rsc] --rw-rw-r-- M 1061556 glenda sys 21535 Mar 23 11:03 sys/src/9/port/sysproc.c
[diffs elided - too long]
[diff -c /n/sourcesdump/2006/0323/plan9/sys/src/9/port/sysproc.c /n/sourcesdump/2006/0324/plan9/sys/src/9/port/sysproc.c]
[rsc] --rw-rw-r-- M 1061556 glenda sys 927 Mar 23 11:05 sys/src/libc/9syscall/sys.h
/n/sourcesdump/2006/0323/plan9/sys/src/libc/9syscall/sys.h:35,40 -
/n/sourcesdump/2006/0324/plan9/sys/src/libc/9syscall/sys.h:35,42
#define RENDEZVOUS 34
#define UNMOUNT 35
#define _WAIT 36
+ #define SEMACQUIRE 37
+ #define SEMRELEASE 38
#define SEEK 39
#define FVERSION 40
#define ERRSTR 41
/n/sourcesdump/2006/0323/plan9/sys/src/libc/9syscall/sys.h:44,48 -
/n/sourcesdump/2006/0324/plan9/sys/src/libc/9syscall/sys.h:46,50
#define FWSTAT 45
#define MOUNT 46
#define AWAIT 47
- #define PREAD 50
- #define PWRITE 51
+ #define PREAD 50
+ #define PWRITE 51
[rsc] --rw-rw-r-- M 1061556 rsc sys 1865 Mar 23 12:25 sys/man/2/semacquire
/sys/lib/acid/thread: print max stack size alongside used.
[rsc] --rw-rw-r-- M 1061556 glenda sys 6163 Mar 23 11:02 sys/lib/acid/thread
/n/sourcesdump/2006/0323/plan9/sys/lib/acid/thread:227,233 -
/n/sourcesdump/2006/0324/plan9/sys/lib/acid/thread:227,233
sp = *(T.sched);
}
sp = *(T.sched);
- print(top-sp\D, "\n");
+ print(top-sp\D, " / ", T.stksize\D, "\n");
T = T.nextt;
}
P = P.next;
tcs(1): document new Runeerror, correct bad-UTF-near-EOF bug.
[rsc] --rw-rw-r-- M 1061556 glenda sys 2654 Mar 23 11:26 sys/man/1/tcs
/n/sourcesdump/2006/0323/plan9/sys/man/1/tcs:48,59 -
/n/sourcesdump/2006/0324/plan9/sys/man/1/tcs:48,58
.B -c
option forces the output to contain only correctly converted characters;
otherwise,
- .B 0x80
+ .B Runeerror
+ (0xFFFD)
characters will be substituted for
.SM UTF
- encoding errors and
- .B 0xFFFD
- characters will substituted for unknown characters.
+ encoding errors and unknown characters.
.PP
The
.B -v
[rsc] --rw-rw-r-- M 1061556 glenda sys 7907 Mar 23 11:26 sys/src/cmd/tcs/utf.c
[diffs elided - too long]
[diff -c /n/sourcesdump/2006/0323/plan9/sys/src/cmd/tcs/utf.c /n/sourcesdump/2006/0324/plan9/sys/src/cmd/tcs/utf.c]
new 9load debugging binaries
[jmk] --rwxrwxr-x M 1061556 glenda sys 312489 Mar 23 15:41 386/9loaddebug
[jmk] --rwxrwxr-x M 1061556 glenda sys 200137 Mar 23 15:41 386/9loadlitedebug
|
