mirror of
https://github.com/golang/go
synced 2024-10-04 07:21:22 -06:00
99cc2fee81
and expected review latency I needed to combine the CLs. 1. Made the 5* toolpath build using the go build system. Hooked the subdirectories to clean.bash but added a separate make5.bash for now. Minor massage to make the code more similar to the current structure of 6c/6a/6l. 2. Change all references from long to int32 in line with similar change for the other toolchains. The end result is that 5c, 5a and 5l can now be compiled and the executables start up properly. Haven't thrown any input at them yet. R=rsc APPROVED=rsc DELTA=1052 (392 added, 328 deleted, 332 changed) OCL=26757 CL=26761
193 lines
4.2 KiB
C
193 lines
4.2 KiB
C
// Inferno utils/5a/a.h
|
|
// http://code.google.com/p/inferno-os/source/browse/utils/5a/a.h
|
|
//
|
|
// Copyright © 1994-1999 Lucent Technologies Inc. All rights reserved.
|
|
// Portions Copyright © 1995-1997 C H Forsyth (forsyth@terzarima.net)
|
|
// Portions Copyright © 1997-1999 Vita Nuova Limited
|
|
// Portions Copyright © 2000-2007 Vita Nuova Holdings Limited (www.vitanuova.com)
|
|
// Portions Copyright © 2004,2006 Bruce Ellis
|
|
// Portions Copyright © 2005-2007 C H Forsyth (forsyth@terzarima.net)
|
|
// Revisions Copyright © 2000-2007 Lucent Technologies Inc. and others
|
|
// Portions Copyright © 2009 The Go Authors. All rights reserved.
|
|
//
|
|
// Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
// of this software and associated documentation files (the "Software"), to deal
|
|
// in the Software without restriction, including without limitation the rights
|
|
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
// copies of the Software, and to permit persons to whom the Software is
|
|
// furnished to do so, subject to the following conditions:
|
|
//
|
|
// The above copyright notice and this permission notice shall be included in
|
|
// all copies or substantial portions of the Software.
|
|
//
|
|
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
// THE SOFTWARE.
|
|
|
|
#include <lib9.h>
|
|
#include <bio.h>
|
|
#include "../5l/5.out.h"
|
|
#include "compat.h"
|
|
|
|
#ifndef EXTERN
|
|
#define EXTERN extern
|
|
#endif
|
|
|
|
typedef struct Sym Sym;
|
|
typedef struct Gen Gen;
|
|
typedef struct Io Io;
|
|
typedef struct Hist Hist;
|
|
|
|
#define MAXALIGN 7
|
|
#define FPCHIP 1
|
|
#define NSYMB 8192
|
|
#define BUFSIZ 8192
|
|
#define HISTSZ 20
|
|
#define NINCLUDE 10
|
|
#define NHUNK 10000
|
|
#define EOF (-1)
|
|
#define IGN (-2)
|
|
#define GETC() ((--fi.c < 0)? filbuf(): *fi.p++ & 0xff)
|
|
#define NHASH 503
|
|
#define STRINGSZ 200
|
|
#define NMACRO 10
|
|
|
|
struct Sym
|
|
{
|
|
Sym* link;
|
|
char* macro;
|
|
int32 value;
|
|
ushort type;
|
|
char *name;
|
|
char sym;
|
|
};
|
|
#define S ((Sym*)0)
|
|
|
|
EXTERN struct
|
|
{
|
|
char* p;
|
|
int c;
|
|
} fi;
|
|
|
|
struct Io
|
|
{
|
|
Io* link;
|
|
char b[BUFSIZ];
|
|
char* p;
|
|
short c;
|
|
short f;
|
|
};
|
|
#define I ((Io*)0)
|
|
|
|
EXTERN struct
|
|
{
|
|
Sym* sym;
|
|
short type;
|
|
} h[NSYM];
|
|
|
|
struct Gen
|
|
{
|
|
Sym* sym;
|
|
int32 offset;
|
|
short type;
|
|
short reg;
|
|
short name;
|
|
double dval;
|
|
char sval[8];
|
|
};
|
|
|
|
struct Hist
|
|
{
|
|
Hist* link;
|
|
char* name;
|
|
int32 line;
|
|
int32 offset;
|
|
};
|
|
#define H ((Hist*)0)
|
|
|
|
enum
|
|
{
|
|
CLAST,
|
|
CMACARG,
|
|
CMACRO,
|
|
CPREPROC,
|
|
|
|
Always = 14,
|
|
};
|
|
|
|
EXTERN char debug[256];
|
|
EXTERN Sym* hash[NHASH];
|
|
EXTERN char* Dlist[30];
|
|
EXTERN int nDlist;
|
|
EXTERN Hist* ehist;
|
|
EXTERN int newflag;
|
|
EXTERN Hist* hist;
|
|
EXTERN char* hunk;
|
|
EXTERN char* include[NINCLUDE];
|
|
EXTERN Io* iofree;
|
|
EXTERN Io* ionext;
|
|
EXTERN Io* iostack;
|
|
EXTERN int32 lineno;
|
|
EXTERN int nerrors;
|
|
EXTERN int32 nhunk;
|
|
EXTERN int ninclude;
|
|
EXTERN Gen nullgen;
|
|
EXTERN char* outfile;
|
|
EXTERN int pass;
|
|
EXTERN char* pathname;
|
|
EXTERN int32 pc;
|
|
EXTERN int peekc;
|
|
EXTERN int sym;
|
|
EXTERN char symb[NSYMB];
|
|
EXTERN int thechar;
|
|
EXTERN char* thestring;
|
|
EXTERN int32 thunk;
|
|
EXTERN Biobuf obuf;
|
|
|
|
void* alloc(int32);
|
|
void* allocn(void*, int32, int32);
|
|
void errorexit(void);
|
|
void pushio(void);
|
|
void newio(void);
|
|
void newfile(char*, int);
|
|
Sym* slookup(char*);
|
|
Sym* lookup(void);
|
|
void syminit(Sym*);
|
|
int32 yylex(void);
|
|
int getc(void);
|
|
int getnsc(void);
|
|
void unget(int);
|
|
int escchar(int);
|
|
void cinit(void);
|
|
void pinit(char*);
|
|
void cclean(void);
|
|
int isreg(Gen*);
|
|
void outcode(int, int, Gen*, int, Gen*);
|
|
void zname(char*, int, int);
|
|
void zaddr(Gen*, int);
|
|
void ieeedtod(Ieee*, double);
|
|
int filbuf(void);
|
|
Sym* getsym(void);
|
|
void domacro(void);
|
|
void macund(void);
|
|
void macdef(void);
|
|
void macexpand(Sym*, char*);
|
|
void macinc(void);
|
|
void maclin(void);
|
|
void macprag(void);
|
|
void macif(int);
|
|
void macend(void);
|
|
void outhist(void);
|
|
void dodefine(char*);
|
|
void prfile(int32);
|
|
void linehist(char*, int);
|
|
void gethunk(void);
|
|
void yyerror(char*, ...);
|
|
int yyparse(void);
|
|
void setinclude(char*);
|
|
int assemble(char*);
|