X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fpic%2Fdevice.c;h=ffb95d014918e0dc7ff456c9dcb4066cbedddaeb;hb=f3a44fc094dc5ce393e2029d3c7c6587a4b1a835;hp=bdb3cf6a2c21781746bd78e8fe5c25d05a3660ad;hpb=960cb9272de7e7c6e32710463a0de6ec398ece8b;p=fw%2Fsdcc diff --git a/src/pic/device.c b/src/pic/device.c index bdb3cf6a..ffb95d01 100644 --- a/src/pic/device.c +++ b/src/pic/device.c @@ -18,385 +18,454 @@ Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -------------------------------------------------------------------------*/ -#include - -#include "common.h" // Include everything in the SDCC src directory -#include "newalloc.h" - - -#include "pcode.h" -#include "ralloc.h" #include "device.h" -#if defined(__BORLANDC__) || defined(_MSC_VER) -#define STRCASECMP stricmp -#else -#define STRCASECMP strcasecmp -#endif - -/* 16F627 */ -memRange p16f627_mem[] = { - {0x20, 0x6f, 0x00, 0}, - {0xa0, 0xef, 0x00, 1}, - {0x120, 0x14f, 0x00, 2}, - {0x70, 0x7f, 0x180, 0}, - {-1, -1, -1, -1} /* end indicator */ -}; -memRange p16f627_sfr[] = { - {0x00, 0x00, 0x180, 0}, - {0x01, 0x01, 0x100, 0}, - {0x02, 0x04, 0x180, 0}, - {0x05, 0x05, 0x000, 0}, - {0x06, 0x06, 0x100, 0}, - {0x81, 0x81, 0x100, 1}, - {0x85, 0x85, 0x000, 1}, - {0x86, 0x86, 0x100, 1}, - {0x0a, 0x0b, 0x180, 0}, - {0x0c, 0x0c, 0x000, 0}, - {0x0e, 0x12, 0x000, 0}, - {0x15, 0x1a, 0x000, 0}, - {0x1f, 0x1f, 0x000, 0}, - {0x8e, 0x8e, 0x000, 1}, - {0x92, 0x92, 0x000, 1}, - {0x98, 0x9d, 0x000, 1}, - {0x9f, 0x9f, 0x000, 1}, - - {-1, -1, -1, -1} /* end indicator */ -}; - -/* 16F84 */ -memRange p16f84_mem[] = { - {0x0c, 0x4f, 0x80, 0}, - {-1, -1, -1, -1} /* end indicator */ -}; -memRange p16f84_sfr[] = { - {0x01, 0x01, 0x00, 0}, - {0x02, 0x04, 0x80, 0}, - {0x05, 0x06, 0x00, 0}, - {0x81, 0x81, 0x00, 1}, - {0x85, 0x86, 0x00, 1}, - {0x08, 0x09, 0x00, 0}, - {0x88, 0x89, 0x00, 1}, - {0x0a, 0x0b, 0x80, 0}, - {-1, -1, -1, -1} /* end indicator */ -}; - -/* 16F877 */ -memRange p16f877_mem[] = { - {0x20, 0x6f, 0x00, 0}, - {0xa0, 0xef, 0x00, 1}, - {0x110, 0x16f, 0x00, 2}, - {0x190, 0x1ef, 0x00, 3}, - {0x70, 0x7f, 0x180, 0}, - {-1, -1, -1, -1} /* end indicator */ -}; -memRange p16f877_sfr[] = { - {0x00, 0x00, 0x180, 0}, - {0x01, 0x01, 0x100, 0}, - {0x02, 0x04, 0x180, 0}, - {0x05, 0x05, 0x000, 0}, - {0x85, 0x85, 0x000, 1}, - {0x81, 0x81, 0x100, 1}, - {0x06, 0x06, 0x100, 0}, - {0x86, 0x86, 0x100, 1}, - {0x07, 0x09, 0x000, 0}, - {0x87, 0x89, 0x000, 1}, - {0x0a, 0x0b, 0x180, 0}, - {0x0c, 0x1f, 0x000, 0}, - {0x8c, 0x8e, 0x000, 1}, - {0x91, 0x94, 0x000, 1}, - {0x98, 0x99, 0x000, 1}, - {0x9e, 0x9f, 0x000, 1}, - {0x10c, 0x10f, 0x000, 2}, - {0x18c, 0x18f, 0x000, 3}, - - {-1, -1, -1, -1} /* end indicator */ -}; - -/* 16F873 */ -memRange p16f873_mem[] = { - {0x20, 0x7f, 0x100, 0}, - {0xa0, 0xff, 0x100, 1}, - {-1, -1, -1, -1} /* end indicator */ -}; -memRange p16f873_sfr[] = { - {0x00, 0x00, 0x180, 0}, - {0x01, 0x01, 0x100, 0}, - {0x02, 0x04, 0x180, 0}, - {0x05, 0x05, 0x000, 0}, - {0x85, 0x85, 0x000, 1}, - {0x81, 0x81, 0x100, 1}, - {0x06, 0x06, 0x100, 0}, - {0x86, 0x86, 0x100, 1}, - {0x07, 0x09, 0x000, 0}, - {0x87, 0x89, 0x000, 1}, - {0x0a, 0x0b, 0x180, 0}, - {0x0c, 0x1f, 0x000, 0}, - {0x8c, 0x8e, 0x000, 1}, - {0x91, 0x94, 0x000, 1}, - {0x98, 0x99, 0x000, 1}, - {0x9e, 0x9f, 0x000, 1}, - {0x10c, 0x10f, 0x000, 2}, - {0x18c, 0x18f, 0x000, 3}, - - {-1, -1, -1, -1} /* end indicator */ -}; - -static PIC_device Pics[] = { - { - {"p16f627", "16f627", "pic16f627", "f627"}, /* processor name */ - p16f627_mem, /* ram mem map */ - p16f627_sfr, /* sfr mem map */ - 0, /* max ram address (calculated) */ - 0x80, /* Bank Mask */ - }, - - { - {"p16f628", "16f628", "pic16f628", "f628"}, - p16f627_mem, - p16f627_sfr, - 0, - 0x80, - }, - - { - {"p16f84", "16f84", "pic16f84", "f84"}, - p16f84_mem, - p16f84_sfr, - 0, - 0x80, - }, - - { - {"p16f873", "16f873", "pic16f873", "f873"}, - p16f873_mem, - p16f873_sfr, - 0, - 0x180, - }, - - { - {"p16f877", "16f877", "pic16f877", "f877"}, - p16f877_mem, - p16f877_sfr, - 0, - 0x180, - }, - -}; - -static int num_of_supported_PICS = sizeof(Pics)/sizeof(PIC_device); - -#define DEFAULT_PIC "f877" - -static PIC_device *pic=NULL; +/* + * Imports + */ +extern set *includeDirsSet; +extern set *userIncDirsSet; +extern set *libDirsSet; +extern set *libPathsSet; -AssignedMemory *finalMapping=NULL; +#define MAX_PICLIST 200 +static PIC_device *Pics[MAX_PICLIST]; +static PIC_device *pic = NULL; +static int num_of_supported_PICS = 0; +static int maxRAMaddress = 0; #define CONFIG_WORD_ADDRESS 0x2007 +#define CONFIG2_WORD_ADDRESS 0x2008 #define DEFAULT_CONFIG_WORD 0x3fff +#define DEFAULT_CONFIG2_WORD 0x3ffc + +#define DEVICE_FILE_NAME "pic14devices.txt" +#define PIC14_STRING_LEN 256 +#define SPLIT_WORDS_MAX 16 +/* Keep track of whether we found an assignment to the __config words. */ +static int pic14_hasSetConfigWord = 0; static unsigned int config_word = DEFAULT_CONFIG_WORD; +static unsigned int config2_word = DEFAULT_CONFIG2_WORD; +static memRange *rangeRAM = NULL; -/*-----------------------------------------------------------------* - * - * void addMem(memRange *ranges,int type) - * - * - *-----------------------------------------------------------------*/ -static void addMem(memRange *ranges,int type) +/* parse a value from the configuration file */ +static int +parse_config_value (char *str) { - memRange *r = ranges; - int i; - - do { - - int alias = r->alias; - - do { - - for(i=r->start_address; i<= r->end_address; i++) { - if(i <= pic->maxRAMaddress) { - finalMapping[i | alias].isValid = 1; - finalMapping[i | alias].alias = r->alias; - finalMapping[i | alias].bank = r->bank; - if(type) { - /* hack for now */ - finalMapping[i | alias].isSFR = 1; - } else - finalMapping[i | alias].isSFR = 0; - } - } - - /* Decrement alias */ - if(alias) - alias -= ((alias & (alias - 1)) ^ alias); - else - alias--; - - } while(alias >= 0); - - r++; - - } while (r->start_address >= 0); + if (str[strlen (str) - 1] == 'K') + return atoi (str) * 1024; /* like "1K" */ + else if (STRNCASECMP (str, "0x", 2) == 0) + return strtol (str+2, NULL, 16); /* like "0x400" */ + else + return atoi (str); /* like "1024" */ } -/*-----------------------------------------------------------------* - *-----------------------------------------------------------------*/ -int isREGinBank(regs *reg, int bank) +/* split a line into words */ +static int +split_words (char **result_word, char *str) { - - if(!reg || !pic) - return 0; - - if(((reg->address | reg->alias) & pic->bankMask & bank) == bank) - return 1; - - return 0; + static const char delim[] = " \f\n\r\t\v,"; + char *token; + int num_words; + + /* release previously allocated words */ + for (num_words = 0; num_words < SPLIT_WORDS_MAX; num_words++) + { + if (result_word[num_words]) + { + free (result_word[num_words]); + result_word[num_words] = NULL; + } // if + } // for + + /* split line */ + token = strtok (str, delim); + num_words = 0; + while (token && (num_words < SPLIT_WORDS_MAX)) + { + result_word[num_words] = Safe_strdup (token); + num_words++; + token = strtok (NULL, delim); + } // while + + return num_words; } -/*-----------------------------------------------------------------* - *-----------------------------------------------------------------*/ -int REGallBanks(regs *reg) + +/* remove annoying prefixes from the processor name */ +static char * +sanitise_processor_name (char *name) { + char *proc_pos = name; - if(!reg || !pic) - return 0; + if (name == NULL) + return NULL; + + if (STRNCASECMP (proc_pos, "pic", 3) == 0) + proc_pos += 3; - return ((reg->address | reg->alias) & pic->bankMask); + else if (tolower (*proc_pos) == 'p') + proc_pos += 1; + return proc_pos; } -/*-----------------------------------------------------------------* - *-----------------------------------------------------------------*/ -static void addMaps(PIC_device *pPic) +/* create a structure for a pic processor */ +static PIC_device * +create_pic (char *pic_name, int maxram, int bankmsk, int confsiz, + int program, int data, int eeprom, int io) { - int i; - memRange *r; + PIC_device *new_pic; + char *simple_pic_name = sanitise_processor_name (pic_name); - if(!pPic) - return; + new_pic = Safe_calloc (1, sizeof (PIC_device)); + new_pic->name = Safe_strdup (simple_pic_name); + new_pic->defMaxRAMaddrs = maxram; + new_pic->bankMask = bankmsk; + new_pic->hasSecondConfigReg = confsiz > 1; - /* First, find the maximum address */ + new_pic->programMemSize = program; + new_pic->dataMemSize = data; + new_pic->eepromMemSize = eeprom; + new_pic->ioPins = io; - r = pPic->ram; - pPic->maxRAMaddress = 0; + new_pic->ram = rangeRAM; - do { + Pics[num_of_supported_PICS] = new_pic; + num_of_supported_PICS++; - if((r->end_address | r->alias) > pPic->maxRAMaddress) - pPic->maxRAMaddress = r->end_address | r->alias; - - r++; + return new_pic; +} - } while (r->start_address >= 0); +/* mark some registers as being duplicated across banks */ +static void +register_map (int num_words, char **word) +{ + memRange *r; + int pcount; + + if (num_words < 3) + { + fprintf (stderr, "WARNING: not enough values in %s regmap directive\n", + DEVICE_FILE_NAME); + return; + } // if + + for (pcount = 2; pcount < num_words; pcount++) + { + r = Safe_calloc (1, sizeof (memRange)); + + r->start_address = parse_config_value (word[pcount]); + r->end_address = parse_config_value (word[pcount]); + r->alias = parse_config_value (word[1]); + r->bank = (r->start_address >> 7) & 3; + // add memRange to device entry for future lookup (sharebanks) + r->next = rangeRAM; + rangeRAM = r; + } // for +} - finalMapping = Safe_calloc(1+pPic->maxRAMaddress, sizeof(AssignedMemory)); +/* define ram areas - may be duplicated across banks */ +static void +ram_map (int num_words, char **word) +{ + memRange *r; - /* Now initialize the finalMapping array */ + if (num_words < 4) + { + fprintf (stderr, "WARNING: not enough values in %s memmap directive\n", + DEVICE_FILE_NAME); + return; + } // if - for(i=0; i<=pPic->maxRAMaddress; i++) { - finalMapping[i].reg = NULL; - finalMapping[i].isValid = 0; - } + r = Safe_calloc (1, sizeof (memRange)); + //fprintf (stderr, "%s: %s %s %s\n", __FUNCTION__, word[1], word[2], word[3]); - addMem(pPic->ram,0); /* add general purpose regs to the map */ - addMem(pPic->sfr,1); /* Add SFR's to the memmap */ + r->start_address = parse_config_value (word[1]); + r->end_address = parse_config_value (word[2]); + r->alias = parse_config_value (word[3]); + r->bank = (r->start_address >> 7) & 3; + // add memRange to device entry for future lookup (sharebanks) + r->next = rangeRAM; + rangeRAM = r; } -/* - * dump_map -- debug stuff - */ - -void dump_map(void) +static void +setMaxRAM (int size) { - int i; - - for(i=0; i<=pic->maxRAMaddress; i++) { - //fprintf(stdout , "addr 0x%02x is %s\n", i, ((finalMapping[i].isValid) ? "valid":"invalid")); - - if(finalMapping[i].isValid) { - fprintf(stderr,"addr: 0x%02x",i); - if(finalMapping[i].isSFR) - fprintf(stderr," isSFR"); - if(finalMapping[i].reg) - fprintf( stderr, " reg %s", finalMapping[i].reg->name); - fprintf(stderr, "\n"); - } - } - + maxRAMaddress = size; + + if (maxRAMaddress < 0) + { + fprintf (stderr, "invalid maxram 0x%x setting in %s\n", + maxRAMaddress, DEVICE_FILE_NAME); + return; + } // if } -void dump_cblock(FILE *of) +/* read the file with all the pic14 definitions and pick out the definition + * for a processor if specified. if pic_name is NULL reads everything */ +static PIC_device * +find_device (char *pic_name) { - int start=-1; - int addr=0; - int bank_base; - - //dump_map(); /* display the register map */ - - do { - - if(finalMapping[addr].reg && !finalMapping[addr].reg->isEmitted) { - - if(start<0) - start = addr; - } else { - if(start>=0) { - - /* clear the lower 7-bits of the start address of the first - * variable declared in this bank. The upper bits for the mid - * range pics are the bank select bits. - */ - - bank_base = start & 0xfff8; - - /* The bank number printed in the cblock comment tacitly - * assumes that the first register in the contiguous group - * of registers represents the bank for the whole group */ - - fprintf(of," cblock 0X%04X\t; Bank %d\n",start,finalMapping[start].bank); - - for( ; start < addr; start++) { - if((finalMapping[start].reg) && !finalMapping[start].reg->isEmitted ) { - fprintf(of,"\t%s",finalMapping[start].reg->name); - - /* If this register is aliased in multiple banks, then - * mangle the variable name with the alias address: */ - if(finalMapping[start].alias & start) - fprintf(of,"_%x",bank_base); - - if(finalMapping[start].instance) - fprintf(of,"_%d",finalMapping[start].instance); - - - fputc('\n',of); - - //finalMapping[start].reg->isEmitted = 1; - } - } - - fprintf(of," endc\n"); - - start = -1; + FILE *pic_file; + char pic_buf[PIC14_STRING_LEN]; + int found_processor = FALSE; + int done = FALSE; + char **processor_name; + int num_processor_names = 0; + int pic_maxram = 0; + int pic_bankmsk = 0; + int pic_confsiz = 0; + int pic_program = 0; + int pic_data = 0; + int pic_eeprom = 0; + int pic_io = 0; + char *simple_pic_name; + char *dir; + char filename[512]; + int len = 512; + char **pic_word; + int num_pic_words; + int wcount; + + pic_word = Safe_calloc (sizeof (char *), SPLIT_WORDS_MAX); + processor_name = Safe_calloc (sizeof (char *), SPLIT_WORDS_MAX); + + /* allow abbreviations of the form "f877" - convert to "16f877" */ + simple_pic_name = sanitise_processor_name (pic_name); + num_of_supported_PICS = 0; + + /* open the piclist file */ + /* first scan all include directories */ + pic_file = NULL; + //fprintf (stderr, "%s: searching %s\n", __FUNCTION__, DEVICE_FILE_NAME); + for (dir = setFirstItem (userIncDirsSet); + !pic_file && dir; + dir = setNextItem (userIncDirsSet)) + { + //fprintf (stderr, "searching1 %s\n", dir); + SNPRINTF (&filename[0], len, "%s%s", dir, + DIR_SEPARATOR_STRING DEVICE_FILE_NAME); + pic_file = fopen (filename, "rt"); + if (pic_file) break; + } // for + + for (dir = setFirstItem (includeDirsSet); + !pic_file && dir; + dir = setNextItem (includeDirsSet)) + { + //fprintf (stderr, "searching2 %s\n", dir); + SNPRINTF (&filename[0], len, "%s%s", dir, + DIR_SEPARATOR_STRING DEVICE_FILE_NAME); + pic_file = fopen (filename, "rt"); + if (pic_file) break; + } // for + + for (dir = setFirstItem (libDirsSet); + !pic_file && dir; + dir = setNextItem (libDirsSet)) + { + //fprintf (stderr, "searching3 %s\n", dir); + SNPRINTF (&filename[0], len, "%s%s", dir, + DIR_SEPARATOR_STRING DEVICE_FILE_NAME); + pic_file = fopen (filename, "rt"); + if (pic_file) break; + } // for + + for (dir = setFirstItem (libPathsSet); + !pic_file && dir; + dir = setNextItem (libPathsSet)) + { + //fprintf (stderr, "searching4 %s\n", dir); + SNPRINTF (&filename[0], len, "%s%s", dir, + DIR_SEPARATOR_STRING DEVICE_FILE_NAME); + pic_file = fopen (filename, "rt"); + if (pic_file) break; + } // for + + if (!pic_file) + { + SNPRINTF (&filename[0], len, "%s", + DATADIR LIB_DIR_SUFFIX + DIR_SEPARATOR_STRING "pic" + DIR_SEPARATOR_STRING DEVICE_FILE_NAME); + pic_file = fopen (filename, "rt"); + } // if + + if (pic_file == NULL) + { + fprintf (stderr, "can't find %s\n", DEVICE_FILE_NAME); + return NULL; + } // if + + if (options.verbose) + printf ("Using devices from %s.\n", filename); + + /* read line by line */ + pic_buf[sizeof (pic_buf)-1] = '\0'; + while (fgets (pic_buf, sizeof (pic_buf)-1, pic_file) != NULL && !done) + { + /* strip comments */ + { + char *comment = strchr (pic_buf, '#'); + if (comment) + *comment = 0; } - } - - addr++; - - } while(addr <= pic->maxRAMaddress); - - + /* split into fields */ + num_pic_words = split_words (pic_word, pic_buf); + + /* ignore comment / empty lines */ + if (num_pic_words > 0) + { + + if (STRCASECMP (pic_word[0], "processor") == 0) + { + if (pic_name == NULL) + { + int dcount; + + /* this is the mode where we read all the processors in - store the names for now */ + if (num_processor_names > 0) + { + /* store away all the previous processor definitions */ + for (dcount = 1; dcount < num_processor_names; dcount++) + { + create_pic (processor_name[dcount], pic_maxram, + pic_bankmsk, pic_confsiz, pic_program, + pic_data, pic_eeprom, pic_io); + } // for + } // if + + /* copy processor names */ + num_processor_names = num_pic_words; + for (dcount = 1; dcount < num_processor_names; dcount++) + { + processor_name[dcount] = pic_word[dcount]; + pic_word[dcount] = NULL; + } // for + } // if + else + { + /* if we've just completed reading a processor definition stop now */ + if (found_processor) + done = TRUE; + else + { + /* check if this processor name is a match */ + for (wcount = 1; wcount < num_pic_words; wcount++) + { + /* skip uninteresting prefixes */ + char *found_name = sanitise_processor_name (pic_word[wcount]); + + if (STRCASECMP (found_name, simple_pic_name) == 0) + found_processor = TRUE; + } // for + } // if + } // if + } // if + else + { + if (found_processor || pic_name == NULL) + { + /* only parse a processor section if we've found the one we want */ + if (STRCASECMP (pic_word[0], "maxram") == 0 && num_pic_words > 1) + { + pic_maxram = parse_config_value (pic_word[1]); + setMaxRAM (pic_maxram); + } // if + + else if (STRCASECMP (pic_word[0], "bankmsk") == 0 && num_pic_words > 1) + pic_bankmsk = parse_config_value (pic_word[1]); + + else if (STRCASECMP (pic_word[0], "confsiz") == 0 && num_pic_words > 1) + pic_confsiz = parse_config_value (pic_word[1]); + + else if (STRCASECMP (pic_word[0], "program") == 0 && num_pic_words > 1) + pic_program = parse_config_value (pic_word[1]); + + else if (STRCASECMP (pic_word[0], "data") == 0 && num_pic_words > 1) + pic_data = parse_config_value (pic_word[1]); + + else if (STRCASECMP (pic_word[0], "eeprom") == 0 && num_pic_words > 1) + pic_eeprom = parse_config_value (pic_word[1]); + + else if (STRCASECMP (pic_word[0], "io") == 0 && num_pic_words > 1) + pic_io = parse_config_value (pic_word[1]); + + else if (STRCASECMP (pic_word[0], "regmap") == 0 && num_pic_words > 2) + { + if (found_processor) + register_map (num_pic_words, pic_word); + } // if + + else if (STRCASECMP (pic_word[0], "memmap") == 0 && num_pic_words > 2) + { + if (found_processor) + ram_map (num_pic_words, pic_word); + } // if + + else + { + fprintf (stderr, "WARNING: %s: bad syntax `%s'\n", + DEVICE_FILE_NAME, pic_word[0]); + } // if + } // if + } // if + } // if + } // while + + fclose (pic_file); + + split_words (pic_word, NULL); + free (pic_word); + + /* if we're in read-the-lot mode then create the final processor definition */ + if (pic_name == NULL) + { + if (num_processor_names > 0) + { + /* store away all the previous processor definitions */ + int dcount; + + for (dcount = 1; dcount < num_processor_names; dcount++) + { + create_pic (processor_name[dcount], pic_maxram, pic_bankmsk, + pic_confsiz, pic_program, pic_data, pic_eeprom, + pic_io); + } // for + } // if + } // if + else + { + /* in search mode */ + if (found_processor) + { + split_words (processor_name, NULL); + free (processor_name); + + /* create a new pic entry */ + return create_pic (pic_name, pic_maxram, pic_bankmsk, + pic_confsiz, pic_program, pic_data, + pic_eeprom, pic_io); + } // if + } // if + + split_words (processor_name, NULL); + free (processor_name); + + return NULL; } /*-----------------------------------------------------------------* @@ -409,279 +478,325 @@ void dump_cblock(FILE *of) * list_alias - if non-zero, print all of the supported aliases * for a device (e.g. F84, 16F84, etc...) *-----------------------------------------------------------------*/ -void list_valid_pics(int ncols, int list_alias) +static void +list_valid_pics(int ncols) { - int col,longest; - int i,j,k,l; - - if(list_alias) - list_alias = sizeof(Pics[0].name) / sizeof(Pics[0].name[0]); - - /* decrement the column number if it's greater than zero */ - ncols = (ncols > 1) ? ncols-1 : 4; - - /* Find the device with the longest name */ - for(i=0,longest=0; ilongest) - longest = k; - } - } - - col = 0; - - for(i=0; i < num_of_supported_PICS; i++) { - j = 0; - do { - - fprintf(stderr,"%s", Pics[i].name[j]); - if(col 1) ? ncols-1 : 4; + + /* Find the device with the longest name */ + for(i=0,longest=0; iname); + if(k>longest) + longest = k; + } + +#if 1 + /* heading */ + fprintf(stderr, "\nPIC14 processors and their characteristics:\n\n"); + fprintf(stderr, " processor"); + for(k=0; kname); + l = longest + 2 - strlen(Pics[i]->name); + for(k=0; kprogramMemSize % 1024 == 0) + fprintf(stderr, "%4dK", Pics[i]->programMemSize / 1024); + else + fprintf(stderr, "%5d", Pics[i]->programMemSize); + + fprintf(stderr, " %5d %5d %4d\n", + Pics[i]->dataMemSize, Pics[i]->eepromMemSize, Pics[i]->ioPins); + } - } else { - fputc('\n',stderr); col = 0; - } - - } while(++jname); + if(colname); + for(k=0; k 0) + return 1; + + return 0; + } /*-----------------------------------------------------------------* - * char *processor_base_name(void) - Include file is derived from this. - *-----------------------------------------------------------------*/ +* char *processor_base_name(void) - Include file is derived from this. +*-----------------------------------------------------------------*/ char *processor_base_name(void) { - - if(!pic) - return NULL; - - return pic->name[0]; + + if(!pic) + return NULL; + + return pic->name; } -int isSFR(int address) +int IS_CONFIG_ADDRESS(int address) { - if( (address > pic->maxRAMaddress) || !finalMapping[address].isSFR) - return 0; - - return 1; - + return ((address == CONFIG_WORD_ADDRESS) + || (address == CONFIG2_WORD_ADDRESS)); } -int validAddress(int address, int reg_size) -{ - int i; +/*-----------------------------------------------------------------* + * void pic14_assignConfigWordValue(int address, int value) + * + * Most midrange PICs have one config word at address 0x2007. + * Newer PIC14s have a second config word at address 0x2008. + * This routine will assign values to those addresses. + * + *-----------------------------------------------------------------*/ - if(address > pic->maxRAMaddress) - return 0; +void pic14_assignConfigWordValue(int address, int value) +{ + if (CONFIG_WORD_ADDRESS == address) + config_word = value; + + else if (CONFIG2_WORD_ADDRESS == address) + config2_word = value; + + //fprintf(stderr,"setting config word 0x%x to 0x%x\n", address, value); + pic14_hasSetConfigWord = 1; +} - for (i=0; isize) { - fprintf(stderr,"WARNING: %s:%s:%d Bad register\n",__FILE__,__FUNCTION__,__LINE__); - return; - } - - for(i=0; isize; i++) { - - alias = finalMapping[reg->address].alias; - reg->alias = alias; - - do { - - // fprintf(stdout,"mapping %s to address 0x%02x, reg size = %d\n",reg->name, (reg->address+alias+i),reg->size); - - finalMapping[reg->address + alias + i].reg = reg; - finalMapping[reg->address + alias + i].instance = i; - - /* Decrement alias */ - if(alias) - alias -= ((alias & (alias - 1)) ^ alias); - else - alias--; - - } while (alias>=0); - } - - // fprintf(stderr,"%s - %s addr = 0x%03x, size %d\n",__FUNCTION__,reg->name, reg->address,reg->size); - - reg->isMapped = 1; - + if(!pic) + return 0; + else + return pic->hasSecondConfigReg; } -int assignRegister(regs *reg, int start_address) +/*-----------------------------------------------------------------* + * int pic14_emitConfigWord (FILE * vFile) + * + * Emit the __config directives iff we found a previous assignment + * to the config word. + *-----------------------------------------------------------------*/ +int pic14_emitConfigWord (FILE * vFile) { - int i; - - //fprintf(stderr,"%s - %s start_address = 0x%03x\n",__FUNCTION__,reg->name, start_address); - if(reg->isFixed) { - - if (validAddress(reg->address,reg->size)) { - - mapRegister(reg); - return reg->address; - } - - if( isSFR(reg->address)) { - mapRegister(reg); - return reg->address; - } - fprintf(stderr, "WARNING: Ignoring Out of Range register assignment at fixed address %d, %s\n", - reg->address, reg->name); - - } else { - - /* This register does not have a fixed address requirement - * so we'll search through all availble ram address and - * assign the first one */ - - for (i=start_address; i<=pic->maxRAMaddress; i++) { - - if (validAddress(i,reg->size)) { - reg->address = i; - mapRegister(reg); - return i; - } + if (pic14_hasSetConfigWord) + { + fprintf (vFile, "%s", iComments2); + fprintf (vFile, "; config word \n"); + fprintf (vFile, "%s", iComments2); + if (pic14_getHasSecondConfigReg()) + { + fprintf (vFile, "\t__config _CONFIG1, 0x%x\n", pic14_getConfigWord(0x2007)); + fprintf (vFile, "\t__config _CONFIG2, 0x%x\n", pic14_getConfigWord(0x2008)); } + else + fprintf (vFile, "\t__config 0x%x\n", pic14_getConfigWord(0x2007)); - fprintf(stderr, "WARNING: No more RAM available\n"); - + return 1; } - - return -1; + return 0; } -void assignFixedRegisters(set *regset) +/*-----------------------------------------------------------------* + * True iff the device has memory aliased in every bank. + * If true, low and high will be set to the low and high address + * occupied by the (last) sharebank found. + *-----------------------------------------------------------------*/ +static int pic14_hasSharebank(int *low, int *high, int *size) { - regs *reg; - - for (reg = setFirstItem(regset) ; reg ; - reg = setNextItem(regset)) { - - if(reg->isFixed) - assignRegister(reg,0); - } - + memRange *r; + + assert(pic); + r = pic->ram; + + while (r) { + //fprintf (stderr, "%s: region %x..%x, bank %x, alias %x, pic->bankmask %x, min_size %d\n", __FUNCTION__, r->start_address, r->end_address, r->bank, r->alias, pic->bankMask, size ? *size : 0); + // find sufficiently large shared region + if ((r->alias == pic->bankMask) + && (r->end_address != r->start_address) // ignore SFRs + && (!size || (*size <= (r->end_address - r->start_address + 1)))) + { + if (low) *low = r->start_address; + if (high) *high = r->end_address; + if (size) *size = r->end_address - r->start_address + 1; + return 1; + } // if + r = r->next; + } // while + + if (low) *low = 0x0; + if (high) *high = 0x0; + if (size) *size = 0x0; + //fprintf (stderr, "%s: no shared bank found\n", __FUNCTION__); + return 0; } -void assignRelocatableRegisters(set *regset, int used) +/* + * True iff the memory region [low, high] is aliased in all banks. + */ +static int pic14_isShared(int low, int high) { + memRange *r; - regs *reg; - int address = 0; - - for (reg = setFirstItem(regset) ; reg ; - reg = setNextItem(regset)) { + assert(pic); + r = pic->ram; - //fprintf(stdout,"assigning %s isFixed=%d, wasUsed=%d\n",reg->name,reg->isFixed,reg->wasUsed); - - if((!reg->isFixed) && ( used || reg->wasUsed)) - address = assignRegister(reg,address); - - } + while (r) { + //fprintf (stderr, "%s: region %x..%x, bank %x, alias %x, pic->bankmask %x\n", __FUNCTION__, r->start_address, r->end_address, r->bank, r->alias, pic->bankMask); + if ((r->alias == pic->bankMask) && (r->start_address <= low) && (r->end_address >= high)) { + return 1; + } // if + r = r->next; + } // while + return 0; } - -/*-----------------------------------------------------------------* - * void assignConfigWordValue(int address, int value) - * - * All midrange PICs have one config word at address 0x2007. - * This routine will assign a value to that address. - * - *-----------------------------------------------------------------*/ - -void assignConfigWordValue(int address, int value) +/* + * True iff all RAM is aliased in all banks (no BANKSELs required except for + * SFRs). + */ +int pic14_allRAMShared(void) { - if(CONFIG_WORD_ADDRESS == address) - config_word = value; + memRange *r; - //fprintf(stderr,"setting config word to 0x%x\n",value); + assert(pic); + r = pic->ram; + while (r) { + if (r->alias != pic->bankMask) return 0; + r = r->next; + } // while + + return 1; } -/*-----------------------------------------------------------------* - * int getConfigWord(int address) - * - * Get the current value of the config word. - * - *-----------------------------------------------------------------*/ -int getConfigWord(int address) +/* + * True iff the pseudo stack is a sharebank --> let linker place it. + * [low, high] denotes a size byte long block of (shared or banked) + * memory to be used. + */ +int pic14_getSharedStack(int *low, int *high, int *size) { - if(CONFIG_WORD_ADDRESS == address) - return config_word; - - else - return 0; + int haveShared; + int l, h, s; + + s = options.stack_size ? options.stack_size : 0x10; + haveShared = pic14_hasSharebank(&l, &h, &s); + if ((options.stack_loc != 0) || !haveShared) + { + // sharebank not available or not to be used + s = options.stack_size ? options.stack_size : 0x10; + l = options.stack_loc ? options.stack_loc : 0x20; + h = l + s - 1; + if (low) *low = l; + if (high) *high = h; + if (size) *size = s; + // return 1 iff [low, high] is present in all banks + //fprintf(stderr, "%s: low %x, high %x, size %x, shared %d\n", __FUNCTION__, l, h, s, pic14_isShared(l, h)); + return (pic14_isShared(l, h)); + } else { + // sharebanks available for use by the stack + if (options.stack_size) s = options.stack_size; + else if (!s || s > 16) s = 16; // limit stack to 16 bytes in SHAREBANK + + // provide addresses for sharebank + if (low) *low = l; + if (high) *high = l + s - 1; + if (size) *size = s; + //fprintf(stderr, "%s: low %x, high %x, size %x, shared 1\n", __FUNCTION__, l, h, s); + return 1; + } +} +PIC_device * pic14_getPIC(void) +{ + return pic; }