Subversion Repositories thor

#ifndef _CGBLDEC_H
#define _CGBLDEC_H
 
// ============================================================================
//        __
//   \\__/ o\    (C) 2012-2018  Robert Finch, Waterloo
//    \  __ /    All rights reserved.
//     \/_//     robfinch<remove>@finitron.ca
//       ||
//
// CC64 - 'C' derived language compiler
//  - 64 bit CPU
//
// This source file is free software: you can redistribute it and/or modify 
// it under the terms of the GNU Lesser General Public License as published 
// by the Free Software Foundation, either version 3 of the License, or     
// (at your option) any later version.                                      
//                                                                          
// This source file is distributed in the hope that it will be useful,      
// but WITHOUT ANY WARRANTY; without even the implied warranty of           
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            
// GNU General Public License for more details.                             
//                                                                          
// You should have received a copy of the GNU General Public License        
// along with this program.  If not, see <http://www.gnu.org/licenses/>.    
//                                                                          
// ============================================================================
//
/*      global ParseSpecifierarations     */
#define THOR		0
#define TABLE888	888
#define RAPTOR64	64
#define W65C816     816
#define FISA64      164
#define DSD7        7
#define isThor		(gCpu==THOR)
#define isTable888	(gCpu==TABLE888)
#define isRaptor64	(gCpu==RAPTOR64)
#define is816       (gCpu==W65C816)
#define isFISA64    (gCpu==FISA64)
#define isDSD7      (gCpu==DSD7)
//#define DOTRACE	1
#ifdef DOTRACE
#define TRACE(x)	x
#else
#define TRACE(x)
#endif
 
extern CPU cpu;
extern int pass;
extern int maxPn;
extern int hook_predreg;
extern int gCpu;
extern int regGP;
extern int regTP;
extern int regSP;
extern int regFP;
extern int regLR;
extern int regXLR;
extern int regPC;
extern int regCLP;
extern int regPP;
extern int regZero;
extern int regFirstTemp;
extern int regLastTemp;
extern int regFirstRegvar;
extern int regLastRegvar;
extern int regFirstArg;
extern int regLastArg;
extern int pregGP;
extern int pregTP;
extern int pregSP;
extern int pregFP;
extern int pregLR;
extern int pregXLR;
extern int pregPC;
extern int pregCLP;
extern int pregPP;
extern int pregZero;
extern int pregFirstTemp;
extern int pregLastTemp;
extern int pregFirstRegvar;
extern int pregLastRegvar;
extern int pregFirstArg;
extern int pregLastArg;
extern int opt_vreg;
extern int farcode;
extern int wcharSupport;
extern int verbose;
extern int use_gp;
extern int address_bits;
extern std::ifstream *ifs;
extern txtoStream ofs;
extern txtoStream lfs;
extern txtoStream dfs;
extern int mangledNames;
extern int sizeOfWord;
extern int sizeOfPtr;
extern int sizeOfFP;
extern int sizeOfFPS;
extern int sizeOfFPT;
extern int sizeOfFPD;
extern int sizeOfFPQ;
extern int maxVL;
 
/*
extern FILE             *input,
                        *list,
                        *output;
*/
extern FILE *outputG;
extern int incldepth;
extern int              lineno;
extern int              nextlabel;
extern int              lastch;
extern int              lastst;
extern char             lastid[128];
extern char             lastkw[128];
extern char             laststr[MAX_STLP1];
extern int64_t	ival;
extern double           rval;
extern Float128			rval128;
extern char float_precision;
extern int parseEsc;
//extern FloatTriple      FAC1,FAC2;
 
extern TABLE            gsyms[257],
                        lsyms;
extern TABLE            tagtable;
extern SYM              *lasthead;
extern struct slit      *strtab;
extern struct clit		*casetab;
extern Float128		    *quadtab;
extern int              lc_static;
extern int              lc_auto;
extern int				lc_thread;
extern Statement     *bodyptr;       /* parse tree for function */
extern int              global_flag;
extern TABLE            defsyms;
extern int64_t          save_mask;      /* register save mask */
extern int64_t          fpsave_mask;
extern int				bsave_mask;
extern int uctran_off;
extern int isKernel;
extern int isPascal;
extern int isOscall;
extern int isInterrupt;
extern int isTask;
extern int isNocall;
extern bool isRegister;
extern int asmblock;
extern int optimize;
extern int opt_noregs;
extern int opt_nopeep;
extern int opt_noexpr;
extern int opt_nocgo;
extern int opt_size;
extern int exceptions;
extern int mixedSource;
extern Function *currentFn;
extern int iflevel;
extern int foreverlevel;
extern int looplevel;
extern int loopexit;
extern short int loop_active;
extern int stmtdepth;
extern int regmask;
extern int bregmask;
extern Statement *currentStmt;
extern bool dogen;
extern OCODE *peep_head;
extern OCODE *peep_tail;
 
