X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2FSDCCglue.c;h=31ebf5b94868cae645376ba620bd58a5bf646995;hb=e8af787a7af30e7d132b40a278b1d131032f3b88;hp=877798738991f2adaa3030f1032e5f6114ec255a;hpb=9ae6ce03852da0469517b41b7ffbbeed00fe3a2b;p=fw%2Fsdcc diff --git a/src/SDCCglue.c b/src/SDCCglue.c index 87779873..31ebf5b9 100644 --- a/src/SDCCglue.c +++ b/src/SDCCglue.c @@ -23,6 +23,7 @@ -------------------------------------------------------------------------*/ #include "common.h" +#include "asm.h" #include symbol *interrupts[256]; @@ -30,14 +31,17 @@ symbol *interrupts[256]; void printIval (symbol *, link *, initList *, FILE *); extern int noAlloc; set *publics = NULL; /* public variables */ +set *externs = NULL; /* Varibles that are declared as extern */ /* TODO: this should be configurable (DS803C90 uses more than 6) */ int maxInterrupts = 6; +int allocInfo = 1; extern int maxRegBank ; symbol *mainf; extern char *VersionString; extern FILE *codeOutFile; set *tmpfileSet = NULL; /* set of tmp file created by the compiler */ +set *tmpfileNameSet = NULL; /* All are unlinked at close. */ /*-----------------------------------------------------------------*/ /* closeTmpFiles - closes all tmp files created by the compiler */ /* because of BRAIN DEAD MS/DOS & CYGNUS Libraries */ @@ -52,6 +56,21 @@ DEFSETFUNC(closeTmpFiles) return 0; } +/*-----------------------------------------------------------------*/ +/* rmTmpFiles - closes all tmp files created by the compiler */ +/* because of BRAIN DEAD MS/DOS & CYGNUS Libraries */ +/*-----------------------------------------------------------------*/ +DEFSETFUNC(rmTmpFiles) +{ + char *name = item; + + if (name) { + unlink(name); + free(name); + } + return 0; +} + /*-----------------------------------------------------------------*/ /* copyFile - copies source file to destination file */ /*-----------------------------------------------------------------*/ @@ -65,10 +84,7 @@ void copyFile (FILE * dest, FILE * src) fputc (ch, dest); } -/*-----------------------------------------------------------------*/ -/* aopLiteral - string from a literal value */ -/*-----------------------------------------------------------------*/ -char *aopLiteral (value *val, int offset) +char *aopLiteralLong(value *val, int offset, int size) { char *rs; union { @@ -82,22 +98,43 @@ char *aopLiteral (value *val, int offset) unsigned long v = floatFromVal(val); v >>= (offset * 8); - sprintf(buffer,"#0x%02x",((char) v) & 0xff); + switch (size) { + case 1: + tsprintf(buffer, "!immedbyte", (unsigned int)v & 0xff); + break; + case 2: + tsprintf(buffer, "!immedword", (unsigned int)v & 0xffff); + break; + default: + /* Hmm. Too big for now. */ + assert(0); + } ALLOC_ATOMIC(rs,strlen(buffer)+1); return strcpy (rs,buffer); } + /* PENDING: For now size must be 1 */ + assert(size == 1); + /* it is type float */ fl.f = (float) floatFromVal(val); -#ifdef _BIG_ENDIAN - sprintf(buffer,"#0x%02x",fl.c[3-offset]); +#ifdef _BIG_ENDIAN + tsprintf(buffer, "!immedbyte", fl.c[3-offset]); #else - sprintf(buffer,"#0x%02x",fl.c[offset]); + tsprintf(buffer, "!immedbyte", fl.c[offset]); #endif ALLOC_ATOMIC(rs,strlen(buffer)+1); return strcpy (rs,buffer); } +/*-----------------------------------------------------------------*/ +/* aopLiteral - string from a literal value */ +/*-----------------------------------------------------------------*/ +char *aopLiteral (value *val, int offset) +{ + return aopLiteralLong(val, offset, 1); +} + /*-----------------------------------------------------------------*/ /* emitRegularMap - emit code for maps with no special cases */ /*-----------------------------------------------------------------*/ @@ -105,16 +142,23 @@ static void emitRegularMap (memmap * map, bool addPublics, bool arFlag) { symbol *sym; - if (addPublics) - fprintf (map->oFile, "\t.area\t%s\n", map->sname); + if (addPublics) { + /* PENDING: special case here - should remove */ + if (!strcmp(map->sname, DATA_NAME)) + tfprintf(map->oFile, "\t!areadata\n", map->sname); + else + tfprintf(map->oFile, "\t!area\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)) + /* if extern then add it into the extern list */ + if (IS_EXTERN (sym->etype)) { + addSetHead (&externs, sym); continue; + } /* if allocation required check is needed then check if the symbol really requires @@ -138,7 +182,7 @@ static void emitRegularMap (memmap * map, bool addPublics, bool arFlag) continue; /* print extra debug info if required */ - if (options.debug || sym->level == 0) { + if ((options.debug || sym->level == 0) && !options.nodebug) { cdbSymbol(sym,cdbFile,FALSE,FALSE); @@ -156,7 +200,7 @@ static void emitRegularMap (memmap * map, bool addPublics, bool arFlag) /* 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) + if ((options.debug || sym->level == 0) && !options.nodebug) fprintf (map->oFile," == 0x%04x\n",SPEC_ADDR (sym->etype)); fprintf (map->oFile, "%s\t=\t0x%04x\n", @@ -165,10 +209,13 @@ static void emitRegularMap (memmap * map, bool addPublics, bool arFlag) } else { /* allocate space */ - if (options.debug || sym->level == 0) + if ((options.debug || sym->level == 0) && !options.nodebug) fprintf(map->oFile,"==.\n"); - fprintf (map->oFile, "%s:\n", sym->rname); - fprintf (map->oFile, "\t.ds\t0x%04x\n", (unsigned int)getSize (sym->type) & 0xffff); + if (IS_STATIC(sym->etype)) + tfprintf(map->oFile, "!slabeldef\n", sym->rname); + else + tfprintf(map->oFile, "!labeldef\n", sym->rname); + tfprintf(map->oFile, "\t!ds\n", (unsigned int)getSize (sym->type) & 0xffff); } /* if it has a initial value then do it only if @@ -182,7 +229,9 @@ static void emitRegularMap (memmap * map, bool addPublics, bool arFlag) ival = newNode ('=', newAst (EX_VALUE, symbolVal (sym)), decorateType (resolveSymbols (list2expr (sym->ival)))); codeOutFile = statsg->oFile; + allocInfo = 0; eBBlockFromiCode (iCodeFromAst (ival)); + allocInfo = 1; sym->ival = NULL; } } @@ -214,7 +263,7 @@ value *initPointer (initList *ilist) val->type = newLink(); if (SPEC_SCLS(expr->left->etype) == S_CODE) { DCL_TYPE(val->type) = CPOINTER ; - DCL_PTR_CONST(val->type) = 1; + DCL_PTR_CONST(val->type) = port->mem.code_ro; } else if (SPEC_SCLS(expr->left->etype) == S_XDATA) @@ -226,8 +275,8 @@ value *initPointer (initList *ilist) if (SPEC_SCLS(expr->left->etype) == S_IDATA) DCL_TYPE(val->type) = IPOINTER ; else - if (SPEC_SCLS(expr->left->etype) == S_FLASH) - DCL_TYPE(val->type) = FLPOINTER ; + 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; @@ -253,7 +302,21 @@ value *initPointer (initList *ilist) expr->left->opval.op == PTR_OP && IS_ADDRESS_OF_OP(expr->left->left)) return valForStructElem(expr->left->left->left, - expr->left->right); + expr->left->right); + + } + /* case 3. (((char *) &a) +/- constant) */ + if (IS_AST_OP(expr) && + (expr->opval.op == '+' || expr->opval.op == '-') && + IS_AST_OP(expr->left) && expr->left->opval.op == CAST && + IS_AST_OP(expr->left->right) && + expr->left->right->opval.op == '&' && + IS_AST_LIT_VALUE(expr->right)) { + + return valForCastAggr(expr->left->right->left, + expr->left->left->opval.lnk, + expr->right,expr->opval.op); + } wrong: @@ -270,29 +333,38 @@ void printChar (FILE * ofile, char *s, int plen) int i; int len = strlen (s); int pplen = 0; - - while (len && pplen < plen) { + char buf[100]; + char *p = buf; - fprintf (ofile, "\t.ascii /"); + while (len && pplen < plen) { i = 60; while (i && *s && pplen < plen) { - if (*s < ' ' || *s == '/') { - fprintf (ofile, "/\n\t.byte 0x%02x\n\t.ascii /", *s++); + if (*s < ' ' || *s == '\"') { + *p = '\0'; + if (p != buf) + tfprintf(ofile, "\t!ascii\n", buf); + tfprintf(ofile, "\t!db\n", *s); + p = buf; } - else - fprintf (ofile, "%c", *s++); + else { + *p = *s; + p++; + } + s++; pplen++; i--; } - fprintf (ofile, "/\n"); + if (p != buf) { + *p = '\0'; + tfprintf(ofile, "\t!ascii\n", buf); + } if (len > 60) len -= 60; else len = 0; } - if (pplen < plen) - fprintf(ofile,"\t.byte\t0\n"); + tfprintf(ofile, "\t!db\n", 0); } /*-----------------------------------------------------------------*/ @@ -310,31 +382,27 @@ void printIvalType (link * type, initList * ilist, FILE * oFile) switch (getSize (type)) { case 1: if (!val) - fprintf (oFile, "\t.byte 0\n"); + tfprintf(oFile, "\t!db\n", 0); else - fprintf (oFile, "\t.byte %s\n", + tfprintf(oFile, "\t!dbs\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)); + 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 + if (!val) { + tfprintf (oFile, "\t!dw\n", 0); + tfprintf (oFile, "\t!dw\n", 0); + } + else { fprintf (oFile, "\t.byte %s,%s,%s,%s\n", aopLiteral (val, 0), aopLiteral (val, 1), aopLiteral (val, 2), aopLiteral (val, 3)); + } break; } - - return; } /*-----------------------------------------------------------------*/ @@ -384,7 +452,7 @@ int printIvalChar (link * type, initList * ilist, FILE * oFile, char *s) if ((remain = (DCL_ELEM (type) - strlen (SPEC_CVAL (val->etype).v_char) -1))>0) while (remain--) - fprintf (oFile, "\t.byte 0\n"); + tfprintf (oFile, "\t!db\n", 0); return 1; } @@ -458,23 +526,22 @@ void printIvalFuncPtr (link * type, initList * ilist, FILE * oFile) val = list2val (ilist); /* check the types */ if ((dLvl = checkType (val->type, type->next)) <= 0) { - - fprintf (oFile, "\t.word 0\n"); + tfprintf(oFile, "\t!dw\n", 0); 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); + if (port->use_dw_for_init) + tfprintf(oFile, "\t!dw %s\n", val->name); + else + fprintf(oFile, "\t.byte %s,(%s >> 8)\n", val->name,val->name); } - else - fprintf (oFile, "\t.byte %s,(%s >> 8)\n", - val->sym->rname, val->sym->rname); + else + if (port->use_dw_for_init) + tfprintf(oFile, "\t!dws\n", val->sym->rname); + else + fprintf(oFile, "\t.byte %s,(%s >> 8)\n", val->sym->rname,val->sym->rname); return; } @@ -486,21 +553,53 @@ int printIvalCharPtr (symbol * sym, link * type, value * val, FILE * oFile) { int size = 0; + /* PENDING: this is _very_ mcs51 specific, including a magic + number... + It's also endin specific. + */ 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->name && strlen(val->name)) { + switch (size) { + case 1: + tfprintf(oFile, + "\t!dbs\n", val->name) ; + break; + case 2: + if (port->use_dw_for_init) + tfprintf(oFile, "\t!dws\n", val->name); + else + fprintf(oFile, "\t.byte %s,(%s >> 8)\n", val->name, val->name); + break; + /* PENDING: probably just 3 */ + default: + /* PENDING: 0x02 or 0x%02x, CDATA? */ + fprintf (oFile, + "\t.byte %s,(%s >> 8),#0x%02x\n", + val->name, val->name, (IS_PTR(val->type) ? DCL_TYPE(val->type) : + PTR_TYPE(SPEC_OCLS(val->etype)))); + } + } + else { + switch (size) { + case 1: + tfprintf(oFile, "\t!dbs\n", aopLiteral(val, 0)); + break; + case 2: + tfprintf(oFile, "\t.byte %s,%s\n", + aopLiteral(val, 0),aopLiteral(val, 1)); + break; + case 3: + /* PENDING: 0x02 or 0x%02x, CDATA? */ + fprintf(oFile, "\t.byte %s,%s,#0x02\n", + aopLiteral (val, 0), aopLiteral (val, 1)); + break; + default: + assert(0); + } + } + + if (val->sym && val->sym->isstrlit) addSet (&statsg->syms, val->sym); @@ -540,16 +639,14 @@ void printIvalPtr (symbol * sym, link * type, initList * ilist, FILE * oFile) if (IS_LITERAL (val->etype)) { switch (getSize (type)) { case 1: - fprintf (oFile, "\t.byte 0x%02x\n", ((char) floatFromVal (val)) & 0xff); + tfprintf(oFile, "\t!db\n", (unsigned int)floatFromVal(val) & 0xff); break; case 2: - fprintf (oFile, "\t.byte %s,%s\n", - aopLiteral (val, 0), aopLiteral (val, 1)); - + tfprintf (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,#0x02\n", + aopLiteral (val, 0), aopLiteral (val, 1)); } return; } @@ -557,15 +654,16 @@ void printIvalPtr (symbol * sym, link * type, initList * ilist, FILE * oFile) switch (getSize (type)) { case 1: - fprintf (oFile, "\t.byte %s\n", val->name); + tfprintf (oFile, "\t!dbs\n", val->name); break; case 2: - fprintf (oFile, "\t.byte %s,(%s >> 8)\n", val->name, val->name); + tfprintf (oFile, "\t!dws\n", 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,(IS_PTR(val->type) ? DCL_TYPE(val->type) : + PTR_TYPE(SPEC_OCLS(val->etype)))); } return; } @@ -627,7 +725,7 @@ void emitStaticSeg (memmap * map) addSetHead (&publics, sym); /* print extra debug info if required */ - if (options.debug || sym->level == 0) { + if ((options.debug || sym->level == 0) && !options.nodebug) { cdbSymbol(sym,cdbFile,FALSE,FALSE); @@ -646,7 +744,7 @@ void emitStaticSeg (memmap * map) /* if it has an absolute address */ if (SPEC_ABSA (sym->etype)) { - if (options.debug || sym->level == 0) + if ((options.debug || sym->level == 0) && !options.nodebug) fprintf(code->oFile," == 0x%04x\n", SPEC_ADDR (sym->etype)); fprintf (code->oFile, "%s\t=\t0x%04x\n", @@ -654,7 +752,7 @@ void emitStaticSeg (memmap * map) SPEC_ADDR (sym->etype)); } else { - if (options.debug || sym->level == 0) + if ((options.debug || sym->level == 0) && !options.nodebug) fprintf(code->oFile," == .\n"); /* if it has an initial value */ @@ -674,8 +772,8 @@ void emitStaticSeg (memmap * map) 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 + tfprintf(code->oFile, "\t!ds\n", (unsigned int)getSize (sym->type)& 0xffff); } } } @@ -722,7 +820,7 @@ void createInterruptVect (FILE * vFile) return; } - fprintf (vFile, "\t.area\t%s\n", CODE_NAME); + tfprintf(vFile, "\t!areacode\n", CODE_NAME); fprintf (vFile, "__interrupt_vect:\n"); @@ -776,12 +874,28 @@ void printPublics (FILE * afile) symbol *sym; fprintf (afile, "%s", iComments2); - fprintf (afile, "; publics variables in this module\n"); + fprintf (afile, "; Public 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); + tfprintf(afile, "\t!global\n", sym->rname); +} + +/*-----------------------------------------------------------------*/ +/* printExterns - generates .global for externs */ +/*-----------------------------------------------------------------*/ +void printExterns (FILE * afile) +{ + symbol *sym; + + fprintf (afile, "%s", iComments2); + fprintf (afile, "; Externals used\n"); + fprintf (afile, "%s", iComments2); + + for (sym = setFirstItem (externs); sym; + sym = setNextItem (externs)) + tfprintf(afile, "\t!global\n", sym->rname); } /*-----------------------------------------------------------------*/ @@ -792,7 +906,7 @@ static void emitOverlay(FILE *afile) set *ovrset; if (!elementsInSet(ovrSetSets)) - fprintf(afile,"\t.area\t%s\n", port->mem.overlay_name); + tfprintf(afile,"\t!area\n", port->mem.overlay_name); /* for each of the sets in the overlay segment do */ for (ovrset = setFirstItem(ovrSetSets); ovrset; @@ -812,8 +926,8 @@ static void emitOverlay(FILE *afile) for (sym = setFirstItem(ovrset); sym; sym = setNextItem(ovrset)) { - - /* if extern then do nothing */ + + /* if extern then add it to the publics tabledo nothing */ if (IS_EXTERN (sym->etype)) continue; @@ -837,7 +951,7 @@ static void emitOverlay(FILE *afile) continue; /* print extra debug info if required */ - if (options.debug || sym->level == 0) { + if ((options.debug || sym->level == 0) && !options.nodebug) { cdbSymbol(sym,cdbFile,FALSE,FALSE); @@ -858,7 +972,7 @@ static void emitOverlay(FILE *afile) an equate for this no need to allocate space */ if (SPEC_ABSA (sym->etype)) { - if (options.debug || sym->level == 0) + if ((options.debug || sym->level == 0) && !options.nodebug) fprintf (afile," == 0x%04x\n",SPEC_ADDR (sym->etype)); fprintf (afile, "%s\t=\t0x%04x\n", @@ -866,12 +980,12 @@ static void emitOverlay(FILE *afile) SPEC_ADDR (sym->etype)); } else { - if (options.debug || sym->level == 0) + if ((options.debug || sym->level == 0) && !options.nodebug) fprintf(afile,"==.\n"); /* allocate space */ - fprintf (afile, "%s:\n", sym->rname); - fprintf (afile, "\t.ds\t0x%04x\n", (unsigned int)getSize (sym->type) & 0xffff); + tfprintf(afile, "!labeldef\n", sym->rname); + tfprintf(afile, "\t!ds\n", (unsigned int)getSize (sym->type) & 0xffff); } } @@ -885,14 +999,14 @@ void glue () { FILE *vFile; FILE *asmFile; - FILE *ovrFile = tmpfile(); + FILE *ovrFile = tempfile(); addSetHead(&tmpfileSet,ovrFile); /* print the global struct definitions */ if (options.debug) cdbStructBlock (0,cdbFile); - vFile = tmpfile(); + vFile = tempfile(); /* PENDING: this isnt the best place but it will do */ if (port->general.glue_up_main) { /* create the interrupt vector table */ @@ -926,8 +1040,9 @@ void glue () initialComments (asmFile); /* print module name */ - fprintf (asmFile, "\t.module %s\n", moduleName); - + tfprintf(asmFile, "\t!module\n", moduleName); + tfprintf(asmFile, "\t!fileprelude\n"); + /* Let the port generate any global directives, etc. */ if (port->genAssemblerPreamble) { @@ -936,7 +1051,9 @@ void glue () /* print the global variables in this module */ printPublics (asmFile); - + if (port->assembler.externGlobal) + printExterns (asmFile); + /* copy the sfr segment */ fprintf (asmFile, "%s", iComments2); fprintf (asmFile, "; special function registers\n"); @@ -966,7 +1083,7 @@ void glue () if (mainf && mainf->fbody) { fprintf (asmFile, "%s", iComments2); fprintf (asmFile, "; Stack segment in internal ram \n"); - fprintf (asmFile, "%s", iComments2); + fprintf (asmFile, "%s", iComments2); fprintf (asmFile, "\t.area\tSSEG\t(DATA)\n" "__start__stack:\n\t.ds\t1\n\n"); } @@ -1018,9 +1135,9 @@ void glue () * 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); + tfprintf(asmFile, "\t!area\n", port->mem.static_name); /* MOF */ + tfprintf(asmFile, "\t!area\n", port->mem.post_static_name); + tfprintf(asmFile, "\t!area\n", port->mem.static_name); if (mainf && mainf->fbody) { fprintf (asmFile,"__sdcc_gsinit_startup:\n"); @@ -1061,7 +1178,7 @@ void glue () * 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); + tfprintf(asmFile, "\t!area\n", port->mem.post_static_name); fprintf (asmFile,"\tljmp\t__sdcc_program_startup\n"); } @@ -1069,7 +1186,7 @@ void glue () fprintf (asmFile, "%s", iComments2); fprintf (asmFile, "; code\n"); fprintf (asmFile, "%s", iComments2); - fprintf (asmFile, "\t.area %s\n", port->mem.code_name); + tfprintf(asmFile, "\t!areacode\n", CODE_NAME); if (mainf && mainf->fbody) { /* entry point @ start of CSEG */ @@ -1092,4 +1209,39 @@ void glue () fclose (asmFile); applyToSet(tmpfileSet,closeTmpFiles); + applyToSet(tmpfileNameSet, rmTmpFiles); +} + +/** Creates a temporary file a'la tmpfile which avoids the bugs + in cygwin wrt c:\tmp. + Scans, in order: TMP, TEMP, TMPDIR, else uses tmpfile(). +*/ +FILE *tempfile(void) +{ + const char *tmpdir = NULL; + if (getenv("TMP")) + tmpdir = getenv("TMP"); + else if (getenv("TEMP")) + tmpdir = getenv("TEMP"); + else if (getenv("TMPDIR")) + tmpdir = getenv("TMPDIR"); + if (tmpdir) { + char *name = tempnam(tmpdir, "sdcc"); + if (name) { + FILE *fp = fopen(name, "w+b"); + if (fp) + addSetHead(&tmpfileNameSet, name); + return fp; + } + return NULL; + } + return tmpfile(); +} + +char *gc_strdup(const char *s) +{ + char *ret; + ALLOC_ATOMIC(ret, strlen(s)+1); + strcpy(ret, s); + return ret; }