X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fpic%2Fglue.c;h=767fb3ecc50085e359a3f597887f58e913695cff;hb=5df1b9a579235d42fcec8a8884808334ed99a246;hp=bead6f1c82eb27ffb594fe957b2fb203a48bc401;hpb=79122deed8554fc0579a8e4d93babf907835c5f4;p=fw%2Fsdcc diff --git a/src/pic/glue.c b/src/pic/glue.c index bead6f1c..767fb3ec 100644 --- a/src/pic/glue.c +++ b/src/pic/glue.c @@ -1,37 +1,40 @@ /*------------------------------------------------------------------------- - SDCCglue.c - glues everything we have done together into one file. + SDCCglue.c - glues everything we have done together into one file. Written By - Sandeep Dutta . sandeep.dutta@usa.net (1998) - + This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. - + This program 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, write to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. - + In other words, you are welcome to use, share and improve this program. You are forbidden to forbid anyone else to use, share and improve - what you give them. Help stamp out software-hoarding! + what you give them. Help stamp out software-hoarding! -------------------------------------------------------------------------*/ #include "../common.h" #include #include "ralloc.h" +#include "pcode.h" +#include "newalloc.h" + extern symbol *interrupts[256]; void printIval (symbol *, sym_link *, initList *, FILE *); extern int noAlloc; extern set *publics; -extern int maxInterrupts; -extern int maxRegBank ; +extern unsigned maxInterrupts; +extern int maxRegBank; extern symbol *mainf; extern char *VersionString; extern FILE *codeOutFile; @@ -41,8 +44,8 @@ extern char *iComments1; extern char *iComments2; //extern void emitStaticSeg (memmap * map); -extern DEFSETFUNC(closeTmpFiles); -extern DEFSETFUNC(rmTmpFiles); +extern DEFSETFUNC (closeTmpFiles); +extern DEFSETFUNC (rmTmpFiles); extern void copyFile (FILE * dest, FILE * src); @@ -55,149 +58,177 @@ extern void printPublics (FILE * afile); extern void printChar (FILE * ofile, char *s, int plen); #if 0 -char *aopLiteral (value *val, int offset) -static void emitRegularMap (memmap * map, bool addPublics, bool arFlag) -value *initPointer (initList *ilist) -void printIvalType (sym_link * type, initList * ilist, FILE * oFile) -void printIvalStruct (symbol * sym,sym_link * type, - initList * ilist, FILE * oFile) -int printIvalChar (sym_link * type, initList * ilist, FILE * oFile, char *s) -void printIvalArray (symbol * sym, sym_link * type, initList * ilist, - FILE * oFile) -void printIvalFuncPtr (sym_link * type, initList * ilist, FILE * oFile) -int printIvalCharPtr (symbol * sym, sym_link * type, value * val, FILE * oFile) -void printIvalPtr (symbol * sym, sym_link * type, initList * ilist, FILE * oFile) +char * +aopLiteral (value * val, int offset) + static void emitRegularMap (memmap * map, bool addPublics, bool arFlag) + value *initPointer (initList * ilist) + void printIvalType (sym_link * type, initList * ilist, FILE * oFile) + void printIvalStruct (symbol * sym, sym_link * type, + initList * ilist, FILE * oFile) + int printIvalChar (sym_link * type, initList * ilist, FILE * oFile, char *s) + void printIvalArray (symbol * sym, sym_link * type, initList * ilist, + FILE * oFile) + void printIvalFuncPtr (sym_link * type, initList * ilist, FILE * oFile) + int printIvalCharPtr (symbol * sym, sym_link * type, value * val, FILE * oFile) + void printIvalPtr (symbol * sym, sym_link * type, initList * ilist, FILE * oFile) #endif +/*-----------------------------------------------------------------*/ +/* Allocation macros that replace those in SDCCalloc.h */ +/* Why? I dunno. I ran across a bug with those macros that */ +/* I couldn't fix, but I could work around... */ +/*-----------------------------------------------------------------*/ + +#define _ALLOC(x,sz) if (!(x = calloc((sz),1) )) \ + { \ + werror(E_OUT_OF_MEM,__FILE__,(long) sz);\ + exit (1); \ + } + +#define _ALLOC_ATOMIC(x,y) if (!((x) = malloc(y))) \ + { \ + werror(E_OUT_OF_MEM,__FILE__,(long) y); \ + exit (1); \ + } + /*-----------------------------------------------------------------*/ /* aopLiteral - string from a literal value */ /*-----------------------------------------------------------------*/ -char *pic14aopLiteral (value *val, int offset) +int pic14aopLiteral (value *val, int offset) { - char *rs; - union { - float f; - unsigned char c[4]; - } fl; - - /* if it is a float then it gets tricky */ - /* otherwise it is fairly simple */ - if (!IS_FLOAT(val->type)) { - unsigned long v = floatFromVal(val); - - v >>= (offset * 8); - sprintf(buffer,"0x%02x",((char) v) & 0xff); - ALLOC_ATOMIC(rs,strlen(buffer)+1); - return strcpy (rs,buffer); - } - - /* it is type float */ - fl.f = (float) floatFromVal(val); + union { + float f; + unsigned char c[4]; + } fl; + + /* if it is a float then it gets tricky */ + /* otherwise it is fairly simple */ + if (!IS_FLOAT(val->type)) { + unsigned long v = (unsigned long) floatFromVal(val); + + //v >>= (offset * 8); + return ( (v >> (offset * 8)) & 0xff); + //sprintf(buffer,"0x%02x",((char) v) & 0xff); + //_ALLOC_ATOMIC(rs,strlen(buffer)+1); + //return strcpy (rs,buffer); + } + + /* it is type float */ + fl.f = (float) floatFromVal(val); #ifdef _BIG_ENDIAN - sprintf(buffer,"0x%02x",fl.c[3-offset]); + return fl.c[3-offset]; #else - sprintf(buffer,"0x%02x",fl.c[offset]); + return fl.c[offset]; #endif - ALLOC_ATOMIC(rs,strlen(buffer)+1); - return strcpy (rs,buffer); + } /*-----------------------------------------------------------------*/ /* emitRegularMap - emit code for maps with no special cases */ /*-----------------------------------------------------------------*/ -static void pic14emitRegularMap (memmap * map, bool addPublics, bool arFlag) +static void +pic14emitRegularMap (memmap * map, bool addPublics, bool arFlag) { - symbol *sym; - int i,size,bitvars=0;; + symbol *sym; + int i, size, bitvars = 0;; - if (addPublics) - fprintf (map->oFile, ";\t.area\t%s\n", map->sname); - - /* print the area name */ - for (sym = setFirstItem (map->syms); sym; - sym = setNextItem (map->syms)) { - - /* if extern then do nothing */ - if (IS_EXTERN (sym->etype)) - continue; - - /* if allocation required check is needed - then check if the symbol really requires - allocation only for local variables */ - if (arFlag && !IS_AGGREGATE(sym->type) && - !(sym->_isparm && !IS_REGPARM(sym->etype)) && - !sym->allocreq && sym->level) - continue ; - - /* if global variable & not static or extern - and addPublics allowed then add it to the public set */ - if ((sym->level == 0 || - (sym->_isparm && !IS_REGPARM(sym->etype))) && - addPublics && - !IS_STATIC (sym->etype)) - addSetHead (&publics, sym); - - /* if extern then do nothing or is a function - then do nothing */ - if (IS_FUNC (sym->type)) - continue; -#if 0 - /* print extra debug info if required */ - if (options.debug || sym->level == 0) { + if (addPublics) + fprintf (map->oFile, ";\t.area\t%s\n", map->sname); - cdbSymbol(sym,cdbFile,FALSE,FALSE); + /* print the area name */ + for (sym = setFirstItem (map->syms); sym; + sym = setNextItem (map->syms)) + { + + /* if extern then do nothing */ + if (IS_EXTERN (sym->etype)) + continue; + + /* if allocation required check is needed + then check if the symbol really requires + allocation only for local variables */ + if (arFlag && !IS_AGGREGATE (sym->type) && + !(sym->_isparm && !IS_REGPARM (sym->etype)) && + !sym->allocreq && sym->level) + continue; + + /* if global variable & not static or extern + and addPublics allowed then add it to the public set */ + if ((sym->level == 0 || + (sym->_isparm && !IS_REGPARM (sym->etype))) && + addPublics && + !IS_STATIC (sym->etype)) + addSetHead (&publics, sym); + + /* if extern then do nothing or is a function + then do nothing */ + if (IS_FUNC (sym->type)) + continue; +#if 0 + /* print extra debug info if required */ + if (options.debug || sym->level == 0) + { - if (!sym->level) /* global */ - if (IS_STATIC(sym->etype)) - fprintf(map->oFile,"F%s_",moduleName); /* scope is file */ - else - fprintf(map->oFile,"G_"); /* scope is global */ + cdbSymbol (sym, cdbFile, FALSE, FALSE); + + if (!sym->level) /* global */ + if (IS_STATIC (sym->etype)) + fprintf (map->oFile, "F%s_", moduleName); /* scope is file */ else - /* symbol is local */ - fprintf(map->oFile,"L%s_",(sym->localof ? sym->localof->name : "-null-")); - fprintf(map->oFile,"%s_%d_%d",sym->name,sym->level,sym->block); + fprintf (map->oFile, "G_"); /* scope is global */ + else + /* symbol is local */ + fprintf (map->oFile, "L%s_", (sym->localof ? sym->localof->name : "-null-")); + fprintf (map->oFile, "%s_%d_%d", sym->name, sym->level, sym->block); } #endif - /* if is has an absolute address then generate - an equate for this no need to allocate space */ - if (SPEC_ABSA (sym->etype)) { + /* if is has an absolute address then generate + an equate for this no need to allocate space */ + if (SPEC_ABSA (sym->etype)) + { //if (options.debug || sym->level == 0) - //fprintf (map->oFile,"; == 0x%04x\n",SPEC_ADDR (sym->etype)); + //fprintf (map->oFile,"; == 0x%04x\n",SPEC_ADDR (sym->etype)); - fprintf (map->oFile, "%s\tEQU\t0x%04x\n", - sym->rname, - SPEC_ADDR (sym->etype)); + fprintf (map->oFile, "%s\tEQU\t0x%04x\n", + sym->rname, + SPEC_ADDR (sym->etype)); } - else { - /* allocate space */ + else + { + /* allocate space */ /* If this is a bit variable, then allocate storage after 8 bits have been declared */ /* unlike the 8051, the pic does not have a separate bit area. So we emulate bit ram */ - /* by grouping the bits together into groups of 8 and storing them in the normal ram.*/ - if(IS_BITVAR(sym->etype)) { - if((bitvars % 8) == 0) { - fprintf (map->oFile, " cblock\n"); - fprintf (map->oFile, "\tbitfield%d\n", bitvars); - fprintf (map->oFile, " endc\n"); - } + /* by grouping the bits together into groups of 8 and storing them in the normal ram. */ + if (IS_BITVAR (sym->etype)) + { + if ((bitvars % 8) == 0) + { + fprintf (map->oFile, " cblock\n"); + fprintf (map->oFile, "\tbitfield%d\n", bitvars); + fprintf (map->oFile, " endc\n"); + } - fprintf (map->oFile, "%s\tEQU\t( (bitfield%d<<3)+%d)\n", - sym->rname, - bitvars & 0xfff8, - bitvars & 0x0007); - - bitvars++; - } else { - fprintf (map->oFile, "\t%s\n", sym->rname); - if( (size = (unsigned int)getSize (sym->type) & 0xffff)>1) { - for(i=1; ioFile, "\t%s_%d\n", sym->rname,i); + fprintf (map->oFile, "%s\tEQU\t( (bitfield%d<<3)+%d)\n", + sym->rname, + bitvars & 0xfff8, + bitvars & 0x0007); + + bitvars++; + } + else + { + fprintf (map->oFile, "\t%s\n", sym->rname); + if ((size = (unsigned int) getSize (sym->type) & 0xffff) > 1) + { + for (i = 1; i < size; i++) + fprintf (map->oFile, "\t%s_%d\n", sym->rname, i); + } } - } - //fprintf (map->oFile, "\t.ds\t0x%04x\n", (unsigned int)getSize (sym->type) & 0xffff); + //fprintf (map->oFile, "\t.ds\t0x%04x\n", (unsigned int)getSize (sym->type) & 0xffff); } /* if it has a initial value then do it only if @@ -211,6 +242,7 @@ static void pic14emitRegularMap (memmap * map, bool addPublics, bool arFlag) ival = newNode ('=', newAst_VALUE(symbolVal (sym)), decorateType (resolveSymbols (list2expr (sym->ival)))); codeOutFile = statsg->oFile; + GcurMemmap = statsg; eBBlockFromiCode (iCodeFromAst (ival)); sym->ival = NULL; } @@ -222,414 +254,443 @@ static void pic14emitRegularMap (memmap * map, bool addPublics, bool arFlag) /*-----------------------------------------------------------------*/ /* initPointer - pointer initialization code massaging */ /*-----------------------------------------------------------------*/ -value *initPointer (initList *ilist) +value * +initPointer (initList * ilist) { - value *val; - ast *expr = list2expr(ilist); + value *val; + ast *expr = list2expr (ilist); - if (!expr) - goto wrong; - - /* try it the oldway first */ - if ((val = constExprValue(expr,FALSE))) - return val; - - /* no then we have to do these cludgy checks */ - /* pointers can be initialized with address of - a variable or address of an array element */ - if (IS_AST_OP(expr) && expr->opval.op == '&') { - /* address of symbol */ - if (IS_AST_SYM_VALUE(expr->left)) { - val = copyValue(AST_VALUE(expr->left)); - val->type = newLink(); - if (SPEC_SCLS(expr->left->etype) == S_CODE) { - DCL_TYPE(val->type) = CPOINTER ; - DCL_PTR_CONST(val->type) = port->mem.code_ro; + if (!expr) + goto wrong; + + /* try it the oldway first */ + if ((val = constExprValue (expr, FALSE))) + return val; + + /* no then we have to do these cludgy checks */ + /* pointers can be initialized with address of + a variable or address of an array element */ + if (IS_AST_OP (expr) && expr->opval.op == '&') + { + /* address of symbol */ + if (IS_AST_SYM_VALUE (expr->left)) + { + val = copyValue (AST_VALUE (expr->left)); + val->type = newLink (); + if (SPEC_SCLS (expr->left->etype) == S_CODE) + { + DCL_TYPE (val->type) = CPOINTER; + DCL_PTR_CONST (val->type) = port->mem.code_ro; } - else - if (SPEC_SCLS(expr->left->etype) == S_XDATA) - DCL_TYPE(val->type) = FPOINTER; - else - if (SPEC_SCLS(expr->left->etype) == S_XSTACK ) - DCL_TYPE(val->type) = PPOINTER ; - else - if (SPEC_SCLS(expr->left->etype) == S_IDATA) - DCL_TYPE(val->type) = IPOINTER ; - else - if (SPEC_SCLS(expr->left->etype) == S_EEPROM) - DCL_TYPE(val->type) = EEPPOINTER ; - else - DCL_TYPE(val->type) = POINTER ; - val->type->next = expr->left->ftype; - val->etype = getSpec(val->type); - return val; + else if (SPEC_SCLS (expr->left->etype) == S_XDATA) + DCL_TYPE (val->type) = FPOINTER; + else if (SPEC_SCLS (expr->left->etype) == S_XSTACK) + DCL_TYPE (val->type) = PPOINTER; + else if (SPEC_SCLS (expr->left->etype) == S_IDATA) + DCL_TYPE (val->type) = IPOINTER; + else if (SPEC_SCLS (expr->left->etype) == S_EEPROM) + DCL_TYPE (val->type) = EEPPOINTER; + else + DCL_TYPE (val->type) = POINTER; + val->type->next = expr->left->ftype; + val->etype = getSpec (val->type); + return val; } - /* if address of indexed array */ - if (IS_AST_OP(expr->left) && expr->left->opval.op == '[') - return valForArray(expr->left); - - /* if address of structure element then - case 1. a.b ; */ - if (IS_AST_OP(expr->left) && - expr->left->opval.op == '.' ) { - return valForStructElem(expr->left->left, - expr->left->right); + /* if address of indexed array */ + if (IS_AST_OP (expr->left) && expr->left->opval.op == '[') + return valForArray (expr->left); + + /* if address of structure element then + case 1. a.b ; */ + if (IS_AST_OP (expr->left) && + expr->left->opval.op == '.') + { + return valForStructElem (expr->left->left, + expr->left->right); } - /* case 2. (&a)->b ; - (&some_struct)->element */ - if (IS_AST_OP(expr->left) && - expr->left->opval.op == PTR_OP && - IS_ADDRESS_OF_OP(expr->left->left)) - return valForStructElem(expr->left->left->left, - expr->left->right); + /* case 2. (&a)->b ; + (&some_struct)->element */ + if (IS_AST_OP (expr->left) && + expr->left->opval.op == PTR_OP && + IS_ADDRESS_OF_OP (expr->left->left)) + return valForStructElem (expr->left->left->left, + expr->left->right); } - wrong: - werror(E_INIT_WRONG); - return NULL; - +wrong: + werror (E_INIT_WRONG); + return NULL; + } /*-----------------------------------------------------------------*/ /* printChar - formats and prints a characater string with DB */ /*-----------------------------------------------------------------*/ -void printChar (FILE * ofile, char *s, int plen) +void +printChar (FILE * ofile, char *s, int plen) { - int i; - int len = strlen (s); - int pplen = 0; - - while (len && pplen < plen) { + int i; + int len = strlen (s); + int pplen = 0; + + while (len && pplen < plen) + { - fprintf (ofile, "\t.ascii /"); - i = 60; - while (i && *s && pplen < plen) { - if (*s < ' ' || *s == '/') { - fprintf (ofile, "/\n\t.byte 0x%02x\n\t.ascii /", *s++); + fprintf (ofile, "\t.ascii /"); + i = 60; + while (i && *s && pplen < plen) + { + if (*s < ' ' || *s == '/') + { + fprintf (ofile, "/\n\t.byte 0x%02x\n\t.ascii /", *s++); } - else - fprintf (ofile, "%c", *s++); - pplen++; - i--; + else + fprintf (ofile, "%c", *s++); + pplen++; + i--; } - fprintf (ofile, "/\n"); - - if (len > 60) - len -= 60; - else - len = 0; + fprintf (ofile, "/\n"); + + if (len > 60) + len -= 60; + else + len = 0; } - if (pplen < plen) - fprintf(ofile,"\t.byte\t0\n"); + if (pplen < plen) + fprintf (ofile, "\t.byte\t0\n"); } /*-----------------------------------------------------------------*/ /* printIvalType - generates ival for int/char */ /*-----------------------------------------------------------------*/ -void printIvalType (sym_link * type, initList * ilist, FILE * oFile) +void +printIvalType (sym_link * type, initList * ilist, FILE * oFile) { - value *val; - - /* if initList is deep */ - if (ilist->type == INIT_DEEP) - ilist = ilist->init.deep; - - val = list2val (ilist); - switch (getSize (type)) { + value *val; + + /* if initList is deep */ + if (ilist->type == INIT_DEEP) + ilist = ilist->init.deep; + + val = list2val (ilist); + switch (getSize (type)) + { case 1: - if (!val) - fprintf (oFile, "\t.byte 0\n"); - else - fprintf (oFile, "\t.byte %s\n", - aopLiteral (val, 0)); - break; + if (!val) + fprintf (oFile, "\t.byte 0\n"); + else + fprintf (oFile, "\t.byte %s\n", + aopLiteral (val, 0)); + break; case 2: - if (!val) - fprintf (oFile, "\t.word 0\n"); - else - fprintf (oFile, "\t.byte %s,%s\n", - aopLiteral (val, 0), aopLiteral (val, 1)); - break; + if (!val) + fprintf (oFile, "\t.word 0\n"); + else + fprintf (oFile, "\t.byte %s,%s\n", + aopLiteral (val, 0), aopLiteral (val, 1)); + break; case 4: - if (!val) - fprintf (oFile, "\t.word 0,0\n"); - else - fprintf (oFile, "\t.byte %s,%s,%s,%s\n", - aopLiteral (val, 0), aopLiteral (val, 1), - aopLiteral (val, 2), aopLiteral (val, 3)); - break; + if (!val) + fprintf (oFile, "\t.word 0,0\n"); + else + fprintf (oFile, "\t.byte %s,%s,%s,%s\n", + aopLiteral (val, 0), aopLiteral (val, 1), + aopLiteral (val, 2), aopLiteral (val, 3)); + break; } - - return; + + return; } /*-----------------------------------------------------------------*/ /* printIvalStruct - generates initial value for structures */ /*-----------------------------------------------------------------*/ -void printIvalStruct (symbol * sym,sym_link * type, - initList * ilist, FILE * oFile) +void +printIvalStruct (symbol * sym, sym_link * type, + initList * ilist, FILE * oFile) { - symbol *sflds; - initList *iloop; - - sflds = SPEC_STRUCT (type)->fields; - if (ilist->type != INIT_DEEP) { - werror (E_INIT_STRUCT, sym->name); - return; + symbol *sflds; + initList *iloop; + + sflds = SPEC_STRUCT (type)->fields; + if (ilist->type != INIT_DEEP) + { + werror (E_INIT_STRUCT, sym->name); + return; } - - iloop = ilist->init.deep; - - for (; sflds; sflds = sflds->next, iloop = (iloop ? iloop->next : NULL)) - printIval (sflds, sflds->type, iloop, oFile); - - return; + + iloop = ilist->init.deep; + + for (; sflds; sflds = sflds->next, iloop = (iloop ? iloop->next : NULL)) + printIval (sflds, sflds->type, iloop, oFile); + + return; } /*-----------------------------------------------------------------*/ /* printIvalChar - generates initital value for character array */ /*-----------------------------------------------------------------*/ -int printIvalChar (sym_link * type, initList * ilist, FILE * oFile, char *s) +int +printIvalChar (sym_link * type, initList * ilist, FILE * oFile, char *s) { - value *val; - int remain; - - if (!s) { - - val = list2val (ilist); - /* if the value is a character string */ - if (IS_ARRAY (val->type) && IS_CHAR (val->etype)) { - if (!DCL_ELEM (type)) - DCL_ELEM (type) = strlen (SPEC_CVAL (val->etype).v_char) + 1; - - /* if size mismatch */ -/* if (DCL_ELEM (type) < ((int) strlen (SPEC_CVAL (val->etype).v_char) + 1)) */ -/* werror (E_ARRAY_BOUND); */ - - printChar (oFile, SPEC_CVAL (val->etype).v_char,DCL_ELEM(type)); - - if ((remain = (DCL_ELEM (type) - strlen (SPEC_CVAL (val->etype).v_char) -1))>0) - while (remain--) - fprintf (oFile, "\t.byte 0\n"); - - return 1; + value *val; + int remain; + + if (!s) + { + + val = list2val (ilist); + /* if the value is a character string */ + if (IS_ARRAY (val->type) && IS_CHAR (val->etype)) + { + if (!DCL_ELEM (type)) + DCL_ELEM (type) = strlen (SPEC_CVAL (val->etype).v_char) + 1; + + /* if size mismatch */ +/* if (DCL_ELEM (type) < ((int) strlen (SPEC_CVAL (val->etype).v_char) + 1)) */ +/* werror (E_ARRAY_BOUND); */ + + printChar (oFile, SPEC_CVAL (val->etype).v_char, DCL_ELEM (type)); + + if ((remain = (DCL_ELEM (type) - strlen (SPEC_CVAL (val->etype).v_char) - 1)) > 0) + while (remain--) + fprintf (oFile, "\t.byte 0\n"); + + return 1; } - else - return 0; + else + return 0; } - else - printChar (oFile, s,strlen(s)+1); - return 1; + else + printChar (oFile, s, strlen (s) + 1); + return 1; } /*-----------------------------------------------------------------*/ /* printIvalArray - generates code for array initialization */ /*-----------------------------------------------------------------*/ -void printIvalArray (symbol * sym, sym_link * type, initList * ilist, - FILE * oFile) +void +printIvalArray (symbol * sym, sym_link * type, initList * ilist, + FILE * oFile) { - initList *iloop; - int lcnt = 0, size = 0; - - /* take care of the special case */ - /* array of characters can be init */ - /* by a string */ - if (IS_CHAR (type->next)) - if (printIvalChar (type, - (ilist->type == INIT_DEEP ? ilist->init.deep : ilist), - oFile, SPEC_CVAL (sym->etype).v_char)) - return; - - /* not the special case */ - if (ilist->type != INIT_DEEP) { - werror (E_INIT_STRUCT, sym->name); - return; + initList *iloop; + int lcnt = 0, size = 0; + + /* take care of the special case */ + /* array of characters can be init */ + /* by a string */ + if (IS_CHAR (type->next)) + if (printIvalChar (type, + (ilist->type == INIT_DEEP ? ilist->init.deep : ilist), + oFile, SPEC_CVAL (sym->etype).v_char)) + return; + + /* not the special case */ + if (ilist->type != INIT_DEEP) + { + werror (E_INIT_STRUCT, sym->name); + return; } - - iloop = ilist->init.deep; - lcnt = DCL_ELEM (type); - - for (;;) { - size++; - printIval (sym, type->next, iloop, oFile); - iloop = (iloop ? iloop->next : NULL); - - - /* if not array limits given & we */ - /* are out of initialisers then */ - if (!DCL_ELEM (type) && !iloop) - break; - - /* no of elements given and we */ - /* have generated for all of them */ - if (!--lcnt) - break; + + iloop = ilist->init.deep; + lcnt = DCL_ELEM (type); + + for (;;) + { + size++; + printIval (sym, type->next, iloop, oFile); + iloop = (iloop ? iloop->next : NULL); + + + /* if not array limits given & we */ + /* are out of initialisers then */ + if (!DCL_ELEM (type) && !iloop) + break; + + /* no of elements given and we */ + /* have generated for all of them */ + if (!--lcnt) + break; } - - /* if we have not been given a size */ - if (!DCL_ELEM (type)) - DCL_ELEM (type) = size; - - return; + + /* if we have not been given a size */ + if (!DCL_ELEM (type)) + DCL_ELEM (type) = size; + + return; } /*-----------------------------------------------------------------*/ /* printIvalFuncPtr - generate initial value for function pointers */ /*-----------------------------------------------------------------*/ -void printIvalFuncPtr (sym_link * type, initList * ilist, FILE * oFile) +void +printIvalFuncPtr (sym_link * type, initList * ilist, FILE * oFile) { - value *val; - int dLvl = 0; - - val = list2val (ilist); - /* check the types */ - if ((dLvl = checkType (val->type, type->next)) <= 0) { - - fprintf (oFile, "\t.word 0\n"); - return; - } - - /* now generate the name */ - if (!val->sym) { - if (IS_LITERAL (val->etype)) - fprintf (oFile, "\t.byte %s,%s\n", - aopLiteral (val, 0), aopLiteral (val, 1)); - else - fprintf (oFile, "\t.byte %s,(%s >> 8)\n", - val->name, val->name); + value *val; + int dLvl = 0; + + val = list2val (ilist); + /* check the types */ + if ((dLvl = checkType (val->type, type->next)) <= 0) + { + + fprintf (oFile, "\t.word 0\n"); + return; } - else + + /* now generate the name */ + if (!val->sym) + { + if (IS_LITERAL (val->etype)) + fprintf (oFile, "\t.byte %s,%s\n", + aopLiteral (val, 0), aopLiteral (val, 1)); + else fprintf (oFile, "\t.byte %s,(%s >> 8)\n", - val->sym->rname, val->sym->rname); - - return; + val->name, val->name); + } + else + fprintf (oFile, "\t.byte %s,(%s >> 8)\n", + val->sym->rname, val->sym->rname); + + return; } /*-----------------------------------------------------------------*/ /* printIvalCharPtr - generates initial values for character pointers */ /*-----------------------------------------------------------------*/ -int printIvalCharPtr (symbol * sym, sym_link * type, value * val, FILE * oFile) +int +printIvalCharPtr (symbol * sym, sym_link * type, value * val, FILE * oFile) { - int size = 0; - - size = getSize (type); - - if (size == 1) - fprintf(oFile, - "\t.byte %s", val->name) ; - else - fprintf (oFile, - "\t.byte %s,(%s >> 8)", - val->name, val->name); - - if (size > 2) - fprintf (oFile, ",#0x02\n"); - else - fprintf (oFile, "\n"); - - if (val->sym && val->sym->isstrlit) - addSet (&statsg->syms, val->sym); - - return 1; + int size = 0; + + size = getSize (type); + + if (size == 1) + fprintf (oFile, + "\t.byte %s", val->name); + else + fprintf (oFile, + "\t.byte %s,(%s >> 8)", + val->name, val->name); + + if (size > 2) + fprintf (oFile, ",#0x02\n"); + else + fprintf (oFile, "\n"); + + if (val->sym && val->sym->isstrlit) + addSet (&statsg->syms, val->sym); + + return 1; } /*-----------------------------------------------------------------*/ /* printIvalPtr - generates initial value for pointers */ /*-----------------------------------------------------------------*/ -void printIvalPtr (symbol * sym, sym_link * type, initList * ilist, FILE * oFile) +void +printIvalPtr (symbol * sym, sym_link * type, initList * ilist, FILE * oFile) { - value *val; - - /* if deep then */ - if (ilist->type == INIT_DEEP) - ilist = ilist->init.deep; - - /* function pointer */ - if (IS_FUNC (type->next)) { - printIvalFuncPtr (type, ilist, oFile); - return; + value *val; + + /* if deep then */ + if (ilist->type == INIT_DEEP) + ilist = ilist->init.deep; + + /* function pointer */ + if (IS_FUNC (type->next)) + { + printIvalFuncPtr (type, ilist, oFile); + return; } - - if (!(val = initPointer (ilist))) - return ; - /* if character pointer */ - if (IS_CHAR (type->next)) - if (printIvalCharPtr (sym, type, val, oFile)) - return; - - /* check the type */ - if (checkType (type, val->type) != 1) - werror (E_INIT_WRONG); - - /* if val is literal */ - if (IS_LITERAL (val->etype)) { - switch (getSize (type)) { + if (!(val = initPointer (ilist))) + return; + + /* if character pointer */ + if (IS_CHAR (type->next)) + if (printIvalCharPtr (sym, type, val, oFile)) + return; + + /* check the type */ + if (checkType (type, val->type) != 1) + werror (E_INIT_WRONG); + + /* if val is literal */ + if (IS_LITERAL (val->etype)) + { + switch (getSize (type)) + { case 1: - fprintf (oFile, "\t.byte 0x%02x\n", ((char) floatFromVal (val)) & 0xff); - break; + fprintf (oFile, "\t.byte 0x%02x\n", ((char) floatFromVal (val)) & 0xff); + break; case 2: - fprintf (oFile, "\t.byte %s,%s\n", - aopLiteral (val, 0), aopLiteral (val, 1)); - - break; + fprintf (oFile, "\t.byte %s,%s\n", + aopLiteral (val, 0), aopLiteral (val, 1)); + + break; case 3: - fprintf (oFile, "\t.byte %s,%s,0x%02x\n", - aopLiteral (val, 0), aopLiteral (val, 1), CPOINTER); + fprintf (oFile, "\t.byte %s,%s,0x%02x\n", + aopLiteral (val, 0), aopLiteral (val, 1), CPOINTER); } - return; + return; } - - - switch (getSize (type)) { + + + switch (getSize (type)) + { case 1: - fprintf (oFile, "\t.byte %s\n", val->name); - break; + fprintf (oFile, "\t.byte %s\n", val->name); + break; case 2: - fprintf (oFile, "\t.byte %s,(%s >> 8)\n", val->name, val->name); - break; - + fprintf (oFile, "\t.byte %s,(%s >> 8)\n", val->name, val->name); + break; + case 3: - fprintf (oFile, "\t.byte %s,(%s >> 8),0x%02x\n", - val->name, val->name, DCL_TYPE(val->type)); + fprintf (oFile, "\t.byte %s,(%s >> 8),0x%02x\n", + val->name, val->name, DCL_TYPE (val->type)); } - return; + return; } /*-----------------------------------------------------------------*/ /* printIval - generates code for initial value */ /*-----------------------------------------------------------------*/ -void printIval (symbol * sym, sym_link * type, initList * ilist, FILE * oFile) +void +printIval (symbol * sym, sym_link * type, initList * ilist, FILE * oFile) { - if (!ilist) - return; - - /* if structure then */ - if (IS_STRUCT (type)) { - printIvalStruct (sym, type, ilist, oFile); - return; + if (!ilist) + return; + + /* if structure then */ + if (IS_STRUCT (type)) + { + printIvalStruct (sym, type, ilist, oFile); + return; } - - /* if this is a pointer */ - if (IS_PTR (type)) { - printIvalPtr (sym, type, ilist, oFile); - return; + + /* if this is a pointer */ + if (IS_PTR (type)) + { + printIvalPtr (sym, type, ilist, oFile); + return; } - - /* if this is an array */ - if (IS_ARRAY (type)) { - printIvalArray (sym, type, ilist, oFile); - return; + + /* if this is an array */ + if (IS_ARRAY (type)) + { + printIvalArray (sym, type, ilist, oFile); + return; } - - /* if type is SPECIFIER */ - if (IS_SPEC (type)) { - printIvalType (type, ilist, oFile); - return; + + /* if type is SPECIFIER */ + if (IS_SPEC (type)) + { + printIvalType (type, ilist, oFile); + return; } } @@ -637,76 +698,84 @@ void printIval (symbol * sym, sym_link * type, initList * ilist, FILE * oFile) /*-----------------------------------------------------------------*/ /* emitStaticSeg - emitcode for the static segment */ /*-----------------------------------------------------------------*/ -static void pic14emitStaticSeg (memmap * map) +static void +pic14emitStaticSeg (memmap * map) { - symbol *sym; - - fprintf(map->oFile,";\t.area\t%s\n",map->sname); - - - /* for all variables in this segment do */ - for (sym = setFirstItem (map->syms); sym; - sym = setNextItem (map->syms)) { - - /* if it is "extern" then do nothing */ - if (IS_EXTERN (sym->etype)) - continue; - - /* if it is not static add it to the public - table */ - if (!IS_STATIC (sym->etype)) - addSetHead (&publics, sym); + symbol *sym; + + fprintf (map->oFile, ";\t.area\t%s\n", map->sname); + + + /* for all variables in this segment do */ + for (sym = setFirstItem (map->syms); sym; + sym = setNextItem (map->syms)) + { + + /* if it is "extern" then do nothing */ + if (IS_EXTERN (sym->etype)) + continue; + + /* if it is not static add it to the public + table */ + if (!IS_STATIC (sym->etype)) + addSetHead (&publics, sym); - /* print extra debug info if required */ - if (options.debug || sym->level == 0) { + /* print extra debug info if required */ + if (options.debug || sym->level == 0) + { - cdbSymbol(sym,cdbFile,FALSE,FALSE); + cdbSymbol (sym, cdbFile, FALSE, FALSE); - if (!sym->level) { /* global */ - if (IS_STATIC(sym->etype)) - fprintf(code->oFile,"F%s_",moduleName); /* scope is file */ - else - fprintf(code->oFile,"G_"); /* scope is global */ + if (!sym->level) + { /* global */ + if (IS_STATIC (sym->etype)) + fprintf (code->oFile, "F%s_", moduleName); /* scope is file */ + else + fprintf (code->oFile, "G_"); /* scope is global */ } - else - /* symbol is local */ - fprintf(code->oFile,"L%s_", - (sym->localof ? sym->localof->name : "-null-")); - fprintf(code->oFile,"%s_%d_%d",sym->name,sym->level,sym->block); + else + /* symbol is local */ + fprintf (code->oFile, "L%s_", + (sym->localof ? sym->localof->name : "-null-")); + fprintf (code->oFile, "%s_%d_%d", sym->name, sym->level, sym->block); } - /* if it has an absolute address */ - if (SPEC_ABSA (sym->etype)) { - if (options.debug || sym->level == 0) - fprintf(code->oFile," == 0x%04x\n", SPEC_ADDR (sym->etype)); + /* if it has an absolute address */ + if (SPEC_ABSA (sym->etype)) + { + if (options.debug || sym->level == 0) + fprintf (code->oFile, " == 0x%04x\n", SPEC_ADDR (sym->etype)); - fprintf (code->oFile, "%s\t=\t0x%04x\n", - sym->rname, - SPEC_ADDR (sym->etype)); + fprintf (code->oFile, "%s\t=\t0x%04x\n", + sym->rname, + SPEC_ADDR (sym->etype)); } - else { - if (options.debug || sym->level == 0) - fprintf(code->oFile," == .\n"); - - /* if it has an initial value */ - if (sym->ival) { - fprintf (code->oFile, "%s:\n", sym->rname); - noAlloc++; - resolveIvalSym (sym->ival); - printIval (sym, sym->type, sym->ival, code->oFile); - noAlloc--; + else + { + if (options.debug || sym->level == 0) + fprintf (code->oFile, " == .\n"); + + /* if it has an initial value */ + if (sym->ival) + { + fprintf (code->oFile, "%s:\n", sym->rname); + noAlloc++; + resolveIvalSym (sym->ival); + printIval (sym, sym->type, sym->ival, code->oFile); + noAlloc--; } - else { - /* allocate space */ - fprintf (code->oFile, "%s:\n", sym->rname); - /* special case for character strings */ - if (IS_ARRAY (sym->type) && IS_CHAR (sym->type->next) && - SPEC_CVAL (sym->etype).v_char) - printChar (code->oFile, - SPEC_CVAL (sym->etype).v_char, - strlen(SPEC_CVAL (sym->etype).v_char)+1); - else - fprintf (code->oFile, "\t.ds\t0x%04x\n", (unsigned int)getSize (sym->type)& 0xffff); + else + { + /* allocate space */ + fprintf (code->oFile, "%s:\n", sym->rname); + /* special case for character strings */ + if (IS_ARRAY (sym->type) && IS_CHAR (sym->type->next) && + SPEC_CVAL (sym->etype).v_char) + printChar (code->oFile, + SPEC_CVAL (sym->etype).v_char, + strlen (SPEC_CVAL (sym->etype).v_char) + 1); + else + fprintf (code->oFile, "\t.ds\t0x%04x\n", (unsigned int) getSize (sym->type) & 0xffff); } } } @@ -716,65 +785,70 @@ static void pic14emitStaticSeg (memmap * map) /*-----------------------------------------------------------------*/ /* emitMaps - emits the code for the data portion the code */ /*-----------------------------------------------------------------*/ -static void pic14emitMaps () +static void +pic14emitMaps () { - /* no special considerations for the following - data, idata & bit & xdata */ - pic14emitRegularMap (data, TRUE, TRUE); - pic14emitRegularMap (idata, TRUE,TRUE); - pic14emitRegularMap (bit, TRUE,FALSE); - pic14emitRegularMap (xdata, TRUE,TRUE); - pic14emitRegularMap (sfr, FALSE,FALSE); - pic14emitRegularMap (sfrbit, FALSE,FALSE); - pic14emitRegularMap (code, TRUE,FALSE); - pic14emitStaticSeg (statsg); + /* no special considerations for the following + data, idata & bit & xdata */ + pic14emitRegularMap (data, TRUE, TRUE); + pic14emitRegularMap (idata, TRUE, TRUE); + pic14emitRegularMap (bit, TRUE, FALSE); + pic14emitRegularMap (xdata, TRUE, TRUE); + pic14emitRegularMap (sfr, FALSE, FALSE); + pic14emitRegularMap (sfrbit, FALSE, FALSE); + pic14emitRegularMap (code, TRUE, FALSE); + pic14emitStaticSeg (statsg); } /*-----------------------------------------------------------------*/ /* createInterruptVect - creates the interrupt vector */ /*-----------------------------------------------------------------*/ -static void pic14createInterruptVect (FILE * vFile) +static void +pic14createInterruptVect (FILE * vFile) { - int i = 0; - mainf = newSymbol ("main", 0); - mainf->block = 0; - - /* only if the main function exists */ - if (!(mainf = findSymWithLevel (SymbolTab, mainf))) { - if (!options.cc_only) - werror(E_NO_MAIN); - return; + unsigned i = 0; + mainf = newSymbol ("main", 0); + mainf->block = 0; + + /* only if the main function exists */ + if (!(mainf = findSymWithLevel (SymbolTab, mainf))) + { + if (!options.cc_only) + werror (E_NO_MAIN); + return; } - - /* if the main is only a prototype ie. no body then do nothing */ - if (!mainf->fbody) { - /* if ! compile only then main function should be present */ - if (!options.cc_only) - werror(E_NO_MAIN); - return; + + /* if the main is only a prototype ie. no body then do nothing */ + if (!mainf->fbody) + { + /* if ! compile only then main function should be present */ + if (!options.cc_only) + werror (E_NO_MAIN); + return; } - - fprintf (vFile, ";\t.area\t%s\n", CODE_NAME); - fprintf (vFile, ";__interrupt_vect:\n"); - - if (!port->genIVT || ! (port->genIVT(vFile, interrupts, maxInterrupts))) + fprintf (vFile, ";\t.area\t%s\n", CODE_NAME); + fprintf (vFile, ";__interrupt_vect:\n"); + + + if (!port->genIVT || !(port->genIVT (vFile, interrupts, maxInterrupts))) { - /* "generic" interrupt table header (if port doesn't specify one). - * - * Look suspiciously like 8051 code to me... - */ - - fprintf (vFile, ";\tljmp\t__sdcc_gsinit_startup\n"); - - - /* now for the other interrupts */ - for (; i < maxInterrupts; i++) { - if (interrupts[i]) - fprintf (vFile, ";\tljmp\t%s\n\t.ds\t5\n", interrupts[i]->rname); - else - fprintf (vFile, ";\treti\n;\t.ds\t7\n"); - } + /* "generic" interrupt table header (if port doesn't specify one). + + * Look suspiciously like 8051 code to me... + */ + + fprintf (vFile, ";\tljmp\t__sdcc_gsinit_startup\n"); + + + /* now for the other interrupts */ + for (; i < maxInterrupts; i++) + { + if (interrupts[i]) + fprintf (vFile, ";\tljmp\t%s\n\t.ds\t5\n", interrupts[i]->rname); + else + fprintf (vFile, ";\treti\n;\t.ds\t7\n"); + } } } @@ -782,10 +856,11 @@ static void pic14createInterruptVect (FILE * vFile) /*-----------------------------------------------------------------*/ /* initialComments - puts in some initial comments */ /*-----------------------------------------------------------------*/ -static void pic14initialComments (FILE * afile) +static void +pic14initialComments (FILE * afile) { - initialComments(afile); - fprintf (afile, "; PIC port for the 14-bit core\n" ); + initialComments (afile); + fprintf (afile, "; PIC port for the 14-bit core\n"); fprintf (afile, iComments2); } @@ -793,17 +868,18 @@ static void pic14initialComments (FILE * afile) /*-----------------------------------------------------------------*/ /* printPublics - generates .global for publics */ /*-----------------------------------------------------------------*/ -static void pic14printPublics (FILE * afile) +static void +pic14printPublics (FILE * afile) { - symbol *sym; - - fprintf (afile, "%s", iComments2); - fprintf (afile, "; publics variables in this module\n"); - fprintf (afile, "%s", iComments2); - - for (sym = setFirstItem (publics); sym; - sym = setNextItem (publics)) - fprintf (afile, ";\t.globl %s\n", sym->rname); + symbol *sym; + + fprintf (afile, "%s", iComments2); + fprintf (afile, "; publics variables in this module\n"); + fprintf (afile, "%s", iComments2); + + for (sym = setFirstItem (publics); sym; + sym = setNextItem (publics)) + fprintf (afile, ";\t.globl %s\n", sym->rname); } @@ -811,93 +887,101 @@ static void pic14printPublics (FILE * afile) /*-----------------------------------------------------------------*/ /* emitOverlay - will emit code for the overlay stuff */ /*-----------------------------------------------------------------*/ -static void pic14emitOverlay(FILE *afile) +static void +pic14emitOverlay (FILE * afile) { - set *ovrset; - - if (!elementsInSet(ovrSetSets)) - fprintf(afile,";\t.area\t%s\n", port->mem.overlay_name); - - /* for each of the sets in the overlay segment do */ - for (ovrset = setFirstItem(ovrSetSets); ovrset; - ovrset = setNextItem(ovrSetSets)) { - - symbol *sym ; - - if (elementsInSet(ovrset)) { - /* this dummy area is used to fool the assembler - otherwise the assembler will append each of these - declarations into one chunk and will not overlay - sad but true */ - fprintf(afile,";\t.area _DUMMY\n"); - /* output the area informtion */ - fprintf(afile,";\t.area\t%s\n", port->mem.overlay_name); /* MOF */ + set *ovrset; + + if (!elementsInSet (ovrSetSets)) + fprintf (afile, ";\t.area\t%s\n", port->mem.overlay_name); + + /* for each of the sets in the overlay segment do */ + for (ovrset = setFirstItem (ovrSetSets); ovrset; + ovrset = setNextItem (ovrSetSets)) + { + + symbol *sym; + + if (elementsInSet (ovrset)) + { + /* this dummy area is used to fool the assembler + otherwise the assembler will append each of these + declarations into one chunk and will not overlay + sad but true */ + fprintf (afile, ";\t.area _DUMMY\n"); + /* output the area informtion */ + fprintf (afile, ";\t.area\t%s\n", port->mem.overlay_name); /* MOF */ } - - for (sym = setFirstItem(ovrset); sym; - sym = setNextItem(ovrset)) { - - /* if extern then do nothing */ - if (IS_EXTERN (sym->etype)) - continue; - - /* if allocation required check is needed - then check if the symbol really requires - allocation only for local variables */ - if (!IS_AGGREGATE(sym->type) && - !(sym->_isparm && !IS_REGPARM(sym->etype)) - && !sym->allocreq && sym->level) - continue ; - - /* if global variable & not static or extern - and addPublics allowed then add it to the public set */ - if ((sym->_isparm && !IS_REGPARM(sym->etype)) - && !IS_STATIC (sym->etype)) - addSetHead (&publics, sym); - - /* if extern then do nothing or is a function - then do nothing */ - if (IS_FUNC (sym->type)) - continue; - - /* print extra debug info if required */ - if (options.debug || sym->level == 0) { - - cdbSymbol(sym,cdbFile,FALSE,FALSE); - - if (!sym->level) { /* global */ - if (IS_STATIC(sym->etype)) - fprintf(afile,"F%s_",moduleName); /* scope is file */ - else - fprintf(afile,"G_"); /* scope is global */ + + for (sym = setFirstItem (ovrset); sym; + sym = setNextItem (ovrset)) + { + + /* if extern then do nothing */ + if (IS_EXTERN (sym->etype)) + continue; + + /* if allocation required check is needed + then check if the symbol really requires + allocation only for local variables */ + if (!IS_AGGREGATE (sym->type) && + !(sym->_isparm && !IS_REGPARM (sym->etype)) + && !sym->allocreq && sym->level) + continue; + + /* if global variable & not static or extern + and addPublics allowed then add it to the public set */ + if ((sym->_isparm && !IS_REGPARM (sym->etype)) + && !IS_STATIC (sym->etype)) + addSetHead (&publics, sym); + + /* if extern then do nothing or is a function + then do nothing */ + if (IS_FUNC (sym->type)) + continue; + + /* print extra debug info if required */ + if (options.debug || sym->level == 0) + { + + cdbSymbol (sym, cdbFile, FALSE, FALSE); + + if (!sym->level) + { /* global */ + if (IS_STATIC (sym->etype)) + fprintf (afile, "F%s_", moduleName); /* scope is file */ + else + fprintf (afile, "G_"); /* scope is global */ } - else - /* symbol is local */ - fprintf(afile,"L%s_", - (sym->localof ? sym->localof->name : "-null-")); - fprintf(afile,"%s_%d_%d",sym->name,sym->level,sym->block); + else + /* symbol is local */ + fprintf (afile, "L%s_", + (sym->localof ? sym->localof->name : "-null-")); + fprintf (afile, "%s_%d_%d", sym->name, sym->level, sym->block); } - - /* if is has an absolute address then generate - an equate for this no need to allocate space */ - if (SPEC_ABSA (sym->etype)) { - - if (options.debug || sym->level == 0) - fprintf (afile," == 0x%04x\n",SPEC_ADDR (sym->etype)); - - fprintf (afile, "%s\t=\t0x%04x\n", - sym->rname, - SPEC_ADDR (sym->etype)); + + /* if is has an absolute address then generate + an equate for this no need to allocate space */ + if (SPEC_ABSA (sym->etype)) + { + + if (options.debug || sym->level == 0) + fprintf (afile, " == 0x%04x\n", SPEC_ADDR (sym->etype)); + + fprintf (afile, "%s\t=\t0x%04x\n", + sym->rname, + SPEC_ADDR (sym->etype)); } - else { - if (options.debug || sym->level == 0) - fprintf(afile,"==.\n"); - - /* allocate space */ - fprintf (afile, "%s:\n", sym->rname); - fprintf (afile, "\t.ds\t0x%04x\n", (unsigned int)getSize (sym->type) & 0xffff); + else + { + if (options.debug || sym->level == 0) + fprintf (afile, "==.\n"); + + /* allocate space */ + fprintf (afile, "%s:\n", sym->rname); + fprintf (afile, "\t.ds\t0x%04x\n", (unsigned int) getSize (sym->type) & 0xffff); } - + } } } @@ -907,249 +991,267 @@ static void pic14emitOverlay(FILE *afile) /*-----------------------------------------------------------------*/ /* glue - the final glue that hold the whole thing together */ /*-----------------------------------------------------------------*/ -void pic14glue () +void +picglue () { - FILE *vFile; - FILE *asmFile; - FILE *ovrFile = tempfile(); - int i; - - addSetHead(&tmpfileSet,ovrFile); - /* print the global struct definitions */ - if (options.debug) - cdbStructBlock (0,cdbFile); - - vFile = tempfile(); - /* PENDING: this isnt the best place but it will do */ - if (port->general.glue_up_main) { - /* create the interrupt vector table */ - pic14createInterruptVect (vFile); + + FILE *vFile; + FILE *asmFile; + FILE *ovrFile = tempfile(); + int i; + + addSetHead(&tmpfileSet,ovrFile); + + + if (mainf && mainf->fbody) { + + pBlock *pb = newpCodeChain(NULL,'X',newpCodeCharP("; Starting pCode block")); + addpBlock(pb); + + /* entry point @ start of CSEG */ + addpCode2pBlock(pb,newpCodeLabelStr("__sdcc_program_startup")); + /* put in the call to main */ + addpCode2pBlock(pb,newpCode(POC_CALL,newpCodeOp("_main",PO_STR))); + + if (options.mainreturn) { + + addpCode2pBlock(pb,newpCodeCharP(";\treturn from main will return to caller\n")); + addpCode2pBlock(pb,newpCode(POC_RETURN,NULL)); + + } else { + + addpCode2pBlock(pb,newpCodeCharP(";\treturn from main will lock up\n")); + addpCode2pBlock(pb,newpCode(POC_GOTO,newpCodeOp("$",PO_STR))); + } + } - addSetHead(&tmpfileSet,vFile); - - /* emit code for the all the variables declared */ - pic14emitMaps (); - /* do the overlay segments */ - pic14emitOverlay(ovrFile); - /* now put it all together into the assembler file */ - /* create the assembler file name */ + /* At this point we've got all the code in the form of pCode structures */ + /* Now it needs to be rearranged into the order it should be placed in the */ + /* code space */ + + movepBlock2Head(code->dbName); // Last + movepBlock2Head('X'); + movepBlock2Head(statsg->dbName); // First + + + AnalyzepCode('*'); //code->dbName); + printCallTree(stderr); + + pCodePeepInit(); + + OptimizepCode(code->dbName); + + + /* print the global struct definitions */ + if (options.debug) + cdbStructBlock (0,cdbFile); + + vFile = tempfile(); + /* PENDING: this isnt the best place but it will do */ + if (port->general.glue_up_main) { + /* create the interrupt vector table */ + pic14createInterruptVect (vFile); + } + + addSetHead(&tmpfileSet,vFile); - if (!options.c1mode) { - sprintf (buffer, srcFileName); - strcat (buffer, ".asm"); - } - else { - strcpy(buffer, options.out_name); - } + /* emit code for the all the variables declared */ + pic14emitMaps (); + /* do the overlay segments */ + pic14emitOverlay(ovrFile); - if (!(asmFile = fopen (buffer, "w"))) { - werror (E_FILE_OPEN_ERR, buffer); - exit (1); - } + + pcode_test(); + + + /* now put it all together into the assembler file */ + /* create the assembler file name */ - /* initial comments */ - pic14initialComments (asmFile); + if (!options.c1mode) { + sprintf (buffer, srcFileName); + strcat (buffer, ".asm"); + } + else { + strcpy(buffer, options.out_name); + } + + if (!(asmFile = fopen (buffer, "w"))) { + werror (E_FILE_OPEN_ERR, buffer); + exit (1); + } - /* print module name */ - fprintf (asmFile, ";\t.module %s\n", moduleName); + /* initial comments */ + pic14initialComments (asmFile); - /* Let the port generate any global directives, etc. */ - if (port->genAssemblerPreamble) + /* print module name */ + fprintf (asmFile, ";\t.module %s\n", moduleName); + + /* Let the port generate any global directives, etc. */ + if (port->genAssemblerPreamble) { - port->genAssemblerPreamble(asmFile); + port->genAssemblerPreamble(asmFile); } - /* print the global variables in this module */ - pic14printPublics (asmFile); + /* print the global variables in this module */ + pic14printPublics (asmFile); - /* copy the sfr segment */ - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; special function registers\n"); - fprintf (asmFile, "%s", iComments2); - copyFile (asmFile, sfr->oFile); + /* copy the sfr segment */ + fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, "; special function registers\n"); + fprintf (asmFile, "%s", iComments2); + copyFile (asmFile, sfr->oFile); - /* Put all variables into a cblock */ - fprintf (asmFile, "\n\n\tcblock 0x13\n\n"); + /* Put all variables into a cblock */ + fprintf (asmFile, "\n\n\tcblock 0x0c\n\n"); - for(i=0; i=0x0c) ) - fprintf (asmFile, "\t%s\n",regspic14[i].name); - } - //fprintf (asmFile, "\tr0x0C\n"); - //fprintf (asmFile, "\tr0x0D\n"); + for(i=0; i=0x0c) ) + fprintf (asmFile, "\t%s\n",regspic14[i].name); + } - /* For now, create a "dpl" and a "dph" in the register space */ - /* of the pic so that we can use the same calling mechanism */ - /* as the 8051 port */ - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; dpl and dph to emulate the 8051 calling mechanism \n"); - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "\tdph\n"); + /* For now, create a "dpl" and a "dph" in the register space */ + /* of the pic so that we can use the same calling mechanism */ + /* as the 8051 port */ + fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, "; dpl and dph to emulate the 8051 calling mechanism \n"); + fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, "\tdph\n"); - /* copy the sbit segment */ - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; special function bits \n"); - fprintf (asmFile, "%s", iComments2); - copyFile (asmFile, sfrbit->oFile); + + /* copy the sbit segment */ + fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, "; special function bits \n"); + fprintf (asmFile, "%s", iComments2); + copyFile (asmFile, sfrbit->oFile); - /* copy the data segment */ - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; internal ram data\n"); - fprintf (asmFile, "%s", iComments2); - copyFile (asmFile, data->oFile); + /* copy the data segment */ + fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, "; internal ram data\n"); + fprintf (asmFile, "%s", iComments2); + copyFile (asmFile, data->oFile); + + /* create the overlay segments */ + fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, "; overlayable items in internal ram \n"); + fprintf (asmFile, "%s", iComments2); + copyFile (asmFile, ovrFile); - /* create the overlay segments */ + /* create the stack segment MOF */ + if (mainf && mainf->fbody) { fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; overlayable items in internal ram \n"); + fprintf (asmFile, "; Stack segment in internal ram \n"); fprintf (asmFile, "%s", iComments2); - copyFile (asmFile, ovrFile); - - /* create the stack segment MOF */ - if (mainf && mainf->fbody) { - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; Stack segment in internal ram \n"); - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, ";\t.area\tSSEG\t(DATA)\n" - ";__start__stack:\n;\t.ds\t1\n\n"); - } - - /* create the idata segment */ + fprintf (asmFile, ";\t.area\tSSEG\t(DATA)\n" + ";__start__stack:\n;\t.ds\t1\n\n"); + } + + /* create the idata segment */ + fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, "; indirectly addressable internal ram data\n"); + fprintf (asmFile, "%s", iComments2); + copyFile (asmFile, idata->oFile); + + /* if external stack then reserve space of it */ + if (mainf && mainf->fbody && options.useXstack ) { fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; indirectly addressable internal ram data\n"); + fprintf (asmFile, "; external stack \n"); fprintf (asmFile, "%s", iComments2); - copyFile (asmFile, idata->oFile); - - /* if external stack then reserve space of it */ - if (mainf && mainf->fbody && options.useXstack ) { - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; external stack \n"); - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile,";\t.area XSEG (XDATA)\n"); /* MOF */ - fprintf (asmFile,";\t.ds 256\n"); - } + fprintf (asmFile,";\t.area XSEG (XDATA)\n"); /* MOF */ + fprintf (asmFile,";\t.ds 256\n"); + } - /* copy xtern ram data */ - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; external ram data\n"); - fprintf (asmFile, "%s", iComments2); - copyFile (asmFile, xdata->oFile); + /* copy xtern ram data */ + fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, "; external ram data\n"); + fprintf (asmFile, "%s", iComments2); + copyFile (asmFile, xdata->oFile); - fprintf (asmFile, "\tendc\n"); + fprintf (asmFile, "\tendc\n"); - /* copy the bit segment */ - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; bit data\n"); - fprintf (asmFile, "%s", iComments2); - copyFile (asmFile, bit->oFile); + /* copy the bit segment */ + fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, "; bit data\n"); + fprintf (asmFile, "%s", iComments2); + copyFile (asmFile, bit->oFile); - fprintf (asmFile, "\tORG 0\n"); + fprintf (asmFile, "\tORG 0\n"); - /* copy the interrupt vector table */ - if (mainf && mainf->fbody) { - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; interrupt vector \n"); - fprintf (asmFile, "%s", iComments2); - copyFile (asmFile, vFile); - } - - /* copy global & static initialisations */ + /* copy the interrupt vector table */ + if (mainf && mainf->fbody) { fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; global & static initialisations\n"); + fprintf (asmFile, "; interrupt vector \n"); fprintf (asmFile, "%s", iComments2); + copyFile (asmFile, vFile); + } - /* Everywhere we generate a reference to the static_name area, - * (which is currently only here), we immediately follow it with a - * definition of the post_static_name area. This guarantees that - * the post_static_name area will immediately follow the static_name - * area. - */ - fprintf (asmFile, ";\t.area %s\n", port->mem.static_name); /* MOF */ - fprintf (asmFile, ";\t.area %s\n", port->mem.post_static_name); - fprintf (asmFile, ";\t.area %s\n", port->mem.static_name); + /* copy global & static initialisations */ + fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, "; global & static initialisations\n"); + fprintf (asmFile, "%s", iComments2); - if (mainf && mainf->fbody) { - fprintf (asmFile,"__sdcc_gsinit_startup:\n"); - /* if external stack is specified then the - higher order byte of the xdatalocation is - going into P2 and the lower order going into - spx */ - if (options.useXstack) { - fprintf(asmFile,";\tmov\tP2,#0x%02x\n", - (((unsigned int)options.xdata_loc) >> 8) & 0xff); - fprintf(asmFile,";\tmov\t_spx,#0x%02x\n", - (unsigned int)options.xdata_loc & 0xff); - } - - /* initialise the stack pointer */ - /* if the user specified a value then use it */ - if (options.stack_loc) - fprintf(asmFile,";\tmov\tsp,#%d\n",options.stack_loc); - else - /* no: we have to compute it */ - if (!options.stackOnData && maxRegBank <= 3) - fprintf(asmFile,";\tmov\tsp,#%d\n",((maxRegBank + 1) * 8) -1); - else - fprintf(asmFile,";\tmov\tsp,#__start__stack\n"); /* MOF */ - - fprintf (asmFile,";\tlcall\t__sdcc_external_startup\n"); - fprintf (asmFile,";\tmov\ta,dpl\n"); - fprintf (asmFile,";\tjz\t__sdcc_init_data\n"); - fprintf (asmFile,";\tljmp\t__sdcc_program_startup\n"); - fprintf (asmFile,";__sdcc_init_data:\n"); - + /* Everywhere we generate a reference to the static_name area, + * (which is currently only here), we immediately follow it with a + * definition of the post_static_name area. This guarantees that + * the post_static_name area will immediately follow the static_name + * area. + */ + fprintf (asmFile, ";\t.area %s\n", port->mem.static_name); /* MOF */ + fprintf (asmFile, ";\t.area %s\n", port->mem.post_static_name); + fprintf (asmFile, ";\t.area %s\n", port->mem.static_name); + + if (mainf && mainf->fbody) { + fprintf (asmFile,"__sdcc_gsinit_startup:\n"); + /* if external stack is specified then the + higher order byte of the xdatalocation is + going into P2 and the lower order going into + spx */ + if (options.useXstack) { + fprintf(asmFile,";\tmov\tP2,#0x%02x\n", + (((unsigned int)options.xdata_loc) >> 8) & 0xff); + fprintf(asmFile,";\tmov\t_spx,#0x%02x\n", + (unsigned int)options.xdata_loc & 0xff); } - copyFile (asmFile, statsg->oFile); - if (port->general.glue_up_main && mainf && mainf->fbody) + } + + if (port->general.glue_up_main && mainf && mainf->fbody) { - /* This code is generated in the post-static area. - * This area is guaranteed to follow the static area - * by the ugly shucking and jiving about 20 lines ago. - */ - fprintf(asmFile, ";\t.area %s\n", port->mem.post_static_name); - fprintf (asmFile,";\tljmp\t__sdcc_program_startup\n"); + /* This code is generated in the post-static area. + * This area is guaranteed to follow the static area + * by the ugly shucking and jiving about 20 lines ago. + */ + fprintf(asmFile, ";\t.area %s\n", port->mem.post_static_name); + fprintf (asmFile,";\tljmp\t__sdcc_program_startup\n"); } - /* copy over code */ - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "; code\n"); - fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, ";\t.area %s\n", port->mem.code_name); - if (mainf && mainf->fbody) { - - /* entry point @ start of CSEG */ - fprintf (asmFile,"__sdcc_program_startup:\n"); - - /* put in the call to main */ - fprintf(asmFile,"\tcall\t_main\n"); - if (options.mainreturn) { + /* copy over code */ + fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, "; code\n"); + fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, ";\t.area %s\n", port->mem.code_name); - fprintf(asmFile,";\treturn from main ; will return to caller\n"); - fprintf(asmFile,"\treturn\n"); + //copyFile (asmFile, code->oFile); - } else { - - fprintf(asmFile,";\treturn from main will lock up\n"); - fprintf(asmFile,"\tgoto\t$\n"); - } - } - copyFile (asmFile, code->oFile); - - fprintf (asmFile,"\tend\n"); + copypCode(asmFile, statsg->dbName); + copypCode(asmFile, 'X'); + copypCode(asmFile, code->dbName); + + + fprintf (asmFile,"\tend\n"); - fclose (asmFile); - applyToSet(tmpfileSet,closeTmpFiles); - applyToSet(tmpfileNameSet, rmTmpFiles); + fclose (asmFile); + applyToSet(tmpfileSet,closeTmpFiles); + applyToSet(tmpfileNameSet, rmTmpFiles); }