extern TYP stdvoid;
extern TYP stdint;
extern TYP stduint;
extern TYP stdlong;
extern TYP stdulong;
extern TYP stdshort;
extern TYP stdushort;
extern TYP stdchar;
extern TYP stduchar;
extern TYP stdbyte;
extern TYP stdubyte;
extern TYP stdstring;
extern TYP stddbl;
extern TYP stdtriple;
extern TYP stdflt;
extern TYP stddouble;
extern TYP stdfunc;
extern TYP stdexception;
extern TYP stdconst;
extern TYP stdquad;
extern TYP stdvector;
extern TYP *stdvectormask;
 
extern std::string *declid;
extern Compiler compiler;
extern int64_t genst_cumulative;
 
extern int throwlab;
extern int breaklab;
extern int contlab;
extern int retlab;
extern int lastsph;
extern char *semaphores[20];
extern unsigned int ArgRegCount;
extern bool isFuncBody;
extern int isTypedef;
extern bool isUnion;
extern int isUnsigned;
extern int isSigned;
extern int isVolatile;
extern int isVirtual;
extern bool isInline;
extern int isIO;
extern int isConst;
extern bool isRegister;
extern bool isAuto;
extern bool isFuncBody;
extern bool isFuncPtr;
extern char *stkname;
extern int nparms;
extern int funcdecl;
extern Stringx names[20];
extern int isStructDecl;
extern int worstAlignment;
extern Map map;
extern int optimized;
 
// Analyze.c
extern short int csendx;
extern int equalnode(ENODE *node1, ENODE *node2);
extern int bsort(CSE **list);
// CMain.c
extern void closefiles();
 
extern void error(int n);
extern void needpunc(enum e_sym p,int);
// Memmgt.c
extern void *allocx(int);
extern char *xalloc(int);
extern SYM *allocSYM();
extern TYP *allocTYP();
extern Operand *allocOperand();
extern ENODE *allocEnode();
extern CSE *allocCSE();
extern void ReleaseGlobalMemory();
extern void ReleaseLocalMemory();
 
// NextToken.c
extern void initsym();
extern void NextToken();
extern int getch();
extern int my_isspace(char c);
extern void getbase(int64_t);
extern void SkipSpaces();
 
// Stmt.c
extern Statement *ParseCompoundStatement();
 
extern void GenerateDiadic(int op, int len, Operand *ap1,Operand *ap2);
// Symbol.c
extern SYM *gsearch(std::string na);
extern SYM *search(std::string na,TABLE *thead);
extern void insert(SYM* sp, TABLE *table);
 
// ParseFunction.c
extern SYM *BuildParameterList(SYM *sp, int *);
 
extern char *my_strdup(char *);
// Decl.c
extern int imax(int i, int j);
extern TYP *maketype(int bt, int siz);
extern void dodecl(int defclass);
extern int ParseParameterDeclarations(int);
extern void ParseAutoDeclarations(SYM *sym, TABLE *table);
extern int ParseSpecifier(TABLE *table);
extern SYM* ParseDeclarationPrefix(char isUnion);
extern int ParseStructDeclaration(int);
extern void ParseEnumerationList(TABLE *table);
extern int ParseFunction(SYM *sp);
extern int declare(SYM *sym,TABLE *table,int al,int ilc,int ztype);
extern void initstack();
extern int getline(int listflag);
extern void compile();
 
