qbit/go
1
0
Fork 0
mirror of https://github.com/golang/go synced 2024-11-22 02:04:40 -07:00
Code Releases Activity

gc: no more ...

Browse Source 
various cleanup, deleting unused code

R=ken2
CC=golang-dev
https://golang.org/cl/1663041
This commit is contained in:
Russ Cox 2010-06-14 11:24:51 -07:00
parent 6672b40c09
commit d5a80d0ba4
17 changed files with 551 additions and 892 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/cmd/gc/bits.c
View File

@ -30,6 +30,7 @@
#include "go.h" #include "go.h"
/*
Bits Bits
bor(Bits a, Bits b) bor(Bits a, Bits b)
{ {
@ -52,7 +53,6 @@ band(Bits a, Bits b)
return c; return c;
} }
/*
Bits Bits
bnot(Bits a) bnot(Bits a)
{ {
@ -76,6 +76,7 @@ bany(Bits *a)
return 0; return 0;
} }
/*
int int
beq(Bits a, Bits b) beq(Bits a, Bits b)
{ {
@ -86,6 +87,7 @@ beq(Bits a, Bits b)
return 0; return 0;
return 1; return 1;
} }
*/
int int
bnum(Bits a) bnum(Bits a)
@ -110,6 +112,7 @@ blsh(uint n)
return c; return c;
} }
/*
int int
bset(Bits a, uint n) bset(Bits a, uint n)
{ {
@ -117,6 +120,7 @@ bset(Bits a, uint n)
return 1; return 1;
return 0; return 0;
} }
*/
int int
bitno(int32 b) bitno(int32 b)

2
src/cmd/gc/const.c
View File

