compilers: move more portable code out of swt.c
[rsc] --rw-rw-r-- M 1221262 glenda sys 11028 Mar 26 09:53 sys/src/cmd/5c/swt.c
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/5c/swt.c:174,206 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/5c/swt.c:174,179
return r;
}
- long
- outlstring(ushort *s, long n)
- {
- char buf[2];
- int c;
- long r;
-
- if(suppress)
- return nstring;
- while(nstring & 1)
- outstring("", 1);
- r = nstring;
- while(n > 0) {
- c = *s++;
- if(align(0, types[TCHAR], Aarg1)) {
- buf[0] = c>>8;
- buf[1] = c;
- } else {
- buf[0] = c;
- buf[1] = c>>8;
- }
- outstring(buf, 2);
- n -= sizeof(ushort);
- }
- return r;
- }
-
int
mulcon(Node *n, Node *nn)
{
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/5c/swt.c:296,311 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/5c/swt.c:269,274
}
void
- nullwarn(Node *l, Node *r)
- {
- warn(Z, "result of operation not used");
- if(l != Z)
- cgen(l, Z);
- if(r != Z)
- cgen(r, Z);
- }
-
- void
sextern(Sym *s, Node *a, long o, long w)
{
long e, lw;
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/5c/swt.c:594,628 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/5c/swt.c:557,562
break;
}
return bp;
- }
-
- void
- ieeedtod(Ieee *ieee, double native)
- {
- double fr, ho, f;
- int exp;
-
- if(native < 0) {
- ieeedtod(ieee, -native);
- ieee->h |= 0x80000000L;
- return;
- }
- if(native == 0) {
- ieee->l = 0;
- ieee->h = 0;
- return;
- }
- fr = frexp(native, &exp);
- f = 2097152L; /* shouldnt use fp constants here */
- fr = modf(fr*f, &ho);
- ieee->h = ho;
- ieee->h &= 0xfffffL;
- ieee->h |= (exp+1022L) << 20;
- f = 65536L;
- fr = modf(fr*f, &ho);
- ieee->l = ho;
- ieee->l <<= 16;
- ieee->l |= (long)(fr*f);
}
long
[rsc] --rw-rw-r-- M 1221262 glenda sys 9022 Mar 26 09:53 sys/src/cmd/8c/swt.c
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/8c/swt.c:127,170 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/8c/swt.c:127,133
return r;
}
- long
- outlstring(ushort *s, long n)
- {
- char buf[2];
- int c;
- long r;
-
- if(suppress)
- return nstring;
- while(nstring & 1)
- outstring("", 1);
- r = nstring;
- while(n > 0) {
- c = *s++;
- if(align(0, types[TCHAR], Aarg1)) {
- buf[0] = c>>8;
- buf[1] = c;
- } else {
- buf[0] = c;
- buf[1] = c>>8;
- }
- outstring(buf, 2);
- n -= sizeof(ushort);
- }
- return r;
- }
-
void
- nullwarn(Node *l, Node *r)
- {
- warn(Z, "result of operation not used");
- if(l != Z)
- cgen(l, Z);
- if(r != Z)
- cgen(r, Z);
- }
-
- void
sextern(Sym *s, Node *a, long o, long w)
{
long e, lw;
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/8c/swt.c:478,512 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/8c/swt.c:441,446
}
if(t & T_TYPE)
Bputc(b, a->type);
- }
-
- void
- ieeedtod(Ieee *ieee, double native)
- {
- double fr, ho, f;
- int exp;
-
- if(native < 0) {
- ieeedtod(ieee, -native);
- ieee->h |= 0x80000000L;
- return;
- }
- if(native == 0) {
- ieee->l = 0;
- ieee->h = 0;
- return;
- }
- fr = frexp(native, &exp);
- f = 2097152L; /* shouldnt use fp constants here */
- fr = modf(fr*f, &ho);
- ieee->h = ho;
- ieee->h &= 0xfffffL;
- ieee->h |= (exp+1022L) << 20;
- f = 65536L;
- fr = modf(fr*f, &ho);
- ieee->l = ho;
- ieee->l <<= 16;
- ieee->l |= (long)(fr*f);
}
long
[rsc] --rw-rw-r-- M 1221262 glenda sys 12170 Mar 26 09:53 sys/src/cmd/cc/cc.h
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/cc/cc.h:476,482 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/cc/cc.h:476,481
EXTERN int fproundflg;
EXTERN int profileflg;
EXTERN Bits zbits;
- EXTERN int little;
extern char *onames[], *tnames[], *gnames[];
extern char *cnames[], *qnames[], *bnames[];
[rsc] --rw-rw-r-- M 1221262 glenda sys 24178 Mar 26 09:53 sys/src/cmd/cc/lex.c
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/cc/lex.c:62,68 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/cc/lex.c:62,67
}
thechar = '0';
thestring = "spim";
- little = 1;
break;
case 'o':
[rsc] --rw-rw-r-- M 1221262 rsc sys 1969 Mar 26 09:53 sys/src/cmd/cc/pswt.c
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/cc/pswt.c:64,66 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/cc/pswt.c:64,131
cases = c;
}
+ long
+ outlstring(ushort *s, long n)
+ {
+ char buf[2];
+ int c;
+ long r;
+
+ if(suppress)
+ return nstring;
+ while(nstring & 1)
+ outstring("", 1);
+ r = nstring;
+ while(n > 0) {
+ c = *s++;
+ if(align(0, types[TCHAR], Aarg1)) {
+ buf[0] = c>>8;
+ buf[1] = c;
+ } else {
+ buf[0] = c;
+ buf[1] = c>>8;
+ }
+ outstring(buf, 2);
+ n -= sizeof(ushort);
+ }
+ return r;
+ }
+
+ void
+ nullwarn(Node *l, Node *r)
+ {
+ warn(Z, "result of operation not used");
+ if(l != Z)
+ cgen(l, Z);
+ if(r != Z)
+ cgen(r, Z);
+ }
+
+ void
+ ieeedtod(Ieee *ieee, double native)
+ {
+ double fr, ho, f;
+ int exp;
+
+ if(native < 0) {
+ ieeedtod(ieee, -native);
+ ieee->h |= 0x80000000L;
+ return;
+ }
+ if(native == 0) {
+ ieee->l = 0;
+ ieee->h = 0;
+ return;
+ }
+ fr = frexp(native, &exp);
+ f = 2097152L; /* shouldnt use fp constants here */
+ fr = modf(fr*f, &ho);
+ ieee->h = ho;
+ ieee->h &= 0xfffffL;
+ ieee->h |= (exp+1022L) << 20;
+ f = 65536L;
+ fr = modf(fr*f, &ho);
+ ieee->l = ho;
+ ieee->l <<= 16;
+ ieee->l |= (long)(fr*f);
+ }
[rsc] --rw-rw-r-- M 1221262 glenda sys 10226 Mar 26 09:53 sys/src/cmd/kc/swt.c
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/kc/swt.c:146,176 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/kc/swt.c:146,151
return r;
}
- long
- outlstring(ushort *s, long n)
- {
- char buf[2];
- int c;
- long r;
-
- while(nstring & 1)
- outstring("", 1);
- r = nstring;
- while(n > 0) {
- c = *s++;
- if(align(0, types[TCHAR], Aarg1)) {
- buf[0] = c>>8;
- buf[1] = c;
- } else {
- buf[0] = c;
- buf[1] = c>>8;
- }
- outstring(buf, 2);
- n -= sizeof(ushort);
- }
- return r;
- }
-
int
mulcon(Node *n, Node *nn)
{
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/kc/swt.c:261,276 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/kc/swt.c:236,241
}
void
- nullwarn(Node *l, Node *r)
- {
- warn(Z, "result of operation not used");
- if(l != Z)
- cgen(l, Z);
- if(r != Z)
- cgen(r, Z);
- }
-
- void
sextern(Sym *s, Node *a, long o, long w)
{
long e, lw;
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/kc/swt.c:555,589 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/kc/swt.c:520,525
Bputc(b, l>>24);
break;
}
- }
-
- void
- ieeedtod(Ieee *ieee, double native)
- {
- double fr, ho, f;
- int exp;
-
- if(native < 0) {
- ieeedtod(ieee, -native);
- ieee->h |= 0x80000000L;
- return;
- }
- if(native == 0) {
- ieee->l = 0;
- ieee->h = 0;
- return;
- }
- fr = frexp(native, &exp);
- f = 2097152L; /* shouldnt use fp constants here */
- fr = modf(fr*f, &ho);
- ieee->h = ho;
- ieee->h &= 0xfffffL;
- ieee->h |= (exp+1022L) << 20;
- f = 65536L;
- fr = modf(fr*f, &ho);
- ieee->l = ho;
- ieee->l <<= 16;
- ieee->l |= (long)(fr*f);
}
long
[rsc] --rw-rw-r-- M 1221262 glenda sys 10306 Mar 26 09:53 sys/src/cmd/qc/swt.c
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/qc/swt.c:148,180 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/qc/swt.c:148,153
return r;
}
- long
- outlstring(ushort *s, long n)
- {
- char buf[2];
- int c;
- long r;
-
- if(suppress)
- return nstring;
- while(nstring & 1)
- outstring("", 1);
- r = nstring;
- while(n > 0) {
- c = *s++;
- if(align(0, types[TCHAR], Aarg1)) {
- buf[0] = c>>8;
- buf[1] = c;
- } else {
- buf[0] = c;
- buf[1] = c>>8;
- }
- outstring(buf, 2);
- n -= sizeof(ushort);
- }
- return r;
- }
-
int
mulcon(Node *n, Node *nn)
{
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/qc/swt.c:265,280 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/qc/swt.c:238,243
}
void
- nullwarn(Node *l, Node *r)
- {
- warn(Z, "result of operation not used");
- if(l != Z)
- cgen(l, Z);
- if(r != Z)
- cgen(r, Z);
- }
-
- void
sextern(Sym *s, Node *a, long o, long w)
{
long e, lw;
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/qc/swt.c:562,596 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/qc/swt.c:525,530
break;
}
return bp;
- }
-
- void
- ieeedtod(Ieee *ieee, double native)
- {
- double fr, ho, f;
- int exp;
-
- if(native < 0) {
- ieeedtod(ieee, -native);
- ieee->h |= 0x80000000L;
- return;
- }
- if(native == 0) {
- ieee->l = 0;
- ieee->h = 0;
- return;
- }
- fr = frexp(native, &exp);
- f = 2097152L; /* shouldnt use fp constants here */
- fr = modf(fr*f, &ho);
- ieee->h = ho;
- ieee->h &= 0xfffffL;
- ieee->h |= (exp+1022L) << 20;
- f = 65536L;
- fr = modf(fr*f, &ho);
- ieee->l = ho;
- ieee->l <<= 16;
- ieee->l |= (long)(fr*f);
}
long
[rsc] --rw-rw-r-- M 1221262 glenda sys 15561 Mar 26 09:44 sys/src/cmd/tcs/tcs.c
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/tcs/tcs.c:54,60 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/tcs/tcs.c:54,60
clean = 1;
break;
case 'f':
- from = ARGF();
+ from = EARGF(usage());
break;
case 'l':
listem = 1;
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/tcs/tcs.c:63,69 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/tcs/tcs.c:63,69
squawk = 0;
break;
case 't':
- to = ARGF();
+ to = EARGF(usage());
break;
case 'v':
verbose = 1;
[rsc] --rw-rw-r-- M 1221262 glenda sys 10367 Mar 26 09:53 sys/src/cmd/vc/swt.c
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/vc/swt.c:142,172 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/vc/swt.c:142,147
return r;
}
- long
- outlstring(ushort *s, long n)
- {
- char buf[2];
- int c;
- long r;
-
- while(nstring & 1)
- outstring("", 1);
- r = nstring;
- while(n > 0) {
- c = *s++;
- if(align(0, types[TCHAR], Aarg1)) {
- buf[0] = c>>8;
- buf[1] = c;
- } else {
- buf[0] = c;
- buf[1] = c>>8;
- }
- outstring(buf, 2);
- n -= sizeof(ushort);
- }
- return r;
- }
-
int
mulcon(Node *n, Node *nn)
{
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/vc/swt.c:259,274 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/vc/swt.c:234,239
}
void
- nullwarn(Node *l, Node *r)
- {
- warn(Z, "result of operation not used");
- if(l != Z)
- cgen(l, Z);
- if(r != Z)
- cgen(r, Z);
- }
-
- void
sextern(Sym *s, Node *a, long o, long w)
{
long e, lw;
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/vc/swt.c:560,594 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/vc/swt.c:525,530
return bp;
}
- void
- ieeedtod(Ieee *ieee, double native)
- {
- double fr, ho, f;
- int exp;
-
- if(native < 0) {
- ieeedtod(ieee, -native);
- ieee->h |= 0x80000000L;
- return;
- }
- if(native == 0) {
- ieee->l = 0;
- ieee->h = 0;
- return;
- }
- fr = frexp(native, &exp);
- f = 2097152L; /* shouldnt use fp constants here */
- fr = modf(fr*f, &ho);
- ieee->h = ho;
- ieee->h &= 0xfffffL;
- ieee->h |= (exp+1022L) << 20;
- f = 65536L;
- fr = modf(fr*f, &ho);
- ieee->l = ho;
- ieee->l <<= 16;
- ieee->l |= (long)(fr*f);
- }
-
long
align(long i, Type *t, int op)
{
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/vc/swt.c:636,642 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/vc/swt.c:572,578
w = SZ_LONG;
break;
}
- if (!little)
+ if(thechar == 'v')
o += SZ_LONG - w; /* big endian adjustment */
w = 1;
break;
[rsc] --rw-rw-r-- M 1221262 glenda sys 23728 Mar 26 09:53 sys/src/cmd/vl/obj.c
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/vl/obj.c:86,92 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/vl/obj.c:86,92
USED(argc);
if(*argv == 0) {
- diag("usage: vl [-options] objects");
+ diag("usage: %cl [-options] objects", thechar);
errorexit();
}
if(!debug['9'] && !debug['U'] && !debug['B'])
[rsc] --rw-rw-r-- M 1221262 glenda sys 9703 Mar 26 09:53 sys/src/cmd/7c/swt.c
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/7c/swt.c:162,192 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/7c/swt.c:162,167
return r;
}
- long
- outlstring(ushort *s, long n)
- {
- char buf[2];
- int c;
- long r;
-
- while(nstring & 1)
- outstring("", 1);
- r = nstring;
- while(n > 0) {
- c = *s++;
- if(align(0, types[TCHAR], Aarg1)) {
- buf[0] = c>>8;
- buf[1] = c;
- } else {
- buf[0] = c;
- buf[1] = c>>8;
- }
- outstring(buf, 2);
- n -= sizeof(ushort);
- }
- return r;
- }
-
int
mulcon(Node *n, Node *nn)
{
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/7c/swt.c:279,294 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/7c/swt.c:254,259
}
void
- nullwarn(Node *l, Node *r)
- {
- warn(Z, "result of operation not used");
- if(l != Z)
- cgen(l, Z);
- if(r != Z)
- cgen(r, Z);
- }
-
- void
sextern(Sym *s, Node *a, long o, long w)
{
long e, lw;
/n/sourcesdump/2006/0326/plan9/sys/src/cmd/7c/swt.c:533,567 -
/n/sourcesdump/2006/0327/plan9/sys/src/cmd/7c/swt.c:498,503
break;
}
return bp;
- }
-
- void
- ieeedtod(Ieee *ieee, double native)
- {
- double fr, ho, f;
- int exp;
-
- if(native < 0) {
- ieeedtod(ieee, -native);
- ieee->h |= 0x80000000L;
- return;
- }
- if(native == 0) {
- ieee->l = 0;
- ieee->h = 0;
- return;
- }
- fr = frexp(native, &exp);
- f = 2097152L; /* shouldnt use fp constants here */
- fr = modf(fr*f, &ho);
- ieee->h = ho;
- ieee->h &= 0xfffffL;
- ieee->h |= (exp+1022L) << 20;
- f = 65536L;
- fr = modf(fr*f, &ho);
- ieee->l = ho;
- ieee->l <<= 16;
- ieee->l |= (long)(fr*f);
}
long
[rsc] --rw-rw-r-- M 1221262 glenda sys 94721 Mar 26 09:42 sys/src/libhtml/build.c
/n/sourcesdump/2006/0326/plan9/sys/src/libhtml/build.c:2246,2272 -
/n/sourcesdump/2006/0327/plan9/sys/src/libhtml/build.c:2246,2265
{
int obrkstate;
int b;
- int addit;
// don't want break before our null item unless the previous item
// was also a null item for the purposes of line breaking
obrkstate = ps->curstate&(IFbrk|IFbrksp);
b = IFnobrk;
- addit = 0;
if(ps->lastit != nil) {
if(ps->lastit->tag == Ispacertag) {
if(((Ispacer*)ps->lastit)->spkind == ISPvline)
b = IFbrk;
- addit = 1;
}
- else if(ps->lastit->tag == Ifloattag)
- addit = 1;
}
- if(addit) {
- ps->curstate = (ps->curstate&~(IFbrk|IFbrksp))|b;
- additem(ps, newispacer(ISPvline), nil);
- ps->curstate = (ps->curstate&~(IFbrk|IFbrksp))|obrkstate;
- }
+ ps->curstate = (ps->curstate&~(IFbrk|IFbrksp))|b;
+ additem(ps, newispacer(ISPvline), nil);
+ ps->curstate = (ps->curstate&~(IFbrk|IFbrksp))|obrkstate;
addbrk(ps, 0, clr);
}
@1143390731.0
[rsc] --rwxrwxr-x M 1221262 glenda sys 142 Mar 26 11:07 rc/bin/broke
/n/sourcesdump/2006/0326/plan9/rc/bin/broke:4,8 -
/n/sourcesdump/2006/0327/plan9/rc/bin/broke:4,8
U=$1
}
ps | sed -n '/^'$U' .* Broken/s%[^ ]* *%~>/proc/%
- s% *.*%/ctl%
+ s% *.* (.*)%/ctl # \1%
s%~%echo kill%p'
@1143390731.1
[rsc] --rwxrwxr-x M 1221262 glenda sys 142 Mar 26 11:07 rc/bin/kill
/n/sourcesdump/2006/0326/plan9/rc/bin/kill:3,8 -
/n/sourcesdump/2006/0327/plan9/rc/bin/kill:3,8
U=`{cat /dev/user}
for(i){
ps | sed -n '/^'$U' .* '$i'$/s%[^ ]* *%~>/proc/%
- s% *.*%/note%
+ s% *.* (.*)%/note # \1%
s%~%echo kill%p'
}
@1143390731.2
[rsc] --rwxrwxr-x M 1221262 glenda sys 133 Mar 26 11:07 rc/bin/slay
/n/sourcesdump/2006/0326/plan9/rc/bin/slay:2,7 -
/n/sourcesdump/2006/0327/plan9/rc/bin/slay:2,7
U=`{cat /dev/user}
for(i){
ps | sed -n '/^'$U' .* '$i'$/s%[^ ]* *%~>/proc/%
- s% *.*%/ctl%
+ s% *.* (.*)%/ctl # \1%
s%~%echo kill%p'
}
|