// Init.c
extern void doinit(SYM *sp);
// Func.c
extern SYM *makeint(char *);
extern void funcbody(SYM *sp);
// Intexpr.c
extern int64_t GetIntegerExpression(ENODE **p);
extern Float128 *GetFloatExpression(ENODE **pnode);
// Expr.c
extern SYM *makeStructPtr(std::string name);
extern ENODE *makenode(int nt, ENODE *v1, ENODE *v2);
extern ENODE *makeinode(int nt, int64_t v1);
extern ENODE *makesnode(int nt, std::string *v1, std::string *v2, int64_t i);
extern TYP *nameref(ENODE **node,int);
extern TYP *forcefit(ENODE **node1,TYP *tp1,ENODE **node2,TYP *tp2,bool);
extern TYP *expression(ENODE **node);
extern int IsLValue(ENODE *node);
extern Operand *GenerateExpression(ENODE *node, int flags, int size);
extern int GetNaturalSize(ENODE *node);
extern TYP *asnop(ENODE **node);
extern TYP *NonCommaExpression(ENODE **);
// Optimize.c
extern void opt_const(ENODE **node);
// GenerateStatement.c
//extern void GenerateFunction(Statement *stmt);
extern void GenerateIntoff(Statement *stmt);
extern void GenerateInton(Statement *stmt);
extern void GenerateStop(Statement *stmt);
extern void gen_regrestore();
extern Operand *make_direct(int i);
extern Operand *makereg(int r);
extern Operand *makevreg(int r);
extern Operand *makefpreg(int t);
extern Operand *makebreg(int r);
extern Operand *makepred(int r);
extern int popcnt(int64_t m);
// Outcode.c
extern void gen_strlab(char *s);
extern void dumplits();
extern int  stringlit(char *s);
extern int quadlit(Float128 *f128);
extern void nl();
extern void seg(int sg, int algn);
extern void cseg();
extern void dseg();
extern void tseg();
//extern void put_code(int op, int len,Operand *aps, Operand *apd, Operand *);
extern void put_code(OCODE *);
extern char *put_label(int lab, char*, char*, char);
extern char *gen_label(int lab, char*, char*, char);
extern char *put_labels(char *);
extern char *opstr(int op);
// Peepgen.c
extern void MarkRemove(OCODE *ip);
extern int PeepCount(OCODE *);
extern void flush_peep();
extern void GenerateLabel(int labno);
extern void GenerateZeradic(int op);
extern void GenerateMonadic(int op, int len, Operand *ap1);
extern void GenerateMonadicNT(int op, int len, Operand *ap1);
extern void GenerateDiadic(int op, int len, Operand *ap1, Operand *ap2);
extern void GenerateDiadicNT(int op, int len, Operand *ap1, Operand *ap2);
extern void GenerateTriadic(int op, int len, Operand *ap1, Operand *ap2, Operand *ap3);
extern void Generate4adic(int op, int len, Operand *ap1, Operand *ap2, Operand *ap3, Operand *ap4);
// Gencode.c
extern Operand *make_label(int lab);
extern Operand *make_clabel(int lab);
extern Operand *make_immed(int64_t i);
extern Operand *make_indirect(int i);
extern Operand *make_offset(ENODE *node);
extern void swap_nodes(ENODE *node);
 
// IdentifyKeyword.c
extern int IdentifyKeyword();
// Preproc.c
extern int preprocess();
// CodeGenerator.c
extern Operand *make_indirect(int i);
extern Operand *make_indexed(int64_t o, int i);
extern Operand *make_indx(ENODE *node, int reg);
extern Operand *make_string(char *s);
extern void GenerateFalseJump(ENODE *node,int label, unsigned int);
extern void GenerateTrueJump(ENODE *node,int label, unsigned int);
extern char *GetNamespace();
extern char nmspace[20][100];
extern Operand *GenerateDereference(ENODE *, int, int, int);
extern void MakeLegalOperand(Operand *ap,int flags, int size);
extern void GenLoad(Operand *, Operand *, int size, int);
extern void GenStore(Operand *, Operand *, int size);
// List.c
extern void ListTable(TABLE *t, int i);
// Register.c
extern Operand *GetTempReg(int);
extern Operand *GetTempRegister();
extern Operand *GetTempTgtRegister();
extern Operand *GetTempBrRegister();
extern Operand *GetTempFPRegister();
extern Operand *GetTempVectorRegister();
extern Operand *GetTempVectorMaskRegister();
extern void ReleaseTempRegister(Operand *ap);
extern void ReleaseTempReg(Operand *ap);
extern int TempInvalidate(int *);
extern void TempRevalidate(int sp, int fsp);
extern int GetTempMemSpace();
extern bool IsArgumentReg(int);
extern Operand *GenerateFunctionCall(ENODE *node, int flags);
 
extern void GenerateFunction(SYM *sym);
extern void GenerateReturn(Statement *stmt);
 
extern Operand *GenerateBitfieldDereference(ENODE *node, int flags, int size);
extern Operand *GenerateBitfieldAssign(ENODE *node, int flags, int size);
extern void GenerateBitfieldInsert(Operand *ap1, Operand *ap2, int offset, int width);
 
// err.c
extern void fatal(char *str);
 
extern int tmpVarSpace();
extern void tmpFreeAll();
extern void tmpReset();
extern int tmpAlloc(int);
extern void tmpFree(int);
extern BasicBlock *basicBlocks[10000];
extern BasicBlock *sortedBlocks[10000];
extern Forest forest;
extern IGraph iGraph;
extern Instruction opl[];
extern BasicBlock *RootBlock;
extern BasicBlock *LastBlock;
extern Instruction *GetInsn(int);
 
#endif