git.gag.com Git - fw/sdcc/blob - src/pic/device.c

   1 /*-------------------------------------------------------------------------
   2
   3    device.c - Accomodates subtle variations in PIC devices
   4    Written By -  Scott Dattalo scott@dattalo.com
   5
   6    This program is free software; you can redistribute it and/or modify it
   7    under the terms of the GNU General Public License as published by the
   8    Free Software Foundation; either version 2, or (at your option) any
   9    later version.
  10
  11    This program is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with this program; if not, write to the Free Software
  18    Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  19 -------------------------------------------------------------------------*/
  20
  21 #include "device.h"
  22
  23 /*
  24  * Imports
  25  */
  26 extern set *includeDirsSet;
  27 extern set *userIncDirsSet;
  28 extern set *libDirsSet;
  29 extern set *libPathsSet;
  30
  31 #define MAX_PICLIST 200
  32 static PIC_device *Pics[MAX_PICLIST];
  33 static PIC_device *pic = NULL;
  34 static int num_of_supported_PICS = 0;
  35 static int maxRAMaddress = 0;
  36
  37 #define CONFIG_WORD_ADDRESS 0x2007
  38 #define CONFIG2_WORD_ADDRESS 0x2008
  39 #define DEFAULT_CONFIG_WORD 0x3fff
  40 #define DEFAULT_CONFIG2_WORD 0x3ffc
  41
  42 #define DEVICE_FILE_NAME "pic14devices.txt"
  43 #define PIC14_STRING_LEN 256
  44 #define SPLIT_WORDS_MAX 16
  45
  46 /* Keep track of whether we found an assignment to the __config words. */
  47 static int pic14_hasSetConfigWord = 0;
  48 static unsigned int config_word = DEFAULT_CONFIG_WORD;
  49 static unsigned int config2_word = DEFAULT_CONFIG2_WORD;
  50 static memRange *rangeRAM = NULL;
  51
  52
  53 /* parse a value from the configuration file */
  54 static int parse_config_value(char *str)
  55 {
  56         if (str[strlen(str) - 1] == 'K')
  57                 return atoi(str) * 1024;        /* like "1K" */
  58
  59         else if (STRNCASECMP(str, "0x", 2) == 0)
  60                 return strtol(str+2, NULL, 16); /* like "0x400" */
  61
  62         else
  63                 return atoi(str);               /* like "1024" */
  64 }
  65
  66
  67 /* split a line into words */
  68 static int split_words(char result_word[SPLIT_WORDS_MAX][PIC14_STRING_LEN], char *str)
  69 {
  70         char *pos = str;
  71         int num_words = 0;
  72         int ccount;
  73
  74         while (*pos != '\0' && num_words < SPLIT_WORDS_MAX) {
  75                 /* remove leading spaces */
  76                 while (isspace(*pos) || *pos == ',')
  77                         pos++;
  78
  79                 /* copy everything up until the first space or comma */
  80                 for (ccount = 0; *pos != '\0' && !isspace(*pos) && *pos != ',' && ccount < PIC14_STRING_LEN-1; ccount++, pos++)
  81                         result_word[num_words][ccount] = *pos;
  82                 result_word[num_words][ccount] = '\0';
  83
  84                 num_words++;
  85         }
  86
  87         return num_words;
  88 }
  89
  90
  91 /* remove annoying prefixes from the processor name */
  92 static char *sanitise_processor_name(char *name)
  93 {
  94         char *proc_pos = name;
  95
  96         if (name == NULL)
  97                 return NULL;
  98
  99         if (STRNCASECMP(proc_pos, "pic", 3) == 0)
 100                 proc_pos += 3;
 101
 102         else if (tolower(*proc_pos) == 'p')
 103                 proc_pos += 1;
 104
 105         return proc_pos;
 106 }
 107
 108
 109 /* create a structure for a pic processor */
 110 static PIC_device *create_pic(char *pic_name, int maxram, int bankmsk, int confsiz, int program, int data, int eeprom, int io)
 111 {
 112         PIC_device *new_pic;
 113         char *simple_pic_name = sanitise_processor_name(pic_name);
 114
 115         new_pic = Safe_calloc(1, sizeof(PIC_device));
 116         new_pic->name = Safe_calloc(strlen(simple_pic_name)+1, sizeof(char));
 117         strcpy(new_pic->name, simple_pic_name);
 118
 119         new_pic->defMaxRAMaddrs = maxram;
 120         new_pic->bankMask = bankmsk;
 121         new_pic->hasSecondConfigReg = confsiz > 1;
 122
 123         new_pic->programMemSize = program;
 124         new_pic->dataMemSize = data;
 125         new_pic->eepromMemSize = eeprom;
 126         new_pic->ioPins = io;
 127
 128         new_pic->ram = rangeRAM;
 129
 130         Pics[num_of_supported_PICS] = new_pic;
 131         num_of_supported_PICS++;
 132
 133         return new_pic;
 134 }
 135
 136
 137 /* mark some registers as being duplicated across banks */
 138 static void register_map(int num_words, char word[SPLIT_WORDS_MAX][PIC14_STRING_LEN])
 139 {
 140         memRange *r;
 141         int pcount;
 142
 143         if (num_words < 3) {
 144                 fprintf(stderr, "WARNING: not enough values in %s regmap directive\n", DEVICE_FILE_NAME);
 145                 return;
 146         }
 147
 148         for (pcount = 2; pcount < num_words; pcount++) {
 149                 r = Safe_calloc(1, sizeof(memRange));
 150
 151                 r->start_address = parse_config_value(word[pcount]);
 152                 r->end_address = parse_config_value(word[pcount]);
 153                 r->alias = parse_config_value(word[1]);
 154                 r->bank = (r->start_address >> 7) & 3;
 155                 // add memRange to device entry for future lookup (sharebanks)
 156                 r->next = rangeRAM;
 157                 rangeRAM = r;
 158         }
 159 }
 160
 161
 162 /* define ram areas - may be duplicated across banks */
 163 static void ram_map(int num_words, char word[SPLIT_WORDS_MAX][PIC14_STRING_LEN])
 164 {
 165         memRange *r;
 166
 167         if (num_words < 4) {
 168                 fprintf(stderr, "WARNING: not enough values in %s memmap directive\n", DEVICE_FILE_NAME);
 169                 return;
 170         }
 171
 172         r = Safe_calloc(1, sizeof(memRange));
 173         //fprintf (stderr, "%s: %s %s %s\n", __FUNCTION__, word[1], word[2], word[3]);
 174
 175         r->start_address = parse_config_value(word[1]);
 176         r->end_address = parse_config_value(word[2]);
 177         r->alias = parse_config_value(word[3]);
 178         r->bank = (r->start_address >> 7) & 3;
 179
 180         // add memRange to device entry for future lookup (sharebanks)
 181         r->next = rangeRAM;
 182         rangeRAM = r;
 183 }
 184
 185 static void setMaxRAM(int size)
 186 {
 187         maxRAMaddress = size;
 188
 189         if (maxRAMaddress < 0) {
 190                 fprintf(stderr, "invalid maxram 0x%x setting in %s\n",
 191                         maxRAMaddress, DEVICE_FILE_NAME);
 192                 return;
 193         }
 194 }
 195
 196 /* read the file with all the pic14 definitions and pick out the definition
 197  * for a processor if specified. if pic_name is NULL reads everything */
 198 static PIC_device *find_device(char *pic_name)
 199 {
 200         FILE *pic_file;
 201         char pic_buf[PIC14_STRING_LEN];
 202         char *pic_buf_pos;
 203         int found_processor = FALSE;
 204         int done = FALSE;
 205         char processor_name[SPLIT_WORDS_MAX][PIC14_STRING_LEN];
 206         int num_processor_names = 0;
 207         int pic_maxram = 0;
 208         int pic_bankmsk = 0;
 209         int pic_confsiz = 0;
 210         int pic_program = 0;
 211         int pic_data = 0;
 212         int pic_eeprom = 0;
 213         int pic_io = 0;
 214         char *simple_pic_name;
 215         char *dir;
 216         char filename[512];
 217         int len = 512;
 218
 219         /* allow abbreviations of the form "f877" - convert to "16f877" */
 220         simple_pic_name = sanitise_processor_name(pic_name);
 221         num_of_supported_PICS = 0;
 222
 223         /* open the piclist file */
 224         /* first scan all include directories */
 225         pic_file = NULL;
 226         //fprintf( stderr, "%s: searching %s\n", __FUNCTION__, DEVICE_FILE_NAME );
 227         for (dir = setFirstItem(userIncDirsSet);
 228                 !pic_file && dir;
 229                 dir = setNextItem(userIncDirsSet))
 230         {
 231           //fprintf( stderr, "searching1 %s\n", dir );
 232           SNPRINTF(&filename[0], len, "%s%s", dir,
 233             DIR_SEPARATOR_STRING DEVICE_FILE_NAME);
 234           pic_file = fopen( filename, "rt" );
 235           if (pic_file) break;
 236         } // for
 237
 238         for (dir = setFirstItem(includeDirsSet);
 239                 !pic_file && dir;
 240                 dir = setNextItem(includeDirsSet))
 241         {
 242           //fprintf( stderr, "searching2 %s\n", dir );
 243           SNPRINTF(&filename[0], len, "%s%s", dir,
 244             DIR_SEPARATOR_STRING DEVICE_FILE_NAME);
 245           pic_file = fopen( filename, "rt" );
 246           if (pic_file) break;
 247         } // for
 248
 249         for (dir = setFirstItem(libDirsSet);
 250                 !pic_file && dir;
 251                 dir = setNextItem(libDirsSet))
 252         {
 253           //fprintf( stderr, "searching3 %s\n", dir );
 254           SNPRINTF(&filename[0], len, "%s%s", dir,
 255             DIR_SEPARATOR_STRING DEVICE_FILE_NAME);
 256           pic_file = fopen( filename, "rt" );
 257           if (pic_file) break;
 258         } // for
 259
 260         for (dir = setFirstItem(libPathsSet);
 261                 !pic_file && dir;
 262                 dir = setNextItem(libPathsSet))
 263         {
 264           //fprintf( stderr, "searching4 %s\n", dir );
 265           SNPRINTF(&filename[0], len, "%s%s", dir,
 266             DIR_SEPARATOR_STRING DEVICE_FILE_NAME);
 267           pic_file = fopen( filename, "rt" );
 268           if (pic_file) break;
 269         } // for
 270
 271         if (!pic_file) {
 272           SNPRINTF(&filename[0], len, "%s",
 273             DATADIR LIB_DIR_SUFFIX
 274             DIR_SEPARATOR_STRING "pic"
 275             DIR_SEPARATOR_STRING DEVICE_FILE_NAME);
 276           pic_file = fopen( filename, "rt" );
 277         } // if
 278
 279         if (pic_file == NULL) {
 280             fprintf(stderr, "can't find %s\n", DEVICE_FILE_NAME);
 281             return NULL;
 282         } // if
 283
 284         if (options.verbose) {
 285             printf ("Using devices from %s.\n", filename);
 286         } // if
 287
 288         /* read line by line */
 289         pic_buf[sizeof(pic_buf)-1] = '\0';
 290         while (fgets(pic_buf, sizeof(pic_buf)-1, pic_file) != NULL && !done) {
 291                 unsigned llen;
 292                 llen = strlen (pic_buf);
 293
 294                 /* remove trailing spaces */
 295                 while (llen && isspace(pic_buf[llen-1])) {
 296                         pic_buf[llen-1] = '\0';
 297                         llen--;
 298                 }
 299
 300                 /* remove leading spaces */
 301                 for (pic_buf_pos = pic_buf; isspace(*pic_buf_pos); pic_buf_pos++)
 302                 {}
 303
 304                 /* ignore comment / empty lines */
 305                 if (*pic_buf_pos != '\0' && *pic_buf_pos != '#') {
 306
 307                         /* split into fields */
 308                         char pic_word[SPLIT_WORDS_MAX][PIC14_STRING_LEN];
 309                         int num_pic_words;
 310                         int wcount;
 311
 312                         num_pic_words = split_words(pic_word, pic_buf_pos);
 313
 314                         if (STRCASECMP(pic_word[0], "processor") == 0) {
 315
 316                                 if (pic_name == NULL) {
 317                                         /* this is the mode where we read all the processors in - store the names for now */
 318                                         if (num_processor_names > 0) {
 319                                                 /* store away all the previous processor definitions */
 320                                                 int dcount;
 321
 322                                                 for (dcount = 1; dcount < num_processor_names; dcount++)
 323                                                         create_pic(processor_name[dcount], pic_maxram, pic_bankmsk,
 324                                                                    pic_confsiz, pic_program, pic_data, pic_eeprom, pic_io);
 325                                         }
 326
 327                                         num_processor_names = split_words(processor_name, pic_buf_pos);
 328                                 }
 329                                 else {
 330                                         /* if we've just completed reading a processor definition stop now */
 331                                         if (found_processor)
 332                                                 done = TRUE;
 333                                         else {
 334                                                 /* check if this processor name is a match */
 335                                                 for (wcount = 1; wcount < num_pic_words; wcount++) {
 336
 337                                                         /* skip uninteresting prefixes */
 338                                                         char *found_name = sanitise_processor_name(pic_word[wcount]);
 339
 340                                                         if (STRCASECMP(found_name, simple_pic_name) == 0)
 341                                                                 found_processor = TRUE;
 342                                                 }
 343                                         }
 344                                 }
 345                         }
 346
 347                         else {
 348                                 if (found_processor || pic_name == NULL) {
 349                                         /* only parse a processor section if we've found the one we want */
 350                                         if (STRCASECMP(pic_word[0], "maxram") == 0 && num_pic_words > 1) {
 351                                                 pic_maxram = parse_config_value(pic_word[1]);
 352                                                 setMaxRAM(pic_maxram);
 353                                         }
 354                                         else if (STRCASECMP(pic_word[0], "bankmsk") == 0 && num_pic_words > 1)
 355                                                 pic_bankmsk = parse_config_value(pic_word[1]);
 356
 357                                         else if (STRCASECMP(pic_word[0], "confsiz") == 0 && num_pic_words > 1)
 358                                                 pic_confsiz = parse_config_value(pic_word[1]);
 359
 360                                         else if (STRCASECMP(pic_word[0], "program") == 0 && num_pic_words > 1)
 361                                                 pic_program = parse_config_value(pic_word[1]);
 362
 363                                         else if (STRCASECMP(pic_word[0], "data") == 0 && num_pic_words > 1)
 364                                                 pic_data = parse_config_value(pic_word[1]);
 365
 366                                         else if (STRCASECMP(pic_word[0], "eeprom") == 0 && num_pic_words > 1)
 367                                                 pic_eeprom = parse_config_value(pic_word[1]);
 368
 369                                         else if (STRCASECMP(pic_word[0], "io") == 0 && num_pic_words > 1)
 370                                                 pic_io = parse_config_value(pic_word[1]);
 371
 372                                         else if (STRCASECMP(pic_word[0], "regmap") == 0 && num_pic_words > 2) {
 373                                                 if (found_processor)
 374                                                         register_map(num_pic_words, pic_word);
 375                                         }
 376                                         else if (STRCASECMP(pic_word[0], "memmap") == 0 && num_pic_words > 2) {
 377                                                 if (found_processor)
 378                                                         ram_map(num_pic_words, pic_word);
 379                                         }
 380                                         else {
 381                                                 fprintf(stderr, "WARNING: %s: bad syntax `%s'\n", DEVICE_FILE_NAME, pic_word[0]);
 382                                         }
 383                                 }
 384                         }
 385                 }
 386         }
 387
 388         fclose(pic_file);
 389
 390         /* if we're in read-the-lot mode then create the final processor definition */
 391         if (pic_name == NULL) {
 392
 393                 if (num_processor_names > 0) {
 394                         /* store away all the previous processor definitions */
 395                         int dcount;
 396
 397                         for (dcount = 1; dcount < num_processor_names; dcount++)
 398                                 create_pic(processor_name[dcount], pic_maxram, pic_bankmsk,
 399                                            pic_confsiz, pic_program, pic_data, pic_eeprom, pic_io);
 400                 }
 401         }
 402         else {
 403                 /* in search mode */
 404                 if (found_processor) {
 405                         /* create a new pic entry */
 406                         return create_pic(pic_name, pic_maxram, pic_bankmsk,
 407                                           pic_confsiz, pic_program, pic_data, pic_eeprom, pic_io);
 408                 }
 409         }
 410
 411         return NULL;
 412 }
 413
 414 /*-----------------------------------------------------------------*
 415  *  void list_valid_pics(int ncols, int list_alias)
 416  *
 417  * Print out a formatted list of valid PIC devices
 418  *
 419  * ncols - number of columns in the list.
 420  *
 421  * list_alias - if non-zero, print all of the supported aliases
 422  *              for a device (e.g. F84, 16F84, etc...)
 423  *-----------------------------------------------------------------*/
 424 static void list_valid_pics(int ncols)
 425 {
 426         int col=0,longest;
 427         int i,k,l;
 428
 429         if (num_of_supported_PICS == 0)
 430                 find_device(NULL);          /* load all the definitions */
 431
 432         /* decrement the column number if it's greater than zero */
 433         ncols = (ncols > 1) ? ncols-1 : 4;
 434
 435         /* Find the device with the longest name */
 436         for(i=0,longest=0; i<num_of_supported_PICS; i++) {
 437                 k = strlen(Pics[i]->name);
 438                 if(k>longest)
 439                         longest = k;
 440         }
 441
 442 #if 1
 443         /* heading */
 444         fprintf(stderr, "\nPIC14 processors and their characteristics:\n\n");
 445         fprintf(stderr, " processor");
 446         for(k=0; k<longest-1; k++)
 447                 fputc(' ',stderr);
 448         fprintf(stderr, "program     RAM      EEPROM    I/O\n");
 449         fprintf(stderr, "-----------------------------------------------------\n");
 450
 451         for(i=0;  i < num_of_supported_PICS; i++) {
 452                 fprintf(stderr,"  %s", Pics[i]->name);
 453                 l = longest + 2 - strlen(Pics[i]->name);
 454                 for(k=0; k<l; k++)
 455                         fputc(' ',stderr);
 456
 457                 fprintf(stderr, "     ");
 458                 if (Pics[i]->programMemSize % 1024 == 0)
 459                         fprintf(stderr, "%4dK", Pics[i]->programMemSize / 1024);
 460                 else
 461                         fprintf(stderr, "%5d", Pics[i]->programMemSize);
 462
 463                 fprintf(stderr, "     %5d     %5d     %4d\n",
 464                         Pics[i]->dataMemSize, Pics[i]->eepromMemSize, Pics[i]->ioPins);
 465         }
 466
 467         col = 0;
 468
 469         fprintf(stderr, "\nPIC14 processors supported:\n");
 470         for(i=0;  i < num_of_supported_PICS; i++) {
 471
 472                 fprintf(stderr,"%s", Pics[i]->name);
 473                 if(col<ncols) {
 474                         l = longest + 2 - strlen(Pics[i]->name);
 475                         for(k=0; k<l; k++)
 476                                 fputc(' ',stderr);
 477
 478                         col++;
 479
 480                 } else {
 481                         fputc('\n',stderr);
 482                         col = 0;
 483                 }
 484
 485         }
 486 #endif
 487         if(col != 0)
 488                 fputc('\n',stderr);
 489 }
 490
 491 /*-----------------------------------------------------------------*
 492 *
 493 *-----------------------------------------------------------------*/
 494 PIC_device *init_pic(char *pic_type)
 495 {
 496         char long_name[PIC14_STRING_LEN];
 497
 498         pic = find_device(pic_type);
 499
 500         if (pic == NULL) {
 501                 /* check for shortened "16xxx" form */
 502                 sprintf(long_name, "16%s", pic_type);
 503                 pic = find_device(long_name);
 504                 if (pic == NULL) {
 505                         if(pic_type != NULL && pic_type[0] != '\0')
 506                                 fprintf(stderr, "'%s' was not found.\n", pic_type);
 507                         else
 508                                 fprintf(stderr, "No processor has been specified (use -pPROCESSOR_NAME)\n");
 509
 510                         list_valid_pics(7);
 511                         exit(1);
 512                 }
 513         }
 514         return pic;
 515 }
 516
 517 /*-----------------------------------------------------------------*
 518 *
 519 *-----------------------------------------------------------------*/
 520 int picIsInitialized(void)
 521 {
 522         if(pic && maxRAMaddress > 0)
 523                 return 1;
 524
 525         return 0;
 526
 527 }
 528
 529 /*-----------------------------------------------------------------*
 530 *  char *processor_base_name(void) - Include file is derived from this.
 531 *-----------------------------------------------------------------*/
 532 char *processor_base_name(void)
 533 {
 534
 535         if(!pic)
 536                 return NULL;
 537
 538         return pic->name;
 539 }
 540
 541 #if 0
 542 /*-----------------------------------------------------------------*
 543 *-----------------------------------------------------------------*/
 544 static int validAddress(int address, int reg_size)
 545 {
 546         if (maxRAMaddress < 0) {
 547                 fprintf(stderr, "missing maxram setting in %s\n", DEVICE_FILE_NAME);
 548                 return 0;
 549         }
 550         //  fprintf(stderr, "validAddress: Checking 0x%04x\n",address);
 551         assert (reg_size > 0);
 552         if(address + (reg_size - 1) > maxRAMaddress)
 553                 return 0;
 554
 555         return 1;
 556 }
 557 #endif
 558
 559 #if 0
 560 /* The following code should be (and is) implemented in the linker. */
 561
 562 /*-----------------------------------------------------------------*
 563 *-----------------------------------------------------------------*/
 564 void mapRegister(regs *reg)
 565 {
 566
 567         unsigned i;
 568         int alias;
 569
 570         if(!reg || !reg->size) {
 571                 fprintf(stderr,"WARNING: %s:%s:%d Bad register\n",__FILE__,__FUNCTION__,__LINE__);
 572                 return;
 573         }
 574
 575         if (maxRAMaddress < 0) {
 576                 fprintf(stderr, "missing maxram setting in %s\n", DEVICE_FILE_NAME);
 577                 return;
 578         }
 579
 580         for(i=0; i<reg->size; i++) {
 581
 582                 assert(reg->address >= 0 && reg->address < maxRAMaddress);
 583
 584                 alias = finalMapping[reg->address].alias;
 585                 reg->alias = alias;
 586
 587                 do {
 588
 589                         //fprintf(stdout,"mapping %s to address 0x%02x, reg size = %d\n",reg->name, (reg->address+alias+i),reg->size);
 590
 591                         finalMapping[reg->address + alias + i].reg = reg;
 592                         finalMapping[reg->address + alias + i].instance = i;
 593
 594                         /* Decrement alias */
 595                         if(alias)
 596                                 alias -= ((alias & (alias - 1)) ^ alias);
 597                         else
 598                                 alias--;
 599
 600                 } while (alias>=0);
 601         }
 602
 603         //fprintf(stderr,"%s - %s addr = 0x%03x, size %d\n",__FUNCTION__,reg->name, reg->address,reg->size);
 604
 605         reg->isMapped = 1;
 606
 607 }
 608
 609 /*-----------------------------------------------------------------*
 610 *-----------------------------------------------------------------*/
 611 int assignRegister(regs *reg, int start_address)
 612 {
 613         int i;
 614
 615         //fprintf(stderr,"%s -  %s start_address = 0x%03x\n",__FUNCTION__,reg->name, start_address);
 616         if(reg->isFixed) {
 617
 618                 if (validAddress(reg->address,reg->size)) {
 619                         //fprintf(stderr,"%s -  %s address = 0x%03x\n",__FUNCTION__,reg->name, reg->address);
 620                         mapRegister(reg);
 621                         return reg->address;
 622                 }
 623
 624                 if (getenv("SDCCPICDEBUG")) {
 625                         fprintf(stderr, "WARNING: Ignoring Out of Range register assignment at fixed address %d, %s\n",
 626                             reg->address, reg->name);
 627                 }
 628
 629         } else {
 630
 631         /* This register does not have a fixed address requirement
 632         * so we'll search through all availble ram address and
 633                 * assign the first one */
 634
 635                 for (i=start_address; i<=maxRAMaddress; i++) {
 636
 637                         if (validAddress(i,reg->size)) {
 638                                 reg->address = i;
 639                                 mapRegister(reg);
 640                                 return i;
 641                         }
 642                 }
 643
 644                 fprintf(stderr, "WARNING: No more RAM available for %s\n",reg->name);
 645
 646         }
 647
 648         return -1;
 649 }
 650
 651 /*-----------------------------------------------------------------*
 652 *-----------------------------------------------------------------*/
 653 void assignFixedRegisters(set *regset)
 654 {
 655         regs *reg;
 656
 657         for (reg = setFirstItem(regset) ; reg ;
 658         reg = setNextItem(regset)) {
 659
 660                 if(reg->isFixed)
 661                         assignRegister(reg,0);
 662         }
 663
 664 }
 665
 666 /*-----------------------------------------------------------------*
 667 *-----------------------------------------------------------------*/
 668 void assignRelocatableRegisters(set *regset, int used)
 669 {
 670
 671         regs *reg;
 672         int address = 0;
 673
 674         for (reg = setFirstItem(regset) ; reg ;
 675         reg = setNextItem(regset)) {
 676
 677                 //fprintf(stdout,"assigning %s (%d) isFixed=%d, wasUsed=%d\n",reg->name,reg->size,reg->isFixed,reg->wasUsed);
 678
 679                 if((!reg->isExtern) && (!reg->isFixed) && ( used || reg->wasUsed)) {
 680                         /* If register have been reused then shall not print it a second time. */
 681                         set *s;
 682                         int done = 0;
 683                         for (s = regset; s; s = s->next) {
 684                                 regs *r;
 685                                 r = s->item;
 686                                 if (r == reg)
 687                                         break;
 688                                 if((!r->isFixed) && ( used || r->wasUsed)) {
 689                                         if (r->rIdx == reg->rIdx) {
 690                                                 reg->address = r->address;
 691                                                 done = 1;
 692                                                 break;
 693                                         }
 694                                 }
 695                         }
 696                         if (!done)
 697                                 address = assignRegister(reg,address);
 698                 }
 699         }
 700
 701 }
 702 #endif
 703
 704 int IS_CONFIG_ADDRESS(int address)
 705 {
 706
 707         return ((address == CONFIG_WORD_ADDRESS)
 708                 || (address == CONFIG2_WORD_ADDRESS));
 709 }
 710
 711 /*-----------------------------------------------------------------*
 712  *  void pic14_assignConfigWordValue(int address, int value)
 713  *
 714  * Most midrange PICs have one config word at address 0x2007.
 715  * Newer PIC14s have a second config word at address 0x2008.
 716  * This routine will assign values to those addresses.
 717  *
 718  *-----------------------------------------------------------------*/
 719
 720 void pic14_assignConfigWordValue(int address, int value)
 721 {
 722         if (CONFIG_WORD_ADDRESS == address)
 723                 config_word = value;
 724
 725         else if (CONFIG2_WORD_ADDRESS == address)
 726                 config2_word = value;
 727
 728         //fprintf(stderr,"setting config word 0x%x to 0x%x\n", address, value);
 729         pic14_hasSetConfigWord = 1;
 730 }
 731
 732 /*-----------------------------------------------------------------*
 733  * int pic14_getConfigWord(int address)
 734  *
 735  * Get the current value of a config word.
 736  *
 737  *-----------------------------------------------------------------*/
 738
 739 static int pic14_getConfigWord(int address)
 740 {
 741         switch (address)
 742         {
 743         case CONFIG_WORD_ADDRESS:
 744                 return config_word;
 745
 746         case CONFIG2_WORD_ADDRESS:
 747                 return config2_word;
 748
 749         default:
 750                 return 0;
 751         }
 752 }
 753
 754 #if 0
 755 /*-----------------------------------------------------------------*
 756 *
 757 *-----------------------------------------------------------------*/
 758 static unsigned pic14_getMaxRam(void)
 759 {
 760        return pic->defMaxRAMaddrs;
 761 }
 762 #endif
 763
 764 /*-----------------------------------------------------------------*
 765 *  int getHasSecondConfigReg(void) - check if the device has a
 766 *  second config register, rather than just one.
 767 *-----------------------------------------------------------------*/
 768 static int pic14_getHasSecondConfigReg(void)
 769 {
 770         if(!pic)
 771                 return 0;
 772         else
 773                 return pic->hasSecondConfigReg;
 774 }
 775
 776 /*-----------------------------------------------------------------*
 777  * int pic14_emitConfigWord (FILE * vFile)
 778  *
 779  * Emit the __config directives iff we found a previous assignment
 780  * to the config word.
 781  *-----------------------------------------------------------------*/
 782 int pic14_emitConfigWord (FILE * vFile)
 783 {
 784   if (pic14_hasSetConfigWord)
 785   {
 786     fprintf (vFile, "%s", iComments2);
 787     fprintf (vFile, "; config word \n");
 788     fprintf (vFile, "%s", iComments2);
 789     if (pic14_getHasSecondConfigReg())
 790     {
 791       fprintf (vFile, "\t__config _CONFIG1, 0x%x\n", pic14_getConfigWord(0x2007));
 792       fprintf (vFile, "\t__config _CONFIG2, 0x%x\n", pic14_getConfigWord(0x2008));
 793     }
 794     else
 795       fprintf (vFile, "\t__config 0x%x\n", pic14_getConfigWord(0x2007));
 796
 797     return 1;
 798   }
 799   return 0;
 800 }
 801
 802 /*-----------------------------------------------------------------*
 803  * True iff the device has memory aliased in every bank.
 804  * If true, low and high will be set to the low and high address
 805  * occupied by the (last) sharebank found.
 806  *-----------------------------------------------------------------*/
 807 static int pic14_hasSharebank(int *low, int *high, int *size)
 808 {
 809         memRange *r;
 810
 811         assert(pic);
 812         r = pic->ram;
 813
 814         while (r) {
 815             //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);
 816             // find sufficiently large shared region
 817             if ((r->alias == pic->bankMask)
 818                     && (r->end_address != r->start_address) // ignore SFRs
 819                     && (!size || (*size <= (r->end_address - r->start_address + 1))))
 820             {
 821                 if (low) *low = r->start_address;
 822                 if (high) *high = r->end_address;
 823                 if (size) *size = r->end_address - r->start_address + 1;
 824                 return 1;
 825             } // if
 826             r = r->next;
 827         } // while
 828
 829         if (low) *low = 0x0;
 830         if (high) *high = 0x0;
 831         if (size) *size = 0x0;
 832         //fprintf (stderr, "%s: no shared bank found\n", __FUNCTION__);
 833         return 0;
 834 }
 835
 836 /*
 837  * True iff the memory region [low, high] is aliased in all banks.
 838  */
 839 static int pic14_isShared(int low, int high)
 840 {
 841         memRange *r;
 842
 843         assert(pic);
 844         r = pic->ram;
 845
 846         while (r) {
 847             //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);
 848             if ((r->alias == pic->bankMask) && (r->start_address <= low) && (r->end_address >= high)) {
 849                 return 1;
 850             } // if
 851             r = r->next;
 852         } // while
 853
 854         return 0;
 855 }
 856
 857 /*
 858  * True iff all RAM is aliased in all banks (no BANKSELs required except for
 859  * SFRs).
 860  */
 861 int pic14_allRAMShared(void)
 862 {
 863         memRange *r;
 864
 865         assert(pic);
 866         r = pic->ram;
 867
 868         while (r) {
 869             if (r->alias != pic->bankMask) return 0;
 870             r = r->next;
 871         } // while
 872
 873         return 1;
 874 }
 875
 876 /*
 877  * True iff the pseudo stack is a sharebank --> let linker place it.
 878  * [low, high] denotes a size byte long block of (shared or banked)
 879  * memory to be used.
 880  */
 881 int pic14_getSharedStack(int *low, int *high, int *size)
 882 {
 883     int haveShared;
 884     int l, h, s;
 885
 886     s = options.stack_size ? options.stack_size : 0x10;
 887     haveShared = pic14_hasSharebank(&l, &h, &s);
 888     if ((options.stack_loc != 0) || !haveShared)
 889     {
 890         // sharebank not available or not to be used
 891         s = options.stack_size ? options.stack_size : 0x10;
 892         l = options.stack_loc ? options.stack_loc : 0x20;
 893         h = l + s - 1;
 894         if (low) *low = l;
 895         if (high) *high = h;
 896         if (size) *size = s;
 897         // return 1 iff [low, high] is present in all banks
 898         //fprintf(stderr, "%s: low %x, high %x, size %x, shared %d\n", __FUNCTION__, l, h, s, pic14_isShared(l, h));
 899         return (pic14_isShared(l, h));
 900     } else {
 901         // sharebanks available for use by the stack
 902         if (options.stack_size) s = options.stack_size;
 903         else if (!s || s > 16) s = 16; // limit stack to 16 bytes in SHAREBANK
 904
 905         // provide addresses for sharebank
 906         if (low) *low = l;
 907         if (high) *high = l + s - 1;
 908         if (size) *size = s;
 909         //fprintf(stderr, "%s: low %x, high %x, size %x, shared 1\n", __FUNCTION__, l, h, s);
 910         return 1;
 911     }
 912 }
 913
 914 PIC_device * pic14_getPIC(void)
 915 {
 916     return pic;
 917 }