@ -1117,7 +1117,7 @@ nonnegconst(Node *n)
* convert x to type et and back to int64 * convert x to type et and back to int64
* for sign extension and truncation. * for sign extension and truncation.
*/ */
int64 static int64
iconv(int64 x, int et) iconv(int64 x, int et)
{ {
switch(et) { switch(et) {

129
src/cmd/gc/dcl.c
View File

@ -7,7 +7,7 @@
static void funcargs(Node*); static void funcargs(Node*);
int static int
dflag(void) dflag(void)
{ {
if(!debug['d']) if(!debug['d'])
@ -24,7 +24,7 @@ dflag(void)
*/ */
static Sym* dclstack; static Sym* dclstack;
void static void
dcopy(Sym *a, Sym *b) dcopy(Sym *a, Sym *b)
{ {
a->pkg = b->pkg; a->pkg = b->pkg;
@ -34,7 +34,7 @@ dcopy(Sym *a, Sym *b)
a->lastlineno = b->lastlineno; a->lastlineno = b->lastlineno;
} }
Sym* static Sym*
push(void) push(void)
{ {
Sym *d; Sym *d;
@ -45,7 +45,7 @@ push(void)
return d; return d;
} }
Sym* static Sym*
pushdcl(Sym *s) pushdcl(Sym *s)
{ {
Sym *d; Sym *d;
@ -217,90 +217,6 @@ addvar(Node *n, Type *t, int ctxt)
n->type = t; n->type = t;
} }
// TODO: cut use of below in sigtype and then delete
void
addtyp(Type *n, int ctxt)
{
Node *def;
if(n==T || n->sym == S)
fatal("addtyp: n=%T t=%T nil", n);
def = typenod(n);
declare(def, ctxt);
n->vargen = def->vargen;
typelist = list(typelist, def);
}
/*
* introduce a type named n
* but it is an unknown type for now
*/
// TODO(rsc): cut use of this in sigtype and then delete
Type*
dodcltype(Type *n)
{
addtyp(n, dclcontext);
n->local = 1;
autoexport(typenod(n), dclcontext);
return n;
}
/*
* now we know what n is: it's t
*/
// TODO(rsc): cut use of this in sigtype and then delete
void
updatetype(Type *n, Type *t)
{
Sym *s;
int local, vargen;
int maplineno, lno, etype;
if(t == T)
return;
s = n->sym;
if(s == S || s->def == N || s->def->op != OTYPE || s->def->type != n)
fatal("updatetype %T = %T", n, t);
etype = n->etype;
switch(n->etype) {
case TFORW:
break;
default:
fatal("updatetype %T / %T", n, t);
}
// decl was
// type n t;
// copy t, but then zero out state associated with t
// that is no longer associated with n.
maplineno = n->maplineno;
local = n->local;
vargen = n->vargen;
*n = *t;
n->orig = t->orig;
n->sym = s;
n->local = local;
n->siggen = 0;
n->printed = 0;
n->method = nil;
n->vargen = vargen;
n->nod = N;
checkwidth(n);
// double-check use of type as map key
if(maplineno) {
lno = lineno;
lineno = maplineno;
maptype(n, types[TBOOL]);
lineno = lno;
}
}
/* /*
* declare variables from grammar * declare variables from grammar
* new_name_list (type | [type] = expr_list) * new_name_list (type | [type] = expr_list)
@ -544,8 +460,6 @@ dclchecks(void)
static int static int
colasname(Node *n) colasname(Node *n)
{ {
// TODO(rsc): can probably simplify
// once late-binding of names goes in
switch(n->op) { switch(n->op) {
case ONAME: case ONAME:
case ONONAME: case ONONAME:
@ -769,7 +683,7 @@ ok:
/* /*
* turn a parsed struct into a type * turn a parsed struct into a type
*/ */
Type** static Type**
stotype(NodeList *l, int et, Type **t) stotype(NodeList *l, int et, Type **t)
{ {
Type *f, *t1, *t2, **t0; Type *f, *t1, *t2, **t0;
@ -1028,15 +942,9 @@ checkarglist(NodeList *all, int input)
yyerror("cannot use ... in output argument list"); yyerror("cannot use ... in output argument list");
else if(l->next != nil) else if(l->next != nil)
yyerror("can only use ... as final argument in list"); yyerror("can only use ... as final argument in list");
if(n->right->left == N) {
// TODO(rsc): Delete with DDD cleanup.
n->right->op = OTYPE;
n->right->type = typ(TINTER);
} else {
n->right->op = OTARRAY; n->right->op = OTARRAY;
n->right->right = n->right->left; n->right->right = n->right->left;
n->right->left = N; n->right->left = N;
}
n->isddd = 1; n->isddd = 1;
if(n->left != N) if(n->left != N)
n->left->isddd = 1; n->left->isddd = 1;
@ -1108,33 +1016,6 @@ functype(Node *this, NodeList *in, NodeList *out)
return t; return t;
} }
int
methcmp(Type *t1, Type *t2)
{
if(t1->etype != TFUNC)
return 0;
if(t2->etype != TFUNC)
return 0;
t1 = t1->type->down; // skip this arg
t2 = t2->type->down; // skip this arg
for(;;) {
if(t1 == t2)
break;
if(t1 == T || t2 == T)
return 0;
if(t1->etype != TSTRUCT || t2->etype != TSTRUCT)
return 0;
if(!eqtype(t1->type, t2->type))
return 0;
t1 = t1->down;
t2 = t2->down;
}
return 1;
}
Sym* Sym*
methodsym(Sym *nsym, Type *t0) methodsym(Sym *nsym, Type *t0)
{ {

31
src/cmd/gc/export.c
View File

@ -5,13 +5,10 @@
#include "go.h" #include "go.h"
#include "y.tab.h" #include "y.tab.h"
void dumpsym(Sym*); static void dumpsym(Sym*);
static void dumpexporttype(Sym*);
void static void dumpexportvar(Sym*);
addexportsym(Node *n) static void dumpexportconst(Sym*);
{
exportlist = list(exportlist, n);
}
void void
exportsym(Node *n) exportsym(Node *n)
@ -25,10 +22,10 @@ exportsym(Node *n)
} }
n->sym->flags |= SymExport; n->sym->flags |= SymExport;
addexportsym(n); exportlist = list(exportlist, n);
} }
void static void
packagesym(Node *n) packagesym(Node *n)
{ {
if(n == N || n->sym == S) if(n == N || n->sym == S)
@ -40,7 +37,7 @@ packagesym(Node *n)
} }
n->sym->flags |= SymPackage; n->sym->flags |= SymPackage;
addexportsym(n); exportlist = list(exportlist, n);
} }
int int
@ -69,7 +66,7 @@ autoexport(Node *n, int ctxt)
packagesym(n); packagesym(n);
} }
void static void
dumppkg(Pkg *p) dumppkg(Pkg *p)
{ {
if(p == nil || p == localpkg || p->exported) if(p == nil || p == localpkg || p->exported)
@ -78,7 +75,7 @@ dumppkg(Pkg *p)
Bprint(bout, "\timport %s \"%Z\"\n", p->name, p->path); Bprint(bout, "\timport %s \"%Z\"\n", p->name, p->path);
} }
void static void
dumpprereq(Type *t) dumpprereq(Type *t)
{ {
if(t == T) if(t == T)
@ -97,7 +94,7 @@ dumpprereq(Type *t)
dumpprereq(t->down); dumpprereq(t->down);
} }
void static void
dumpexportconst(Sym *s) dumpexportconst(Sym *s)
{ {
Node *n; Node *n;
@ -142,7 +139,7 @@ dumpexportconst(Sym *s)
} }
} }
void static void
dumpexportvar(Sym *s) dumpexportvar(Sym *s)
{ {
Node *n; Node *n;
@ -166,7 +163,7 @@ dumpexportvar(Sym *s)
Bprint(bout, "\n"); Bprint(bout, "\n");
} }
void static void
dumpexporttype(Sym *s) dumpexporttype(Sym *s)
{ {
Type *t; Type *t;
@ -192,7 +189,7 @@ methcmp(const void *va, const void *vb)
return strcmp(a->sym->name, b->sym->name); return strcmp(a->sym->name, b->sym->name);
} }
void static void
dumpsym(Sym *s) dumpsym(Sym *s)
{ {
Type *f, *t; Type *f, *t;
@ -243,7 +240,7 @@ dumpsym(Sym *s)
} }
} }
void static void
dumptype(Type *t) dumptype(Type *t)
{ {
// no need to re-dump type if already exported // no need to re-dump type if already exported

9
src/cmd/gc/gen.c
View File

@ -9,6 +9,9 @@
#include "go.h" #include "go.h"
static void cgen_dcl(Node *n);
static void cgen_proc(Node *n, int proc);
Node* Node*
sysfunc(char *name) sysfunc(char *name)
{ {
@ -61,7 +64,7 @@ allocparams(void)
lineno = lno; lineno = lno;
} }
void static void
newlab(int op, Sym *s, Node *stmt) newlab(int op, Sym *s, Node *stmt)
{ {
Label *lab; Label *lab;
@ -400,7 +403,7 @@ cgen_proc(Node *n, int proc)
* but might have to allocate heap copy * but might have to allocate heap copy
* for escaped variables. * for escaped variables.
*/ */
void static void
cgen_dcl(Node *n) cgen_dcl(Node *n)
{ {
if(debug['g']) if(debug['g'])
@ -419,7 +422,7 @@ cgen_dcl(Node *n)
/* /*
* generate discard of value * generate discard of value
*/ */
void static void
cgen_discard(Node *nr) cgen_discard(Node *nr)
{ {
Node tmp; Node tmp;

861
src/cmd/gc/go.h
View File

@ -14,13 +14,8 @@
#define EXTERN extern #define EXTERN extern
#endif #endif
#undef getc
#undef ungetc
#undef BUFSIZ #undef BUFSIZ
#define getc ccgetc
#define ungetc ccungetc
enum enum
{ {
NHUNK = 50000, NHUNK = 50000,
@ -614,6 +609,23 @@ struct Magic
int ua; // output - adder int ua; // output - adder
}; };
typedef struct Prog Prog;
typedef struct Label Label;
struct Label
{
uchar op; // OGOTO/OLABEL
Sym* sym;
Node* stmt;
Prog* label; // pointer to code
Prog* breakpc; // pointer to code
Prog* continpc; // pointer to code
Label* link;
};
#define L ((Label*)0)
EXTERN Label* labellist;
/* /*
* note this is the runtime representation * note this is the runtime representation
* of the compilers arrays. * of the compilers arrays.
@ -757,397 +769,404 @@ EXTERN int compiling_runtime;
*/ */
int yyparse(void); int yyparse(void);
/*
* lex.c
*/
void addidir(char*);
void importfile(Val*, int line);
void cannedimports(char*, char*);
void unimportfile(void);
int32 yylex(void);
void typeinit(void);
void lexinit(void);
char* lexname(int);
int32 getr(void);
int escchar(int, int*, vlong*);
int getc(void);
void ungetc(int);
void mkpackage(char*);
/*
* mparith1.c
*/
int mpcmpfixflt(Mpint *a, Mpflt *b);
int mpcmpfltfix(Mpflt *a, Mpint *b);
int mpcmpfixfix(Mpint *a, Mpint *b);
int mpcmpfixc(Mpint *b, vlong c);
int mpcmpfltflt(Mpflt *a, Mpflt *b);
int mpcmpfltc(Mpflt *b, double c);
void mpsubfixfix(Mpint *a, Mpint *b);
void mpsubfltflt(Mpflt *a, Mpflt *b);
void mpaddcfix(Mpint *a, vlong c);
void mpaddcflt(Mpflt *a, double c);
void mpmulcfix(Mpint *a, vlong c);
void mpmulcflt(Mpflt *a, double c);
void mpdivfixfix(Mpint *a, Mpint *b);
void mpmodfixfix(Mpint *a, Mpint *b);
void mpatofix(Mpint *a, char *s);
void mpatoflt(Mpflt *a, char *s);
int mpmovefltfix(Mpint *a, Mpflt *b);
void mpmovefixflt(Mpflt *a, Mpint *b);
int Bconv(Fmt*);
/*
* mparith2.c
*/
void mpmovefixfix(Mpint *a, Mpint *b);
void mpmovecfix(Mpint *a, vlong v);
int mptestfix(Mpint *a);
void mpaddfixfix(Mpint *a, Mpint *b);
void mpmulfixfix(Mpint *a, Mpint *b);
void mpmulfract(Mpint *a, Mpint *b);
void mpdivmodfixfix(Mpint *q, Mpint *r, Mpint *n, Mpint *d);
void mpdivfract(Mpint *a, Mpint *b);
void mpnegfix(Mpint *a);
void mpandfixfix(Mpint *a, Mpint *b);
void mpandnotfixfix(Mpint *a, Mpint *b);
void mplshfixfix(Mpint *a, Mpint *b);
void mporfixfix(Mpint *a, Mpint *b);
void mprshfixfix(Mpint *a, Mpint *b);
void mpxorfixfix(Mpint *a, Mpint *b);
void mpcomfix(Mpint *a);
vlong mpgetfix(Mpint *a);
void mpshiftfix(Mpint *a, int s);
/*
* mparith3.c
*/
int sigfig(Mpflt *a);
void mpnorm(Mpflt *a);
void mpmovefltflt(Mpflt *a, Mpflt *b);
void mpmovecflt(Mpflt *a, double f);
int mptestflt(Mpflt *a);
void mpaddfltflt(Mpflt *a, Mpflt *b);
void mpmulfltflt(Mpflt *a, Mpflt *b);
void mpdivfltflt(Mpflt *a, Mpflt *b);
void mpnegflt(Mpflt *a);
double mpgetflt(Mpflt *a);
int Fconv(Fmt*);
/*
* subr.c
*/
void* mal(int32);
void* remal(void*, int32, int32);
void errorexit(void);
uint32 stringhash(char*);
Sym* lookup(char*);
Sym* pkglookup(char*, Pkg*);
Sym* restrictlookup(char*, Pkg*);
Pkg* mkpkg(Strlit*);
Strlit* strlit(char*);
void importdot(Pkg*, Node*);
void yyerror(char*, ...);
void yyerrorl(int, char*, ...);
void flusherrors(void);
int parserline(void);
void warn(char*, ...);
void fatal(char*, ...);
void linehist(char*, int32, int);
int32 setlineno(Node*);
Node* nod(int, Node*, Node*);
Node* nodlit(Val);
Node* nodcplxlit(Val, Val);
Type* typ(int);
int algtype(Type*);
void dodump(Node*, int);
void dump(char*, Node*);
void dumplist(char*, NodeList*);
Type* aindex(Node*, Type*);
int isnil(Node*);
int isptrto(Type*, int);
int istype(Type*, int);
int isfixedarray(Type*);
int isslice(Type*);
int isinter(Type*);
int isnilinter(Type*);
int isideal(Type*);
int isblank(Node*);
Type* maptype(Type*, Type*);
Type* methtype(Type*);
Node* typename(Type*);
int eqtype(Type*, Type*);
int cvttype(Type*, Type*);
int eqtypenoname(Type*, Type*);
void argtype(Node*, Type*);
int eqargs(Type*, Type*);
uint32 typehash(Type*);
void frame(int);
Node* nodintconst(int64);
void nodconst(Node*, Type*, int64);
Node* nodnil(void);
Node* nodbool(int);
void ullmancalc(Node*);
void badtype(int, Type*, Type*);
Type* ptrto(Type*);
NodeList* cleanidlist(NodeList*);
Node* syslook(char*, int);
Node* treecopy(Node*);
NodeList* listtreecopy(NodeList*);
int isselect(Node*);
Node* staticname(Type*);
int iscomposite(Type*);
int cplxsubtype(int);
Node* callnew(Type*);
Node* safeexpr(Node*, NodeList**);
int is64(Type*);
int noconv(Type*, Type*);
NodeList* list1(Node*);
NodeList* list(NodeList*, Node*);
NodeList* concat(NodeList*, NodeList*);
int count(NodeList*);
Node* liststmt(NodeList*);
Type** getthis(Type*);
Type** getoutarg(Type*);
Type** getinarg(Type*);
Type* getthisx(Type*);
Type* getoutargx(Type*);
Type* getinargx(Type*);
Type* structfirst(Iter*, Type**);
Type* structnext(Iter*);
Type* funcfirst(Iter*, Type*);
Type* funcnext(Iter*);
int brcom(int);
int brrev(int);
void setmaxarg(Type*);
int dotoffset(Node*, int*, Node**);
void tempname(Node*, Type*);
int Econv(Fmt*);
int Jconv(Fmt*);
int Lconv(Fmt*);
int Oconv(Fmt*);
int Sconv(Fmt*);
int Tconv(Fmt*);
int Nconv(Fmt*);
void exprfmt(Fmt*, Node*, int);
int Wconv(Fmt*);
int Zconv(Fmt*);
int lookdot0(Sym*, Type*, Type**);
int adddot1(Sym*, Type*, int, Type**);
Node* adddot(Node*);
void expandmeth(Sym*, Type*);
void genwrapper(Type*, Type*, Sym*);
int simsimtype(Type*);
int powtwo(Node*);
Type* tounsigned(Type*);
void smagic(Magic*);
void umagic(Magic*);
void redeclare(Sym*, char*);
Sym* ngotype(Node*);
int convertop(Type*, Type*, char**);
int assignop(Type*, Type*, char**);
Node* assignconv(Node*, Type*, char*);
int implements(Type*, Type*, Type**, Type**);
/*
* dcl.c
*/
void declare(Node*, int);
Type* dodcltype(Type*);
void updatetype(Type*, Type*);
void defaultlit(Node**, Type*);
void defaultlit2(Node**, Node**, int);
int structcount(Type*);
void addmethod(Sym*, Type*, int);
Node* methodname(Node*, Type*);
Node* methodname1(Node*, Node*);
Type* methodfunc(Type*, int);
Sym* methodsym(Sym*, Type*);
Type* functype(Node*, NodeList*, NodeList*);
char* thistypenam(Node*);
void funcnam(Type*, char*);
Node* renameinit(Node*);
void funchdr(Node*);
void funcbody(Node*);
Node* typenod(Type*);
Type* dostruct(NodeList*, int);
Type** stotype(NodeList*, int, Type**);
Type* sortinter(Type*);
void markdcl(void);
void popdcl(void);
void poptodcl(void);
void dumpdcl(char*);
void markdclstack(void);
void testdclstack(void);
Sym* pushdcl(Sym*);
void addvar(Node*, Type*, int);
void addtyp(Type*, int);
void addconst(Node*, Node*, int);
Node* fakethis(void);
int isifacemethod(Type*);
Node* dclname(Sym*);
Node* newname(Sym*);
Node* oldname(Sym*);
Type* newtype(Sym*);
Type* oldtype(Sym*);
void fninit(NodeList*);
Node* nametodcl(Node*, Type*);
NodeList* checkarglist(NodeList*, int);
void checkwidth(Type*);
void defercheckwidth(void);
void resumecheckwidth(void);
Node* embedded(Sym*);
NodeList* variter(NodeList*, Node*, NodeList*);
NodeList* constiter(NodeList*, Node*, NodeList*);
Node* unsafenmagic(Node*, NodeList*);
void dclchecks(void);
void funccompile(Node*, int);
Node* typedcl0(Sym*);
Node* typedcl1(Node*, Node*, int);
void typedcl2(Type*, Type*);
/*
* closure.c
*/
void closurehdr(Node*);
Node* closurebody(NodeList*);
void typecheckclosure(Node*);
Node* walkclosure(Node*, NodeList**);
/*
* sinit.c
*/
NodeList* initfix(NodeList*);
/*
* export.c
*/
void autoexport(Node*, int);
int exportname(char*);
void exportsym(Node*);
void packagesym(Node*);
void dumpe(Sym*);
void dumpexport(void);
void dumpexporttype(Sym*);
void dumpexportvar(Sym*);
void dumpexportconst(Sym*);
void importconst(Sym *s, Type *t, Node *v);
void importmethod(Sym *s, Type *t);
void importtype(Type *s, Type *t);
void importvar(Sym *s, Type *t, int ctxt);
Type* pkgtype(Sym*);
Sym* importsym(Sym*, int);
/*
* walk.c
*/
void walk(Node*);
void walkstmt(Node**);
void walkstmtlist(NodeList*);
void walkexprlist(NodeList*, NodeList**);
void walkconv(Node**, NodeList**);
void walkas(Node*);
void walkswitch(Node*);
void walkrange(Node*);
void walkselect(Node*);
void walkdot(Node*, NodeList**);
void walkexpr(Node**, NodeList**);
Node* mkcall(char*, Type*, NodeList**, ...);
Node* mkcall1(Node*, Type*, NodeList**, ...);
Node* chanfn(char*, int, Type*);
Node* ascompatee1(int, Node*, Node*, NodeList**);
NodeList* ascompatee(int, NodeList*, NodeList*, NodeList**);
NodeList* ascompatet(int, NodeList*, Type**, int, NodeList**);
NodeList* ascompatte(int, Type**, NodeList*, int, NodeList**);
Type* fixchan(Type*);
Node* ifacecvt(Type*, Node*, int, NodeList**);
int ifaceas(Type*, Type*, int);
int ifaceas1(Type*, Type*, int);
Node* convas(Node*, NodeList**);
Node* colas(NodeList*, NodeList*);
void colasdefn(NodeList*, Node*);
NodeList* reorder1(NodeList*);
NodeList* reorder3(NodeList*);
NodeList* reorder4(NodeList*);
int vmatch1(Node*, Node*);
void anylit(Node*, Node*, NodeList**);
int oaslit(Node*, NodeList**);
void heapmoves(void);
void walkdeflist(NodeList*);
Node* walkdef(Node*);
void typechecklist(NodeList*, int);
void typecheckswitch(Node*);
void typecheckselect(Node*);
void typecheckrange(Node*);
Node* typecheckconv(Node*, Node*, Type*, int, char*);
Node* typecheck(Node**, int);
int islvalue(Node*);
void queuemethod(Node*);
int exportassignok(Type*, char*);
Node* resolve(Node*);
/*
* const.c
*/
void convlit1(Node**, Type*, int);
void convlit(Node**, Type*);
void evconst(Node*);
int cmpslit(Node *l, Node *r);
int smallintconst(Node*);
long nonnegconst(Node*);
int consttype(Node*);
int isconst(Node*, int);
Mpflt* truncfltlit(Mpflt*, Type*);
void convconst(Node*, Type*, Val*);
Val toint(Val);
void overflow(Val, Type*);
/* /*
* align.c * align.c
*/ */
uint32 rnd(uint32, uint32); int argsize(Type *t);
void dowidth(Type*); void checkwidth(Type *t);
int argsize(Type*); void defercheckwidth(void);
void dowidth(Type *t);
void resumecheckwidth(void);
uint32 rnd(uint32 o, uint32 r);
void typeinit(void);
/* /*
* bits.c * bits.c
*/ */
Bits bor(Bits, Bits);
Bits band(Bits, Bits);
Bits bnot(Bits);
int bany(Bits*);
int bnum(Bits);
Bits blsh(uint);
int beq(Bits, Bits);
int bset(Bits, uint);
int Qconv(Fmt *fp); int Qconv(Fmt *fp);
int bitno(int32); Bits band(Bits a, Bits b);
int bany(Bits *a);
int beq(Bits a, Bits b);
int bitno(int32 b);
Bits blsh(uint n);
Bits bnot(Bits a);
int bnum(Bits a);
Bits bor(Bits a, Bits b);
int bset(Bits a, uint n);
/*
* closure.c
*/
Node* closurebody(NodeList *body);
void closurehdr(Node *ntype);
void typecheckclosure(Node *func);
Node* walkclosure(Node *func, NodeList **init);
/*
* const.c
*/
int cmpslit(Node *l, Node *r);
int consttype(Node *n);
void convconst(Node *con, Type *t, Val *val);
void convlit(Node **np, Type *t);
void convlit1(Node **np, Type *t, int explicit);
void defaultlit(Node **np, Type *t);
void defaultlit2(Node **lp, Node **rp, int force);
void evconst(Node *n);
int isconst(Node *n, int ct);
Node* nodcplxlit(Val r, Val i);
Node* nodlit(Val v);
long nonnegconst(Node *n);
void overflow(Val v, Type *t);
int smallintconst(Node *n);
Val toint(Val v);
Mpflt* truncfltlit(Mpflt *oldv, Type *t);
/*
* cplx.c
*/
void complexadd(int op, Node *nl, Node *nr, Node *res);
void complexbool(int op, Node *nl, Node *nr, int true, Prog *to);
void complexgen(Node *n, Node *res);
void complexminus(Node *nl, Node *res);
void complexmove(Node *f, Node *t);
void complexmul(Node *nl, Node *nr, Node *res);
int complexop(Node *n, Node *res);
void nodfconst(Node *n, Type *t, Mpflt* fval);
/*
* dcl.c
*/
void addmethod(Sym *sf, Type *t, int local);
void addvar(Node *n, Type *t, int ctxt);
NodeList* checkarglist(NodeList *all, int input);
Node* colas(NodeList *left, NodeList *right);
void colasdefn(NodeList *left, Node *defn);
NodeList* constiter(NodeList *vl, Node *t, NodeList *cl);
void dclchecks(void);
Node* dclname(Sym *s);
void declare(Node *n, int ctxt);
Type* dostruct(NodeList *l, int et);
void dumpdcl(char *st);
Node* embedded(Sym *s);
Node* fakethis(void);
void funcbody(Node *n);
void funccompile(Node *n, int isclosure);
void funchdr(Node *n);
Type* functype(Node *this, NodeList *in, NodeList *out);
int isifacemethod(Type *f);
void markdcl(void);
Node* methodname(Node *n, Type *t);
Node* methodname1(Node *n, Node *t);
Sym* methodsym(Sym *nsym, Type *t0);
Node* newname(Sym *s);
Type* newtype(Sym *s);
Node* oldname(Sym *s);
void popdcl(void);
void poptodcl(void);
void redeclare(Sym *s, char *where);
void testdclstack(void);
Node* typedcl0(Sym *s);
Node* typedcl1(Node *n, Node *t, int local);
void typedcl2(Type *pt, Type *t);
Node* typenod(Type *t);
NodeList* variter(NodeList *vl, Node *t, NodeList *el);
/*
* export.c
*/
void autoexport(Node *n, int ctxt);
void dumpexport(void);
int exportname(char *s);
void exportsym(Node *n);
void importconst(Sym *s, Type *t, Node *n);
void importmethod(Sym *s, Type *t);
Sym* importsym(Sym *s, int op);
void importtype(Type *pt, Type *t);
void importvar(Sym *s, Type *t, int ctxt);
Type* pkgtype(Sym *s);
/* /*
* gen.c * gen.c
*/ */
typedef struct Prog Prog; void allocparams(void);
void cgen_as(Node *nl, Node *nr);
void cgen_callmeth(Node *n, int proc);
void checklabels(void);
int dotoffset(Node *n, int *oary, Node **nn);
void gen(Node *n);
void genlist(NodeList *l);
Node* sysfunc(char *name);
void tempname(Node *n, Type *t);
/*
* init.c
*/
void fninit(NodeList *n);
Node* renameinit(Node *n);
/*
* lex.c
*/
void cannedimports(char *file, char *cp);
void importfile(Val *f, int line);
char* lexname(int lex);
void mkpackage(char* pkgname);
void unimportfile(void);
int32 yylex(void);
/*
* mparith1.c
*/
int Bconv(Fmt *fp);
int Fconv(Fmt *fp);
void mpaddcfix(Mpint *a, vlong c);
void mpaddcflt(Mpflt *a, double c);
void mpatofix(Mpint *a, char *as);
void mpatoflt(Mpflt *a, char *as);
int mpcmpfixc(Mpint *b, vlong c);
int mpcmpfixfix(Mpint *a, Mpint *b);
int mpcmpfixflt(Mpint *a, Mpflt *b);
int mpcmpfltc(Mpflt *b, double c);
int mpcmpfltfix(Mpflt *a, Mpint *b);
int mpcmpfltflt(Mpflt *a, Mpflt *b);
void mpcomfix(Mpint *a);
void mpdivfixfix(Mpint *a, Mpint *b);
void mpmodfixfix(Mpint *a, Mpint *b);
void mpmovefixfix(Mpint *a, Mpint *b);
void mpmovefixflt(Mpflt *a, Mpint *b);
int mpmovefltfix(Mpint *a, Mpflt *b);
void mpmovefltflt(Mpflt *a, Mpflt *b);
void mpmulcfix(Mpint *a, vlong c);
void mpmulcflt(Mpflt *a, double c);
void mpsubfixfix(Mpint *a, Mpint *b);
void mpsubfltflt(Mpflt *a, Mpflt *b);
/*
* mparith2.c
*/
void mpaddfixfix(Mpint *a, Mpint *b);
void mpandfixfix(Mpint *a, Mpint *b);
void mpandnotfixfix(Mpint *a, Mpint *b);
void mpdivfract(Mpint *a, Mpint *b);
void mpdivmodfixfix(Mpint *q, Mpint *r, Mpint *n, Mpint *d);
vlong mpgetfix(Mpint *a);
void mplshfixfix(Mpint *a, Mpint *b);
void mpmovecfix(Mpint *a, vlong c);
void mpmulfixfix(Mpint *a, Mpint *b);
void mpmulfract(Mpint *a, Mpint *b);
void mpnegfix(Mpint *a);
void mporfixfix(Mpint *a, Mpint *b);
void mprshfixfix(Mpint *a, Mpint *b);
void mpshiftfix(Mpint *a, int s);
int mptestfix(Mpint *a);
void mpxorfixfix(Mpint *a, Mpint *b);
/*
* mparith3.c
*/
void mpaddfltflt(Mpflt *a, Mpflt *b);
void mpdivfltflt(Mpflt *a, Mpflt *b);
double mpgetflt(Mpflt *a);
void mpmovecflt(Mpflt *a, double c);
void mpmulfltflt(Mpflt *a, Mpflt *b);
void mpnegflt(Mpflt *a);
void mpnorm(Mpflt *a);
int mptestflt(Mpflt *a);
int sigfig(Mpflt *a);
/*
* obj.c
*/
void Bputname(Biobuf *b, Sym *s);
int duint16(Sym *s, int off, uint16 v);
int duint32(Sym *s, int off, uint32 v);
int duint64(Sym *s, int off, uint64 v);
int duint8(Sym *s, int off, uint8 v);
int duintptr(Sym *s, int off, uint64 v);
void dumpobj(void);
void ieeedtod(uint64 *ieee, double native);
/*
* print.c
*/
void exprfmt(Fmt *f, Node *n, int prec);
void exprlistfmt(Fmt *f, NodeList *l);
/*
* range.c
*/
void typecheckrange(Node *n);
void walkrange(Node *n);
/*
* reflect.c
*/
void dumptypestructs(void);
Type* methodfunc(Type *f, int use_receiver);
Node* typename(Type *t);
Sym* typesym(Type *t);
/*
* select.c
*/
void typecheckselect(Node *sel);
void walkselect(Node *sel);
/*
* sinit.c
*/
void anylit(Node *n, Node *var, NodeList **init);
int gen_as_init(Node *n);
NodeList* initfix(NodeList *l);
int oaslit(Node *n, NodeList **init);
int stataddr(Node *nam, Node *n);
/*
* subr.c
*/
int Econv(Fmt *fp);
int Jconv(Fmt *fp);
int Lconv(Fmt *fp);
int Nconv(Fmt *fp);
int Oconv(Fmt *fp);
int Sconv(Fmt *fp);
int Tconv(Fmt *fp);
int Tpretty(Fmt *fp, Type *t);
int Zconv(Fmt *fp);
Node* adddot(Node *n);
int adddot1(Sym *s, Type *t, int d, Type **save);
Type* aindex(Node *b, Type *t);
int algtype(Type *t);
void argtype(Node *on, Type *t);
Node* assignconv(Node *n, Type *t, char *context);
int assignop(Type *src, Type *dst, char **why);
void badtype(int o, Type *tl, Type *tr);
int brcom(int a);
int brrev(int a);
NodeList* concat(NodeList *a, NodeList *b);
int convertop(Type *src, Type *dst, char **why);
int count(NodeList *l);
int cplxsubtype(int et);
void dump(char *s, Node *n);
void dumplist(char *s, NodeList *l);
int eqtype(Type *t1, Type *t2);
int eqtypenoname(Type *t1, Type *t2);
void errorexit(void);
void expandmeth(Sym *s, Type *t);
void fatal(char *fmt, ...);
void flusherrors(void);
void frame(int context);
Type* funcfirst(Iter *s, Type *t);
Type* funcnext(Iter *s);
void genwrapper(Type *rcvr, Type *method, Sym *newnam);
Type** getinarg(Type *t);
Type* getinargx(Type *t);
Type** getoutarg(Type *t);
Type* getoutargx(Type *t);
Type** getthis(Type *t);
Type* getthisx(Type *t);
int implements(Type *t, Type *iface, Type **m, Type **samename);
void importdot(Pkg *opkg, Node *pack);
int is64(Type *t);
int isblank(Node *n);
int isfixedarray(Type *t);
int isideal(Type *t);
int isinter(Type *t);
int isnil(Node *n);
int isnilinter(Type *t);
int isptrto(Type *t, int et);
int isselect(Node *n);
int isslice(Type *t);
int istype(Type *t, int et);
void linehist(char *file, int32 off, int relative);
NodeList* list(NodeList *l, Node *n);
NodeList* list1(Node *n);
Node* liststmt(NodeList *l);
NodeList* listtreecopy(NodeList *l);
Sym* lookup(char *name);
void* mal(int32 n);
Type* maptype(Type *key, Type *val);
Type* methtype(Type *t);
Pkg* mkpkg(Strlit *path);
Sym* ngotype(Node *n);
int noconv(Type *t1, Type *t2);
Node* nod(int op, Node *nleft, Node *nright);
Node* nodbool(int b);
void nodconst(Node *n, Type *t, int64 v);
Node* nodintconst(int64 v);
Node* nodnil(void);
int parserline(void);
Sym* pkglookup(char *name, Pkg *pkg);
int powtwo(Node *n);
Type* ptrto(Type *t);
void* remal(void *p, int32 on, int32 n);
Sym* restrictlookup(char *name, Pkg *pkg);
Node* safeexpr(Node *n, NodeList **init);
int32 setlineno(Node *n);
void setmaxarg(Type *t);
Type* shallow(Type *t);
int simsimtype(Type *t);
void smagic(Magic *m);
Type* sortinter(Type *t);
Node* staticname(Type *t);
uint32 stringhash(char *p);
Strlit* strlit(char *s);
int structcount(Type *t);
Type* structfirst(Iter *s, Type **nn);
Type* structnext(Iter *s);
Node* syslook(char *name, int copy);
Type* tounsigned(Type *t);
Node* treecopy(Node *n);
Type* typ(int et);
uint32 typehash(Type *t);
void ullmancalc(Node *n);
void umagic(Magic *m);
void warn(char *fmt, ...);
void yyerror(char *fmt, ...);
void yyerrorl(int line, char *fmt, ...);
/*
* swt.c
*/
void typecheckswitch(Node *n);
void walkswitch(Node *sw);
/*
* typecheck.c
*/
int exportassignok(Type *t, char *desc);
int islvalue(Node *n);
Node* typecheck(Node **np, int top);
void typechecklist(NodeList *l, int top);
/*
* unsafe.c
*/
Node* unsafenmagic(Node *fn, NodeList *args);
/*
* walk.c
*/
Node* callnew(Type *t);
Node* chanfn(char *name, int n, Type *t);
Node* mkcall(char *name, Type *t, NodeList **init, ...);
Node* mkcall1(Node *fn, Type *t, NodeList **init, ...);
void queuemethod(Node *n);
int vmatch1(Node *l, Node *r);
void walk(Node *fn);
Node* walkdef(Node *n);
void walkexpr(Node **np, NodeList **init);
void walkexprlist(NodeList *l, NodeList **init);
void walkexprlistsafe(NodeList *l, NodeList **init);
void walkstmt(Node **np);
void walkstmtlist(NodeList *l);
/*
* arch-specific ggen.c/gsubr.c/gobj.c
*/
#define P ((Prog*)0) #define P ((Prog*)0)
typedef struct Label Label;
struct Label
{
uchar op; // OGOTO/OLABEL
Sym* sym;
Node* stmt;
Prog* label; // pointer to code
Prog* breakpc; // pointer to code
Prog* continpc; // pointer to code
Label* link;
};
#define L ((Label*)0)
EXTERN Label* labellist;
typedef struct Plist Plist; typedef struct Plist Plist;
struct Plist struct Plist
{ {
@ -1167,74 +1186,36 @@ EXTERN Prog* firstpc;
EXTERN Node* nodfp; EXTERN Node* nodfp;
void allocparams(void); int anyregalloc(void);
void cgen_as(Node *nl, Node *nr);
void cgen_callmeth(Node *n, int proc);
void cgen_dcl(Node *n);
void cgen_proc(Node *n, int proc);
void checklabels(void);
void gen(Node *n);
void genlist(NodeList *l);
void newlab(int op, Sym *s, Node*);
Node* sysfunc(char *name);
Plist* newplist(void);
/*
* obj.c
*/
void Bputname(Biobuf*, Sym*);
void dumpglobls(void);
void dumpobj(void);
void ieeedtod(uint64 *ieee, double native);
void outhist(Biobuf *b);
/*
* arch-specific gen.c/gsubr.c/obj.c
*/
void betypeinit(void); void betypeinit(void);
vlong convvtox(vlong, int);
void compile(Node*);
void proglist(void);
int optopop(int);
void dumpobj(void);
void dowidth(Type*);
void argspace(int32);
Node* nodarg(Type*, int);
Type* deep(Type*);
Type* shallow(Type*);
Prog* gjmp(Prog*);
void patch(Prog*, Prog*);
void bgen(Node *n, int true, Prog *to); void bgen(Node *n, int true, Prog *to);
void cgen(Node*, Node*);
void cgen_asop(Node *n); void cgen_asop(Node *n);
void cgen_call(Node *n, int proc); void cgen_call(Node *n, int proc);
void cgen_callinter(Node *n, Node *res, int proc); void cgen_callinter(Node *n, Node *res, int proc);
void cgen_ret(Node *n); void cgen_ret(Node *n);
int isfat(Type*);
void clearfat(Node *n); void clearfat(Node *n);
void cgen(Node*, Node*); void compile(Node*);
void gused(Node*); int dgostringptr(Sym*, int off, char *str);
void gdata(Node*, Node*, int); int dgostrlitptr(Sym*, int off, Strlit*);
void gdatastring(Node*, Strlit*); int dstringptr(Sym *s, int off, char *str);
void gdatacomplex(Node*, Mpcplx*); int dsymptr(Sym *s, int off, Sym *x, int xoff);
void dumptypestructs(void); int duintxx(Sym *s, int off, uint64 v, int wid);
void dumpfuncs(void);
void dumpdata(void); void dumpdata(void);
void dumpfuncs(void);
void gdata(Node*, Node*, int);
void gdatacomplex(Node*, Mpcplx*);
void gdatastring(Node*, Strlit*);
void genembedtramp(Type*, Type*, Sym*);
void ggloblnod(Node *nam, int32 width); void ggloblnod(Node *nam, int32 width);
void ggloblsym(Sym *s, int32 width, int dupok); void ggloblsym(Sym *s, int32 width, int dupok);
Prog* gjmp(Prog*);
void gused(Node*);
int isfat(Type*);
Plist* newplist(void);
Node* nodarg(Type*, int);
void nopout(Prog*);
void patch(Prog*, Prog*);
void zfile(Biobuf *b, char *p, int n); void zfile(Biobuf *b, char *p, int n);
void zhist(Biobuf *b, int line, vlong offset); void zhist(Biobuf *b, int line, vlong offset);
void zname(Biobuf *b, Sym *s, int t); void zname(Biobuf *b, Sym *s, int t);
void nopout(Prog*);
int dstringptr(Sym *s, int off, char *str);
int dgostringptr(Sym*, int off, char *str);
int dgostrlitptr(Sym*, int off, Strlit*);
int dsymptr(Sym *s, int off, Sym *x, int xoff);
int duint8(Sym *s, int off, uint8 v);
int duint16(Sym *s, int off, uint16 v);
int duint32(Sym *s, int off, uint32 v);
int duint64(Sym *s, int off, uint64 v);
int duintptr(Sym *s, int off, uint64 v);
int duintxx(Sym *s, int off, uint64 v, int wid);
void genembedtramp(Type*, Type*, Sym*);
int gen_as_init(Node*);
int anyregalloc(void);

13
src/cmd/gc/go.y
View File

@ -923,7 +923,8 @@ labelname:
dotdotdot: dotdotdot:
LDDD LDDD
{ {
$$ = nod(ODDD, N, N); yyerror("final argument in variadic function missing type");
$$ = nod(ODDD, typenod(typ(TINTER)), N);
} }
| LDDD ntype | LDDD ntype
{ {
@ -1709,9 +1710,17 @@ hidden_dcl:
} }
| hidden_opt_sym LDDD | hidden_opt_sym LDDD
{ {
$$ = nod(ODCLFIELD, $1, typenod(typ(TINTER))); Type *t;
yyerror("invalid variadic function type in import - recompile import");
t = typ(TARRAY);
t->bound = -1;
t->type = typ(TINTER);
$$ = nod(ODCLFIELD, $1, typenod(t));
$$->isddd = 1; $$->isddd = 1;
} }
| hidden_opt_sym LDDD hidden_type | hidden_opt_sym LDDD hidden_type
{ {
Type *t; Type *t;

2
src/cmd/gc/init.c
View File

@ -46,7 +46,7 @@ renameinit(Node *n)
* return (11) * return (11)
* } * }
*/ */
int static int
anyinit(NodeList *n) anyinit(NodeList *n)
{ {
uint32 h; uint32 h;

42
src/cmd/gc/lex.c
View File

@ -7,11 +7,22 @@
#include "y.tab.h" #include "y.tab.h"
#include <ar.h> #include <ar.h>
#undef getc
#undef ungetc
#define getc ccgetc
#define ungetc ccungetc
extern int yychar; extern int yychar;
int windows; int windows;
void lexfini(void); static void lexinit(void);
void yytinit(void); static void lexfini(void);
static void yytinit(void);
static int getc(void);
static void ungetc(int);
static int32 getr(void);
static int escchar(int, int*, vlong*);
static void addidir(char*);
static char *goos, *goarch, *goroot; static char *goos, *goarch, *goroot;
@ -215,7 +226,7 @@ main(int argc, char *argv[])
return 0; return 0;
} }
int static int
arsize(Biobuf *b, char *name) arsize(Biobuf *b, char *name)
{ {
struct ar_hdr *a; struct ar_hdr *a;
@ -229,7 +240,7 @@ arsize(Biobuf *b, char *name)
return atoi(a->size); return atoi(a->size);
} }
int static int
skiptopkgdef(Biobuf *b) skiptopkgdef(Biobuf *b)
{ {
char *p; char *p;
@ -254,7 +265,7 @@ skiptopkgdef(Biobuf *b)
return 1; return 1;
} }
void static void
addidir(char* dir) addidir(char* dir)
{ {
Idir** pp; Idir** pp;
@ -270,7 +281,7 @@ addidir(char* dir)
} }
// is this path a local name? begins with ./ or ../ or / // is this path a local name? begins with ./ or ../ or /
int static int
islocalname(Strlit *name) islocalname(Strlit *name)
{ {
if(!windows && name->len >= 1 && name->s[0] == '/') if(!windows && name->len >= 1 && name->s[0] == '/')
@ -285,7 +296,7 @@ islocalname(Strlit *name)
return 0; return 0;
} }
int static int
findpkg(Strlit *name) findpkg(Strlit *name)
{ {
Idir *p; Idir *p;
@ -448,7 +459,7 @@ cannedimports(char *file, char *cp)
incannedimport = 1; incannedimport = 1;
} }
int static int
isfrog(int c) isfrog(int c)
{ {
// complain about possibly invisible control characters // complain about possibly invisible control characters
@ -1132,7 +1143,7 @@ yylex(void)
return lx; return lx;
} }
int static int
getc(void) getc(void)
{ {
int c; int c;
@ -1170,7 +1181,7 @@ getc(void)
return c; return c;
} }
void static void
ungetc(int c) ungetc(int c)
{ {
curio.peekc1 = curio.peekc; curio.peekc1 = curio.peekc;
@ -1179,7 +1190,7 @@ ungetc(int c)
lexlineno--; lexlineno--;
} }
int32 static int32
getr(void) getr(void)
{ {
int c, i; int c, i;
@ -1210,8 +1221,7 @@ loop:
return rune; return rune;
} }
static int
int
escchar(int e, int *escflg, vlong *val) escchar(int e, int *escflg, vlong *val)
{ {
int i, u, c; int i, u, c;
@ -1407,7 +1417,7 @@ static struct
"insofaras", LIGNORE, Txxx, OXXX, "insofaras", LIGNORE, Txxx, OXXX,
}; };
void static void
lexinit(void) lexinit(void)
{ {
int i, lex; int i, lex;
@ -1471,7 +1481,7 @@ lexinit(void)
nblank = s->def; nblank = s->def;
} }
void static void
lexfini(void) lexfini(void)
{ {
Sym *s; Sym *s;
@ -1657,7 +1667,7 @@ struct
"','", "comma", "','", "comma",
}; };
void static void
yytinit(void) yytinit(void)
{ {
int i, j; int i, j;

2
src/cmd/gc/mparith2.c
View File

@ -618,7 +618,7 @@ mpdivmodfixfix(Mpint *q, Mpint *r, Mpint *n, Mpint *d)
q->neg = ns^ds; q->neg = ns^ds;
} }
int static int
iszero(Mpint *a) iszero(Mpint *a)
{ {
long *a1; long *a1;

10
src/cmd/gc/obj.c
View File

@ -8,6 +8,9 @@
* architecture-independent object file output * architecture-independent object file output
*/ */
static void outhist(Biobuf *b);
static void dumpglobls(void);
void void
dumpobj(void) dumpobj(void)
{ {
@ -38,7 +41,7 @@ dumpobj(void)
Bterm(bout); Bterm(bout);
} }
void static void
dumpglobls(void) dumpglobls(void)
{ {
Node *n; Node *n;
@ -58,8 +61,7 @@ dumpglobls(void)
continue; continue;
dowidth(n->type); dowidth(n->type);
// TODO(rsc): why is this not s/n->sym->def/n/ ? ggloblnod(n, n->type->width);
ggloblnod(n->sym->def, n->type->width);
} }
} }
@ -71,7 +73,7 @@ Bputname(Biobuf *b, Sym *s)
Bwrite(b, s->name, strlen(s->name)+1); Bwrite(b, s->name, strlen(s->name)+1);
} }
void static void
outhist(Biobuf *b) outhist(Biobuf *b)
{ {
Hist *h; Hist *h;

2
src/cmd/gc/reflect.c
View File

@ -235,7 +235,7 @@ methods(Type *t)
/* /*
* return methods of interface type t, sorted by name. * return methods of interface type t, sorted by name.
*/ */
Sig* static Sig*
imethods(Type *t) imethods(Type *t)
{ {
Sig *a, *all, *last; Sig *a, *all, *last;

2
src/cmd/gc/sinit.c
View File

@ -718,7 +718,7 @@ initctxt:
return 1; return 1;
} }
int static int
getlit(Node *lit) getlit(Node *lit)
{ {
if(smallintconst(lit)) if(smallintconst(lit))

113
src/cmd/gc/subr.c
View File

@ -8,6 +8,8 @@
#include "opnames.h" #include "opnames.h"
#include "yerr.h" #include "yerr.h"
static void dodump(Node*, int);
typedef struct Error Error; typedef struct Error Error;
struct Error struct Error
{ {
@ -509,12 +511,6 @@ maptype(Type *key, Type *val)
return t; return t;
} }
int
iskeytype(Type *t)
{
return algtype(t) != ANOEQ;
}
Type* Type*
typ(int et) typ(int et)
{ {
@ -657,7 +653,7 @@ aindex(Node *b, Type *t)
return r; return r;
} }
void static void
indent(int dep) indent(int dep)
{ {
int i; int i;
@ -666,14 +662,14 @@ indent(int dep)
print(". "); print(". ");
} }
void static void
dodumplist(NodeList *l, int dep) dodumplist(NodeList *l, int dep)
{ {
for(; l; l=l->next) for(; l; l=l->next)
dodump(l->n, dep); dodump(l->n, dep);
} }
void static void
dodump(Node *n, int dep) dodump(Node *n, int dep)
{ {
if(n == N) if(n == N)
@ -1035,34 +1031,6 @@ Jconv(Fmt *fp)
return 0; return 0;
} }
int
Gconv(Fmt *fp)
{
char buf[100];
Type *t;
t = va_arg(fp->args, Type*);
if(t->etype == TFUNC) {
if(t->vargen != 0) {
snprint(buf, sizeof(buf), "-%d%d%d g(%ld)",
t->thistuple, t->outtuple, t->intuple, t->vargen);
goto out;
}
snprint(buf, sizeof(buf), "-%d%d%d",
t->thistuple, t->outtuple, t->intuple);
goto out;
}
if(t->vargen != 0) {
snprint(buf, sizeof(buf), " g(%ld)", t->vargen);
goto out;
}
strcpy(buf, "");
out:
return fmtstrcpy(fp, buf);
}
int int
Sconv(Fmt *fp) Sconv(Fmt *fp)
{ {
@ -1203,13 +1171,9 @@ Tpretty(Fmt *fp, Type *t)
fmtprint(fp, "("); fmtprint(fp, "(");
for(t1=getinargx(t)->type; t1; t1=t1->down) { for(t1=getinargx(t)->type; t1; t1=t1->down) {
if(noargnames && t1->etype == TFIELD) { if(noargnames && t1->etype == TFIELD) {
if(t1->isddd) { if(t1->isddd)
// TODO(rsc): Delete with DDD cleanup.
if(t1->type->etype == TINTER)
fmtprint(fp, "...");
else
fmtprint(fp, "...%T", t1->type->type); fmtprint(fp, "...%T", t1->type->type);
} else else
fmtprint(fp, "%T", t1->type); fmtprint(fp, "%T", t1->type);
} else } else
fmtprint(fp, "%T", t1); fmtprint(fp, "%T", t1);
@ -1287,13 +1251,9 @@ Tpretty(Fmt *fp, Type *t)
fmtprint(fp, "? "); fmtprint(fp, "? ");
} else } else
fmtprint(fp, "%hS ", t->sym); fmtprint(fp, "%hS ", t->sym);
if(t->isddd) { if(t->isddd)
// TODO(rsc): delete with DDD cleanup.
if(t->type->etype == TINTER)
fmtprint(fp, "...");
else
fmtprint(fp, "...%T", t->type->type); fmtprint(fp, "...%T", t->type->type);
} else else
fmtprint(fp, "%T", t->type); fmtprint(fp, "%T", t->type);
if(t->note) { if(t->note) {
fmtprint(fp, " "); fmtprint(fp, " ");
@ -1764,20 +1724,6 @@ cplxsubtype(int et)
return 0; return 0;
} }
int
iscomposite(Type *t)
{
if(t == T)
return 0;
switch(t->etype) {
case TARRAY:
case TSTRUCT:
case TMAP:
return 1;
}
return 0;
}
// Return 1 if t1 and t2 are identical, following the spec rules. // Return 1 if t1 and t2 are identical, following the spec rules.
// //
// Any cyclic type must go through a named type, and if one is // Any cyclic type must go through a named type, and if one is
@ -2209,7 +2155,7 @@ shallow(Type *t)
return nt; return nt;
} }
Type* static Type*
deep(Type *t) deep(Type *t)
{ {
Type *nt, *xt; Type *nt, *xt;
@ -2283,39 +2229,6 @@ syslook(char *name, int copy)
return n; return n;
} }
/*
* are the arg names of two
* functions the same. we know
* that eqtype has been called
* and has returned true.
*/
int
eqargs(Type *t1, Type *t2)
{
if(t1 == t2)
return 1;
if(t1 == T || t2 == T)
return 0;
if(t1->etype != t2->etype)
return 0;
if(t1->etype != TFUNC)
fatal("eqargs: oops %E", t1->etype);
t1 = t1->type;
t2 = t2->type;
for(;;) {
if(t1 == t2)
break;
if(!eqtype(t1, t2))
return 0;
t1 = t1->down;
t2 = t2->down;
}
return 1;
}
/* /*
* compute a hash value for type t. * compute a hash value for type t.
* if t is a method type, ignore the receiver * if t is a method type, ignore the receiver
@ -2750,7 +2663,7 @@ setmaxarg(Type *t)
// search depth 0 -- // search depth 0 --
// return count of fields+methods // return count of fields+methods
// found with a given name // found with a given name
int static int
lookdot0(Sym *s, Type *t, Type **save) lookdot0(Sym *s, Type *t, Type **save)
{ {
Type *f, *u; Type *f, *u;
@ -3019,7 +2932,7 @@ expandmeth(Sym *s, Type *t)
/* /*
* Given funarg struct list, return list of ODCLFIELD Node fn args. * Given funarg struct list, return list of ODCLFIELD Node fn args.
*/ */
NodeList* static NodeList*
structargs(Type **tl, int mustname) structargs(Type **tl, int mustname)
{ {
Iter savet; Iter savet;
@ -3121,7 +3034,7 @@ genwrapper(Type *rcvr, Type *method, Sym *newnam)
funccompile(fn, 0); funccompile(fn, 0);
} }
Type* static Type*
ifacelookdot(Sym *s, Type *t, int *followptr) ifacelookdot(Sym *s, Type *t, int *followptr)
{ {
int i, c, d; int i, c, d;

24
src/cmd/gc/swt.c
View File

@ -33,14 +33,6 @@ struct Case
}; };
#define C ((Case*)nil) #define C ((Case*)nil)
Type*
notideal(Type *t)
{
if(t != T && t->etype == TIDEAL)
return T;
return t;
}
void void
dumpcase(Case *c0) dumpcase(Case *c0)
{ {
@ -240,7 +232,7 @@ csort(Case *l, int(*f)(Case*, Case*))
return l; return l;
} }
Node* static Node*
newlabel(void) newlabel(void)
{ {
static int label; static int label;
@ -255,7 +247,7 @@ newlabel(void)
* make labels between cases and statements * make labels between cases and statements
* deal with fallthrough, break, unreachable statements * deal with fallthrough, break, unreachable statements
*/ */
void static void
casebody(Node *sw, Node *typeswvar) casebody(Node *sw, Node *typeswvar)
{ {
Node *os, *oc, *n, *c, *last; Node *os, *oc, *n, *c, *last;
@ -339,7 +331,7 @@ casebody(Node *sw, Node *typeswvar)
lineno = lno; lineno = lno;
} }
Case* static Case*
mkcaselist(Node *sw, int arg) mkcaselist(Node *sw, int arg)
{ {
Node *n; Node *n;
@ -434,7 +426,7 @@ mkcaselist(Node *sw, int arg)
static Node* exprname; static Node* exprname;
Node* static Node*
exprbsw(Case *c0, int ncase, int arg) exprbsw(Case *c0, int ncase, int arg)
{ {
NodeList *cas; NodeList *cas;
@ -494,7 +486,7 @@ exprbsw(Case *c0, int ncase, int arg)
* normal (expression) switch. * normal (expression) switch.
* rebulid case statements into if .. goto * rebulid case statements into if .. goto
*/ */
void static void
exprswitch(Node *sw) exprswitch(Node *sw)
{ {
Node *def; Node *def;
@ -580,7 +572,7 @@ static Node* hashname;
static Node* facename; static Node* facename;
static Node* boolname; static Node* boolname;
Node* static Node*
typeone(Node *t) typeone(Node *t)
{ {
NodeList *init; NodeList *init;
@ -609,7 +601,7 @@ typeone(Node *t)
return a; return a;
} }
Node* static Node*
typebsw(Case *c0, int ncase) typebsw(Case *c0, int ncase)
{ {
NodeList *cas; NodeList *cas;
@ -652,7 +644,7 @@ typebsw(Case *c0, int ncase)
* switch v := i.(type) { case t1: ..; case t2: ..; } * switch v := i.(type) { case t1: ..; case t2: ..; }
* into if statements * into if statements
*/ */
void static void
typeswitch(Node *sw) typeswitch(Node *sw)
{ {
Node *def; Node *def;

8
src/cmd/gc/typecheck.c
View File

@ -9,9 +9,6 @@
* marks variables that escape the local frame. * marks variables that escape the local frame.
* rewrites n->op to be more specific in some cases. * rewrites n->op to be more specific in some cases.
* sets n->walk to walking function. * sets n->walk to walking function.
*
* TODO:
* trailing ... section of function calls
*/ */
#include "go.h" #include "go.h"
@ -32,6 +29,7 @@ static void checklvalue(Node*, char*);
static void checkassign(Node*); static void checkassign(Node*);
static void checkassignlist(NodeList*); static void checkassignlist(NodeList*);
static void stringtoarraylit(Node**); static void stringtoarraylit(Node**);
static Node* resolve(Node*);
/* /*
* resolve ONONAME to definition, if any. * resolve ONONAME to definition, if any.
@ -1432,8 +1430,6 @@ typecheckaste(int op, Type *tstruct, NodeList *nl, char *desc)
tn = n->type->type; tn = n->type->type;
for(tl=tstruct->type; tl; tl=tl->down) { for(tl=tstruct->type; tl; tl=tl->down) {
if(tl->isddd) { if(tl->isddd) {
// TODO(rsc): delete if (but not body) in DDD cleanup.
if(tl->type->etype != TINTER)
for(; tn; tn=tn->down) for(; tn; tn=tn->down)
if(assignop(tn->type, tl->type->type, &why) == 0) if(assignop(tn->type, tl->type->type, &why) == 0)
yyerror("cannot use %T as type %T in %s%s", tn->type, tl->type->type, desc, why); yyerror("cannot use %T as type %T in %s%s", tn->type, tl->type->type, desc, why);
@ -1465,8 +1461,6 @@ typecheckaste(int op, Type *tstruct, NodeList *nl, char *desc)
for(; nl; nl=nl->next) { for(; nl; nl=nl->next) {
setlineno(nl->n); setlineno(nl->n);
defaultlit(&nl->n, t->type); defaultlit(&nl->n, t->type);
// TODO(rsc): drop first if in DDD cleanup
if(t->etype != TINTER)
if(assignop(nl->n->type, t->type, &why) == 0) if(assignop(nl->n->type, t->type, &why) == 0)
yyerror("cannot use %+N as type %T in %s%s", nl->n, t->type, desc, why); yyerror("cannot use %+N as type %T in %s%s", nl->n, t->type, desc, why);
} }

175
src/cmd/gc/walk.c
View File

@ -8,13 +8,22 @@ static Node* walkprint(Node*, NodeList**, int);
static Node* conv(Node*, Type*); static Node* conv(Node*, Type*);
static Node* mapfn(char*, Type*); static Node* mapfn(char*, Type*);
static Node* makenewvar(Type*, NodeList**, Node**); static Node* makenewvar(Type*, NodeList**, Node**);
static Node* ascompatee1(int, Node*, Node*, NodeList**);
static NodeList* ascompatee(int, NodeList*, NodeList*, NodeList**);
static NodeList* ascompatet(int, NodeList*, Type**, int, NodeList**);
static NodeList* ascompatte(int, Type**, NodeList*, int, NodeList**);
static Node* convas(Node*, NodeList**);
static void heapmoves(void);
static NodeList* paramstoheap(Type **argin, int out);
static NodeList* reorder1(NodeList*);
static NodeList* reorder3(NodeList*);
static NodeList* walkdefstack; static NodeList* walkdefstack;
// can this code branch reach the end // can this code branch reach the end
// without an undcontitional RETURN // without an undcontitional RETURN
// this is hard, so it is conservative // this is hard, so it is conservative
int static int
walkret(NodeList *l) walkret(NodeList *l)
{ {
Node *n; Node *n;
@ -87,16 +96,6 @@ walk(Node *fn)
} }
} }
void
gettype(Node **np, NodeList **init)
{
if(debug['W'])
dump("\nbefore gettype", *np);
typecheck(np, Erv);
if(debug['W'])
dump("after gettype", *np);
}
static int nwalkdeftype; static int nwalkdeftype;
static NodeList *methodqueue; static NodeList *methodqueue;
@ -1307,13 +1306,13 @@ makenewvar(Type *t, NodeList **init, Node **nstar)
return nvar; return nvar;
} }
Node* static Node*
ascompatee1(int op, Node *l, Node *r, NodeList **init) ascompatee1(int op, Node *l, Node *r, NodeList **init)
{ {
return convas(nod(OAS, l, r), init); return convas(nod(OAS, l, r), init);
} }
NodeList* static NodeList*
ascompatee(int op, NodeList *nl, NodeList *nr, NodeList **init) ascompatee(int op, NodeList *nl, NodeList *nr, NodeList **init)
{ {
NodeList *ll, *lr, *nn; NodeList *ll, *lr, *nn;
@ -1346,7 +1345,7 @@ ascompatee(int op, NodeList *nl, NodeList *nr, NodeList **init)
* evaluating the lv or a function call * evaluating the lv or a function call
* in the conversion of the types * in the conversion of the types
*/ */
int static int
fncall(Node *l, Type *rt) fncall(Node *l, Type *rt)
{ {
if(l->ullman >= UINF) if(l->ullman >= UINF)
@ -1356,7 +1355,7 @@ fncall(Node *l, Type *rt)
return 1; return 1;
} }
NodeList* static NodeList*
ascompatet(int op, NodeList *nl, Type **nr, int fp, NodeList **init) ascompatet(int op, NodeList *nl, Type **nr, int fp, NodeList **init)
{ {
Node *l, *tmp, *a; Node *l, *tmp, *a;
@ -1414,113 +1413,10 @@ ascompatet(int op, NodeList *nl, Type **nr, int fp, NodeList **init)
return concat(nn, mm); return concat(nn, mm);
} }
/*
* make a tsig for the structure
* carrying the ... arguments
*/
Type*
sigtype(Type *st)
{
Sym *s;
Type *t;
static int sigdddgen;
dowidth(st);
sigdddgen++;
snprint(namebuf, sizeof(namebuf), "dsigddd_%d", sigdddgen);
s = lookup(namebuf);
t = newtype(s);
t = dodcltype(t);
updatetype(t, st);
t->local = 1;
return t;
}
/*
* package all the arguments that
* match a ... parameter into an
* automatic structure.
* then call the ... arg (interface)
* with a pointer to the structure.
*/
NodeList*
mkdotargs(NodeList *lr0, NodeList *nn, Type *l, int fp, NodeList **init)
{
Node *r;
Type *t, *st, *ft;
Node *a, *var;
NodeList *lr, *n;
n = nil; // list of assignments
st = typ(TSTRUCT); // generated structure
ft = T; // last field
for(lr=lr0; lr; lr=lr->next) {
r = lr->n;
if(r->op == OLITERAL && r->val.ctype == CTNIL) {
if(r->type == T || r->type->etype == TNIL) {
yyerror("inappropriate use of nil in ... argument");
return nil;
}
}
defaultlit(&r, T);
lr->n = r;
if(r->type == T) // type check failed
return nil;
// generate the next structure field
t = typ(TFIELD);
t->type = r->type;
if(ft == T)
st->type = t;
else
ft->down = t;
ft = t;
a = nod(OAS, N, r);
n = list(n, a);
}
// make a named type for the struct
st = sigtype(st);
dowidth(st);
// now we have the size, make the struct
var = nod(OXXX, N, N);
tempname(var, st);
var->sym = lookup(".ddd");
typecheck(&var, Erv);
// assign the fields to the struct.
// use the init list so that reorder1 doesn't reorder
// these assignments after the interface conversion
// below.
t = st->type;
for(lr=n; lr; lr=lr->next) {
r = lr->n;
r->left = nod(OXXX, N, N);
*r->left = *var;
r->left->type = r->right->type;
r->left->xoffset += t->width;
typecheck(&r, Etop);
walkexpr(&r, init);
lr->n = r;
t = t->down;
}
*init = concat(*init, n);
// last thing is to put assignment
// of the structure to the DDD parameter
a = nod(OAS, nodarg(l, fp), var);
nn = list(nn, convas(a, init));
return nn;
}
/* /*
* package all the arguments that match a ... T parameter into a []T. * package all the arguments that match a ... T parameter into a []T.
*/ */
NodeList* static NodeList*
mkdotargslice(NodeList *lr0, NodeList *nn, Type *l, int fp, NodeList **init) mkdotargslice(NodeList *lr0, NodeList *nn, Type *l, int fp, NodeList **init)
{ {
Node *a, *n; Node *a, *n;
@ -1594,7 +1490,7 @@ dumpnodetypes(NodeList *l, char *what)
* return expr-list * return expr-list
* func(expr-list) * func(expr-list)
*/ */
NodeList* static NodeList*
ascompatte(int op, Type **nl, NodeList *lr, int fp, NodeList **init) ascompatte(int op, Type **nl, NodeList *lr, int fp, NodeList **init)
{ {
Type *l, *ll; Type *l, *ll;
@ -1656,13 +1552,9 @@ loop:
goto ret; goto ret;
} }
// normal case -- make a structure of all // normal case -- make a slice of all
// remaining arguments and pass a pointer to // remaining arguments and pass it to
// it to the ddd parameter (empty interface) // the ddd parameter.
// TODO(rsc): delete in DDD cleanup.
if(l->type->etype == TINTER)
nn = mkdotargs(lr, nn, l, fp, init);
else
nn = mkdotargslice(lr, nn, l, fp, init); nn = mkdotargslice(lr, nn, l, fp, init);
goto ret; goto ret;
} }
@ -1882,26 +1774,7 @@ callnew(Type *t)
return mkcall1(fn, ptrto(t), nil, nodintconst(t->width)); return mkcall1(fn, ptrto(t), nil, nodintconst(t->width));
} }
Type* static Node*
fixchan(Type *t)
{
if(t == T)
goto bad;
if(t->etype != TCHAN)
goto bad;
if(t->type == T)
goto bad;
dowidth(t->type);
return t;
bad:
yyerror("not a channel: %lT", t);
return T;
}
Node*
convas(Node *n, NodeList **init) convas(Node *n, NodeList **init)
{ {
Node *l, *r; Node *l, *r;
@ -2014,7 +1887,7 @@ reorder1(NodeList *all)
* be later use of an earlier lvalue. * be later use of an earlier lvalue.
*/ */
int static int
vmatch2(Node *l, Node *r) vmatch2(Node *l, Node *r)
{ {
NodeList *ll; NodeList *ll;
@ -2113,7 +1986,7 @@ reorder3(NodeList *all)
* generate and return code to allocate * generate and return code to allocate
* copies of escaped parameters to the heap. * copies of escaped parameters to the heap.
*/ */
NodeList* static NodeList*
paramstoheap(Type **argin, int out) paramstoheap(Type **argin, int out)
{ {
Type *t; Type *t;
@ -2146,7 +2019,7 @@ paramstoheap(Type **argin, int out)
/* /*
* walk through argout parameters copying back to stack * walk through argout parameters copying back to stack
*/ */
NodeList* static NodeList*
returnsfromheap(Type **argin) returnsfromheap(Type **argin)
{ {
Type *t; Type *t;
@ -2169,7 +2042,7 @@ returnsfromheap(Type **argin)
* between the stack and the heap. adds code to * between the stack and the heap. adds code to
* curfn's before and after lists. * curfn's before and after lists.
*/ */
void static void
heapmoves(void) heapmoves(void)
{ {
NodeList *nn; NodeList *nn;