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.
/*
- VR - Began writing code to make PIC16 C source files independent from
- the header file (created by the inc2h.pl)
+ VR - Began writing code to make PIC16 C source files independent from
+ the header file (created by the inc2h.pl)
- - adding maximum RAM memory into PIC_Device structure
+ - adding maximum RAM memory into PIC_Device structure
*/
#include "common.h" // Include everything in the SDCC src directory
#include "newalloc.h"
+#include "dbuf_string.h"
+#include "main.h"
#include "pcode.h"
#include "ralloc.h"
#include "device.h"
+stats_t statistics = { 0, 0, 0, 0 };
+
+#define DEVICE_FILE_NAME "pic16devices.txt"
+
+static PIC16_device default_device = {
+ { "p18f452", "18f452", "pic18f452", "f452" },
+ 0x600,
+ 0x80,
+ { /* configuration words */
+ 0x300001, 0x30000d,
+ { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ ,
+ { 0x0f, 0, 0xff } /* 3 */ , { -1 , 0, 0xff } /* 4 */ ,
+ { 0x01, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
+ { -1 , 0, 0xff } /* 7 */ , { 0x0f, 0, 0xff } /* 8 */ ,
+ { 0xc0, 0, 0xff } /* 9 */ , { 0x0f, 0, 0xff } /* a */ ,
+ { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ ,
+ { 0x40, 0, 0xff } /* d */ }
+ },
+ { /* ID locations */
+ 0x200000, 0x200007,
+ { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 },
+ { 0, 0 }, { 0, 0 }, { 0, 0 } }
+ },
+ NULL
+};
-static PIC16_device Pics16[] = {
- {
- {"p18f242", "18f242", "pic18f242", "f242"}, // aliases
- 0,
- 0x300, // bank mask
- 0x300, // RAMsize
- 0,
- {
- /* PIC18F242 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { -1, 0, 0xff } /* 4 */ , { 0x01, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x03, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x03, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x03, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f248", "18f248", "pic18f248", "f248"}, // aliases
- 0,
- 0x300, // bank mask
- 0x300, // RAMsize
- 0,
- {
- /* PIC18F248 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { -1, 0, 0xff } /* 4 */ , { -1, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x03, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x03, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x03, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f252", "18f252", "pic18f252", "f252"}, // aliases
- 0,
- 0x600, // bank mask
- 0x600, // RAMsize
- 0,
- {
- /* PIC18F252 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { -1, 0, 0xff } /* 4 */ , { 0x01, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f258", "18f258", "pic18f258", "f258"}, // aliases
- 0,
- 0x600, // bank mask
- 0x600, // RAMsize
- 0,
- {
- /* PIC18F258 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { -1, 0, 0xff } /* 4 */ , { -1, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f442", "18f442", "pic18f442", "f442"}, // aliases
- 0,
- 0x300, // bank mask
- 0x300, // RAMsize
- 0,
- {
- /* PIC18F442 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { -1, 0, 0xff } /* 4 */ , { 0x01, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x03, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x03, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x03, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f448", "18f448", "pic18f448", "f448"}, // aliases
- 0,
- 0x300, // bank mask
- 0x300, // RAMsize
- 0,
- {
- /* PIC18F448 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { -1, 0, 0xff } /* 4 */ , { -1, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x03, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x03, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x03, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f452", "18f452", "pic18f452", "f452"}, // aliases
- 0,
- 0x600, // bank mask
- 0x600, // RAMsize
- 0,
- {
- /* PIC18F452 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { -1, 0, 0xff } /* 4 */ , { 0x01, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f458", "18f458", "pic18f458", "f458"}, // aliases
- 0,
- 0x600, // bank mask
- 0x600, // RAMsize
- 0,
- {
- /* PIC18F458 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { -1, 0, 0xff } /* 4 */ , { -1, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f1220", "18f1220", "pic18f1220", "f1220"}, // aliases
- 0,
- 0x200,
- 0x200,
- 0,
- {
- /* PIC18F1220 configuration words */
- 0x300001,
- 0x30000d,
- { { 0xcf, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x1f, 0, 0xff } /* 3 */ ,
- { -1, 0, 0xff } /* 4 */ , { 0x80, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x03, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x03, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x03, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
-
- {
- {"p18f6520", "18f6520", "pic18f6520", "f6520"}, // aliases
- 0,
- 0x800, // bank mask
- 0x800, // RAMsize
- 1,
- {
- /* PIC18F6520 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { 0x80, 0, 0xff } /* 4 */ , { 0x88, 0, 0xff } /* 5 */ , { -1, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f6620", "18f6620", "pic18f6620", "f6620"}, // aliases
- 0,
- 0xf00, // bank mask
- 0xf00, // RAMsize
- 1,
- {
- /* PIC18F6620 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { -1, 0, 0xff } /* 4 */ , { 0x01, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f6680", "18f6680", "pic18f6680", "f6680"}, // aliases
- 0,
- 0xc00, // bank mask
- 0xc00, // RAMsize
- 1,
- {
- /* PIC18F6680 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x2f, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x1f, 0, 0xff } /* 3 */ ,
- { -1, 0, 0xff } /* 4 */ , { 0x83, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f6720", "18f6720", "pic18f6720", "f6720"}, // aliases
- 0,
- 0xf00, // bank mask
- 0xf00, // RAMsize
- 1,
- {
- /* PIC18F6720 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { -1, 0, 0xff } /* 4 */ , { 0x01, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0xff, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0xff, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0xff, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f8520", "18f8520", "pic18f8520", "f8520"}, // aliases
- 0,
- 0x800, // bank mask
- 0x800, // RAMsize
- 1,
- {
- /* PIC18F8520 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { 0x83, 0, 0xff } /* 4 */ , { 0x88, 0, 0xff } /* 5 */ , { -1, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f8620", "18f8620", "pic18f8620", "f8620"}, // aliases
- 0,
- 0xf00, // bank mask
- 0xf00, // RAMsize
- 1,
- {
- /* PIC18F8620 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { 0x83, 0, 0xff } /* 4 */ , { 0x01, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
- {
- {"p18f8680", "18f8680", "pic18f8680", "f8680"}, // aliases
- 0,
- 0xc00, // bank mask
- 0x800, // RAMsize
- 1,
- {
- /* PIC18F8680 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x2f, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x1f, 0, 0xff } /* 3 */ ,
- { 0x83, 0, 0xff } /* 4 */ , { 0x83, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- },
-
- {
- {"p18f8720", "18f8720", "pic18f8720", "f8720"}, // aliases
- 0,
- 0xf00, // bank mask
- 0xf00, // RAMsize
- 1,
- {
- /* PIC18F8720 configuration words */
- 0x300001,
- 0x30000d,
- { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ ,
- { 0x83, 0, 0xff } /* 4 */ , { 0x01, 0, 0xff } /* 5 */ , { 0x85, 0, 0xff } /* 6 */ ,
- { -1, 0, 0xff } /* 7 */ , { 0xff, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ ,
- { 0xff, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0xff, 0, 0xff } /* c */ ,
- { 0x40, 0, 0xff } /* d */ }
- }
- }
+PIC16_device *pic16 = &default_device;
+static PIC16_device *devices = NULL;
-};
+extern set *includeDirsSet;
+extern set *userIncDirsSet;
-static int num_of_supported_PICS = sizeof(Pics16)/sizeof(PIC16_device);
+extern char *iComments2;
-#define DEFAULT_PIC "452"
+void pic16_dump_equates(FILE *of, set *equs)
+{
+ regs *r;
-PIC16_device *pic16=NULL;
-unsigned int stackPos = 0;
+ r = setFirstItem(equs);
+ if(!r)return;
-extern regs* newReg(short type, short pc_type, int rIdx, char *name, int size, int alias, operand *refop);
+ fprintf(of, "%s", iComments2);
+ fprintf(of, ";\tEquates to used internal registers\n");
+ fprintf(of, "%s", iComments2);
-void pic16_setMaxRAM(int size)
-{
- pic16->maxRAMaddress = size;
- stackPos = pic16->RAMsize-1;
-
- if (pic16->maxRAMaddress < 0) {
- fprintf(stderr, "invalid \"#pragma maxram 0x%x\" setting\n",
- pic16->maxRAMaddress);
- return;
- }
+ for(; r; r = setNextItem(equs)) {
+ fprintf(of, "%s\tequ\t0x%02x\n", r->name, r->address);
+ }
}
-extern char *iComments2;
-void pic16_dump_equates(FILE *of, set *equs)
+void pic16_dump_access(FILE *of, set *section)
{
regs *r;
- r = setFirstItem(equs);
- if(!r)return;
-
- fprintf(of, "%s", iComments2);
- fprintf(of, ";\tEquates to used internal registers\n");
- fprintf(of, "%s", iComments2);
-
- for(; r; r = setNextItem(equs)) {
- fprintf(of, "%s\tequ\t0x%02x\n", r->name, r->address);
- }
+ r = setFirstItem(section);
+ if(!r)return;
+
+ fprintf(of, "%s", iComments2);
+ fprintf(of, ";\tAccess bank symbols\n");
+ fprintf(of, "%s", iComments2);
+
+ fprintf(of, "\tudata_acs\n");
+ for(; r; r = setNextItem(section)) {
+ fprintf(of, "%s\tres\t%d\n", r->name, r->size);
+ statistics.adsize += r->size;
+ }
}
const regs *const *i = a;
const regs *const *j = b;
- /* sort primarily by the address */
- if( (*i)->address > (*j)->address)return 1;
- if( (*i)->address < (*j)->address)return -1;
-
- /* and secondarily by size */
- /* register size sorting may have strange results use with care */
- if( (*i)->size > (*j)->size)return 1;
- if( (*i)->size < (*j)->size)return -1;
-
- /* finally if in same address and same size sort by name */
- return (strcmp( (*i)->name, (*j)->name));
+ /* sort primarily by the address */
+ if( (*i)->address > (*j)->address)return 1;
+ if( (*i)->address < (*j)->address)return -1;
+
+ /* and secondarily by size */
+ /* register size sorting may have strange results use with care */
+ if( (*i)->size > (*j)->size)return 1;
+ if( (*i)->size < (*j)->size)return -1;
+
+ /* finally if in same address and same size sort by name */
+ return (strcmp( (*i)->name, (*j)->name));
return 0;
}
const symbol *const *i = a;
const symbol *const *j = b;
- /* sort primarily by the address */
- if( SPEC_ADDR((*i)->etype) > SPEC_ADDR((*j)->etype))return 1;
- if( SPEC_ADDR((*i)->etype) < SPEC_ADDR((*j)->etype))return -1;
-
- /* and secondarily by size */
- /* register size sorting may have strange results use with care */
- if( getSize((*i)->etype) > getSize((*j)->etype))return 1;
- if( getSize((*i)->etype) < getSize((*j)->etype))return -1;
+ /* sort primarily by the address */
+ if( SPEC_ADDR((*i)->etype) > SPEC_ADDR((*j)->etype))return 1;
+ if( SPEC_ADDR((*i)->etype) < SPEC_ADDR((*j)->etype))return -1;
+
+ /* and secondarily by size */
+ /* register size sorting may have strange results use with care */
+ if( getSize((*i)->etype) > getSize((*j)->etype))return 1;
+ if( getSize((*i)->etype) < getSize((*j)->etype))return -1;
- /* finally if in same address and same size sort by name */
- return (strcmp( (*i)->rname, (*j)->rname));
+ /* finally if in same address and same size sort by name */
+ return (strcmp( (*i)->rname, (*j)->rname));
return 0;
}
void pic16_dump_usection(FILE *of, set *section, int fix)
{
static int abs_usection_no=0;
+ static unsigned int usection_no=0;
regs *r, *rprev;
- int init_addr, i;
+ unsigned int init_addr, i;
regs **rlist;
regs *r1;
- /* put all symbols in an array */
- rlist = Safe_calloc(elementsInSet(section), sizeof(regs *));
- r = rlist[0]; i = 0;
- for(rprev = setFirstItem(section); rprev; rprev = setNextItem(section)) {
- rlist[i] = rprev; i++;
- }
-
- if(!i) {
- if(rlist)free(rlist);
- return;
- }
-
- /* sort symbols according to their address */
- qsort(rlist, i /*elementsInSet(section)*/, sizeof(regs *), regCompare);
-
- if(!fix) {
- fprintf(of, "\n\n\tudata\n");
- for(r = setFirstItem(section); r; r = setNextItem(section)) {
- fprintf(of, "%s\tres\t%d\n", r->name, r->size);
- }
- } else {
- int j=0;
- int deb_addr=0;
-
- rprev = NULL;
- init_addr = rlist[j]->address;
- deb_addr = init_addr;
- fprintf(of, "\n\nustat_%s_%02d\tudata\t0X%04X\n", moduleName, abs_usection_no++, init_addr);
-
- for(j=0;j<i;j++) {
- r = rlist[j];
- if(j < i-1)r1 = rlist[j+1]; else r1 = NULL;
-
- init_addr = r->address;
- deb_addr = init_addr;
-
- if((rprev && (init_addr > (rprev->address + rprev->size)))) {
- fprintf(of, "\n\nustat_%s_%02d\tudata\t0X%04X\n", moduleName, abs_usection_no++, init_addr);
- }
-
- if(r1 && (init_addr == r1->address)) {
- fprintf(of, "\n%s\tres\t0\n", r->name);
- } else {
- fprintf(of, "%s\tres\t%d\n", r->name, r->size);
- deb_addr += r->size;
- }
-
- rprev = r;
- }
- }
- free(rlist);
+ /* put all symbols in an array */
+ if (!elementsInSet(section)) return;
+ rlist = Safe_calloc(elementsInSet(section), sizeof(regs *));
+ r = rlist[0]; i = 0;
+ for(rprev = setFirstItem(section); rprev; rprev = setNextItem(section)) {
+ rlist[i] = rprev; i++;
+ }
+
+ if(!i) {
+ if(rlist)Safe_free(rlist);
+ return;
+ }
+
+ /* sort symbols according to their address */
+ qsort(rlist, i /*elementsInSet(section)*/, sizeof(regs *), regCompare);
+
+ if(!fix) {
+
+#define EMIT_SINGLE_UDATA_SECTION 0
+#if EMIT_SINGLE_UDATA_SECTION
+ fprintf(of, "\n\n\tudata\n");
+ for(r = setFirstItem(section); r; r = setNextItem(section)) {
+ fprintf(of, "%s\tres\t%d\n", r->name, r->size);
+ statistics.udsize += r->size;
+ }
+#else
+ for(r = setFirstItem(section); r; r = setNextItem(section)) {
+ //fprintf(of, "\nudata_%s_%s\tudata\n", moduleName, r->name);
+ fprintf(of, "\nudata_%s_%u\tudata\n", moduleName, usection_no++);
+ fprintf(of, "%s\tres\t%d\n", r->name, r->size);
+ statistics.udsize += r->size;
+ }
+#endif
+ } else {
+ unsigned int j=0;
+ int deb_addr=0;
+
+ rprev = NULL;
+ init_addr = rlist[j]->address;
+ deb_addr = init_addr;
+ fprintf(of, "\n\nustat_%s_%02d\tudata\t0X%04X\n", moduleName, abs_usection_no++, init_addr);
+
+ for(j=0;j<i;j++) {
+ r = rlist[j];
+ if(j < i-1)r1 = rlist[j+1]; else r1 = NULL;
+
+ init_addr = r->address;
+ deb_addr = init_addr;
+
+ if((rprev && (init_addr > (rprev->address + rprev->size)))) {
+ fprintf(of, "\n\nustat_%s_%02d\tudata\t0X%04X\n", moduleName, abs_usection_no++, init_addr);
+ }
+
+ if(r1 && (init_addr == r1->address)) {
+ fprintf(of, "\n%s\tres\t0\n", r->name);
+ } else {
+ fprintf(of, "%s\tres\t%d\n", r->name, r->size);
+ deb_addr += r->size;
+ statistics.udsize += r->size;
+ }
+
+ rprev = r;
+ }
+ }
+ Safe_free(rlist);
+}
+
+void pic16_dump_gsection(FILE *of, set *sections)
+{
+ regs *r;
+ sectName *sname;
+
+ for(sname = setFirstItem(sections); sname; sname = setNextItem(sections)) {
+ if(!strcmp(sname->name, "access"))continue;
+ fprintf(of, "\n\n%s\tudata\n", sname->name);
+
+ for(r=setFirstItem(sname->regsSet); r; r=setNextItem(sname->regsSet)) {
+#if 0
+ fprintf(stderr, "%s:%d emitting variable %s for section %s (%p)\n", __FILE__, __LINE__,
+ r->name, sname->name, sname);
+#endif
+ fprintf(of, "%s\tres\t%d\n", r->name, r->size);
+ statistics.udsize += r->size;
+ }
+ }
}
/* forward declaration */
-void print_idata(FILE *of, symbol * sym, sym_link * type, initList * ilist);
+void pic16_printIval(symbol * sym, sym_link * type, initList * ilist, char ptype, void *p);
+extern void pic16_pCodeConstString(char *name, char *value, unsigned length);
void pic16_dump_isection(FILE *of, set *section, int fix)
{
static int abs_isection_no=0;
symbol *s, *sprev;
- int init_addr, i;
+ unsigned int init_addr, i;
symbol **slist;
- /* put all symbols in an array */
- slist = Safe_calloc(elementsInSet(section), sizeof(symbol *));
- s = slist[0]; i = 0;
- for(sprev = setFirstItem(section); sprev; sprev = setNextItem(section)) {
- slist[i] = sprev; i++;
- }
-
- if(!i) {
- if(slist)free(slist);
- return;
- }
-
- /* sort symbols according to their address */
- qsort(slist, i, sizeof(symbol *), symCompare);
-
- if(!fix) {
- fprintf(of, "\n\n\tidata\n");
- for(s = setFirstItem(section); s; s = setNextItem(section)) {
- print_idata(of, s, s->type, s->ival);
- }
- } else {
- int j=0;
- symbol *s1;
-
- sprev = NULL;
- init_addr = SPEC_ADDR(slist[j]->etype);
- fprintf(of, "\n\nistat_%s_%02d\tidata\t0X%04X\n", moduleName, abs_isection_no++, init_addr);
-
- for(j=0;j<i;j++) {
- s = slist[j];
- if(j < i-1)s1 = slist[j+1]; else s1 = NULL;
-
- init_addr = SPEC_ADDR(s->etype);
-
- if(sprev && (init_addr > (SPEC_ADDR(sprev->etype) + getSize(sprev->etype)))) {
- fprintf(of, "\nistat_%s_%02d\tidata\t0X%04X\n", moduleName, abs_isection_no++, init_addr);
- }
-
- print_idata(of, s, s->type, s->ival);
-
-#if 0
- if(r1 && (init_addr == r1->address)) {
- fprintf(of, "%s\tres\t0\n\n", r->name);
- } else {
- fprintf(of, "%s\tres\t%d\n", r->name, r->size);
- }
-#endif
-
- sprev = s;
- }
- }
- free(slist);
-}
+ /* put all symbols in an array */
+ if (!elementsInSet(section)) return;
+ slist = Safe_calloc(elementsInSet(section), sizeof(symbol *));
+ s = slist[0]; i = 0;
+ for(sprev = setFirstItem(section); sprev; sprev = setNextItem(section)) {
+ slist[i] = sprev; i++;
+ }
+ if(!i) {
+ if(slist)Safe_free(slist);
+ return;
+ }
-void pic16_dump_int_registers(FILE *of, set *section)
-{
- regs *r, *rprev;
- int i;
- regs **rlist;
+ /* sort symbols according to their address */
+ qsort(slist, i, sizeof(symbol *), symCompare);
- /* put all symbols in an array */
- rlist = Safe_calloc(elementsInSet(section), sizeof(regs *));
- r = rlist[0]; i = 0;
- for(rprev = setFirstItem(section); rprev; rprev = setNextItem(section)) {
- rlist[i] = rprev; i++;
- }
-
- /* sort symbols according to their address */
- qsort(rlist, elementsInSet(section), sizeof(regs *), regCompare);
-
- if(!i) {
- if(rlist)free(rlist);
- return;
- }
-
- fprintf(of, "\n\n; Internal registers\n");
-
- fprintf(of, "%s\tudata_ovr\t0x0000\n", ".registers");
- for(r = setFirstItem(section); r; r = setNextItem(section))
- fprintf(of, "%s\tres\t%d\n", r->name, r->size);
-
- free(rlist);
-}
+ pic16_initDB();
+ if(!fix) {
+ fprintf(of, "\n\n\tidata\n");
+ for(s = setFirstItem(section); s; s = setNextItem(section)) {
-#ifdef WORDS_BIGENDIAN
- #define _ENDIAN(x) (3-x)
-#else
- #define _ENDIAN(x) (x)
-#endif
+ if(s->ival) {
+ fprintf(of, "%s", s->rname);
+ pic16_printIval(s, s->type, s->ival, 'f', (void *)of);
+ pic16_flushDB('f', (void *)of);
+ } else {
+ if (IS_ARRAY (s->type) && IS_CHAR (s->type->next)
+ && SPEC_CVAL (s->etype).v_char) {
-#define BYTE_IN_LONG(x,b) ((x>>(8*_ENDIAN(b)))&0xff)
+// fprintf(stderr, "%s:%d printing code string from %s\n", __FILE__, __LINE__, s->rname);
+ pic16_pCodeConstString(s->rname , SPEC_CVAL (s->etype).v_char, getSize(s->type));
+ } else {
+ assert(0);
+ }
+ }
+ }
+ } else {
+ unsigned int j=0;
+ symbol *s1;
+ sprev = NULL;
+ init_addr = SPEC_ADDR(slist[j]->etype);
+ fprintf(of, "\n\nistat_%s_%02d\tidata\t0X%04X\n", moduleName, abs_isection_no++, init_addr);
-/*-----------------------------------------------------------------*/
-/* printIvalType - generates ival for int/char */
-/*-----------------------------------------------------------------*/
-void print_idataType (FILE *of, symbol *sym, sym_link * type, initList * ilist)
-{
- value *val;
- unsigned long ulval;
+ for(j=0;j<i;j++) {
+ s = slist[j];
+ if(j < i-1)s1 = slist[j+1]; else s1 = NULL;
- //fprintf(stderr, "%s\n",__FUNCTION__);
+ init_addr = SPEC_ADDR(s->etype);
- /* if initList is deep */
- if (ilist->type == INIT_DEEP)
- ilist = ilist->init.deep;
+ if(sprev && (init_addr > (SPEC_ADDR(sprev->etype) + getSize(sprev->etype)))) {
+ fprintf(of, "\nistat_%s_%02d\tidata\t0X%04X\n", moduleName, abs_isection_no++, init_addr);
+ }
- if (!IS_AGGREGATE(sym->type) && getNelements(type, ilist)>1) {
- werror (W_EXCESS_INITIALIZERS, "scalar", sym->name, sym->lineDef);
- }
+ if(s->ival) {
+ fprintf(of, "%s", s->rname);
+ pic16_printIval(s, s->type, s->ival, 'f', (void *)of);
+ pic16_flushDB('f', (void *)of);
+ } else {
+ if (IS_ARRAY (s->type) && IS_CHAR (s->type->next)
+ && SPEC_CVAL (s->etype).v_char) {
- if (!(val = list2val (ilist))) {
- // assuming a warning has been thrown
- val=constVal("0");
- }
+// fprintf(stderr, "%s:%d printing code string from %s\n", __FILE__, __LINE__, s->rname);
+ pic16_pCodeConstString(s->rname , SPEC_CVAL (s->etype).v_char, getSize(s->type));
+ } else {
+ assert(0);
+ }
+ }
- if (val->type != type) {
- val = valCastLiteral(type, floatFromVal(val));
- }
- if(val)
- ulval = (unsigned long) floatFromVal (val);
- else
- ulval =0;
-
- switch (getSize (type)) {
- case 1:
- if(isprint(BYTE_IN_LONG(ulval, 0)))
- fprintf(of, "%s\tdata\t\"%c\"\n", sym->rname, (unsigned char)BYTE_IN_LONG(ulval, 0));
- else
- fprintf(of, "%s\tdata\t0x%02x\n", sym->rname, (unsigned char)BYTE_IN_LONG(ulval, 0));
-// pic16_addpCode2pBlock(pb,pic16_newpCode(POC_RETLW,pic16_newpCodeOpLit(BYTE_IN_LONG(ulval,0))));
- break;
-
- case 2:
- fprintf(of, "%s\tdw\t0x%02x, 0x%02x\n", sym->rname, (unsigned int)(BYTE_IN_LONG(ulval, 0)),
- (unsigned int)(BYTE_IN_LONG(ulval, 1)));
-// fprintf(of, "%s\tdata\t0x%04x\n", sym->rname, (unsigned int)BYTE_IN_LONG(ulval, 0) +
-// (unsigned int)(BYTE_IN_LONG(ulval, 1) << 8));
- break;
-
- case 4:
- fprintf(of, "%s\tdw\t0x%04x,0x%04x\n", sym->rname, (unsigned int)(BYTE_IN_LONG(ulval, 0)
- + (BYTE_IN_LONG(ulval, 1) << 8)),
- (unsigned)(BYTE_IN_LONG(ulval, 2)
- + (BYTE_IN_LONG(ulval, 3) << 8)));
-// pic16_addpCode2pBlock(pb,pic16_newpCode(POC_RETLW,pic16_newpCodeOpLit(BYTE_IN_LONG(ulval,0))));
-// pic16_addpCode2pBlock(pb,pic16_newpCode(POC_RETLW,pic16_newpCodeOpLit(BYTE_IN_LONG(ulval,1))));
-// pic16_addpCode2pBlock(pb,pic16_newpCode(POC_RETLW,pic16_newpCodeOpLit(BYTE_IN_LONG(ulval,2))));
-// pic16_addpCode2pBlock(pb,pic16_newpCode(POC_RETLW,pic16_newpCodeOpLit(BYTE_IN_LONG(ulval,3))));
- break;
- }
+ sprev = s;
+ }
+ }
+ Safe_free(slist);
}
-/*-----------------------------------------------------------------*/
-/* print_idataChar - generates initital value for character array */
-/*-----------------------------------------------------------------*/
-static int
-print_idataChar (FILE *of, symbol *sym, sym_link * type, initList * ilist, char *s)
+void pic16_dump_int_registers(FILE *of, set *section)
{
- value *val;
- int remain;
- char old_ch=0, *vchar;
+ regs *r, *rprev;
+ int i;
+ regs **rlist;
- // fprintf(stderr, "%s\n",__FUNCTION__);
- if (!s)
- {
+ /* put all symbols in an array */
+ if (!elementsInSet(section)) return;
+ rlist = Safe_calloc(elementsInSet(section), sizeof(regs *));
+ r = rlist[0]; i = 0;
+ for(rprev = setFirstItem(section); rprev; rprev = setNextItem(section)) {
+ rlist[i] = rprev; i++;
+ }
- 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;
-
-
- fprintf(of, "%s\tdata\t", sym->rname);
- vchar = SPEC_CVAL(val->etype).v_char;
- for(remain=0; remain<DCL_ELEM(type); remain++) {
- if(!isprint(old_ch)) {
- if(isprint(vchar[remain]))fprintf(of, "%s\"%c", (remain?", ":""), vchar[remain]);
- else fprintf(of, "0x%02x", vchar[remain]);
- } else
- if(!isprint(vchar[remain]))fprintf(of, "\", 0x%02x", vchar[remain]);
- else fprintf(of, "%c", vchar[remain]);
- old_ch = vchar[ remain ];
- }
-// fprintf(of, "0x%02x%s", SPEC_CVAL(val->etype).v_char[ remain ], (remain==DCL_ELEM(type)-1?"":","));
-
-
- if ((remain = (DCL_ELEM (type) - strlen (SPEC_CVAL (val->etype).v_char) - 1)) > 0)
- {
- while (remain--)
- {
- fprintf(of, "0x%02x%s", 0x00 /*SPEC_CVAL(val->etype).v_char[ remain ]*/ , (remain==DCL_ELEM(type)-1?"":","));
- }
- }
- fprintf(of, "\n");
- return 1;
- }
- else
- return 0;
- }
- else {
- fprintf(of, "%s\tdata\t", sym->rname);
- vchar = s; old_ch = 0;
- for(remain=0; remain<strlen(s); remain++)
- {
- if(!isprint(old_ch)) {
- if(isprint(vchar[remain]))fprintf(of, "%s\"%c", (remain?", ":""), vchar[remain]);
- else fprintf(of, "0x%02x", vchar[remain]);
- } else
- if(!isprint(vchar[remain]))fprintf(of, "\", 0x%02x", vchar[remain]);
- else fprintf(of, "%c", vchar[remain]);
- old_ch = vchar[ remain ];
-// fprintf(of, "0x%02x%s", s[ remain ], (remain==strlen(s)-1?"":","));
- }
- }
- return 1;
+ /* sort symbols according to their address */
+ qsort(rlist, elementsInSet(section), sizeof(regs *), regCompare);
+
+ if(!i) {
+ if(rlist)Safe_free(rlist);
+ return;
+ }
+
+ fprintf(of, "\n\n; Internal registers\n");
+
+ fprintf(of, "%s\tudata_ovr\t0x0000\n", ".registers");
+ for(r = setFirstItem(section); r; r = setNextItem(section)) {
+ fprintf(of, "%s\tres\t%d\n", r->name, r->size);
+ statistics.intsize += r->size;
+ }
+
+ Safe_free(rlist);
}
-/*-----------------------------------------------------------------*/
-/* print_idataArray - generates code for array initialization */
-/*-----------------------------------------------------------------*/
-static void
-print_idataArray (FILE *of, symbol * sym, sym_link * type, initList * ilist)
+/**
+ * Find the device structure for the named device.
+ * Consider usind pic16_find_device() instead!
+ *
+ * @param name
+ * a name for the desired device
+ * @param head
+ * a pointer to the head of the list of devices
+ * @return
+ * a pointer to the structure for the desired
+ * device, or NULL
+ */
+static PIC16_device *
+find_in_list(const char *name, PIC16_device *head)
{
- 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)) {
-// fprintf(stderr,"%s:%d - is_char\n",__FUNCTION__,__LINE__);
- if (!IS_LITERAL(list2val(ilist)->etype)) {
- werror (W_INIT_WRONG);
- return;
- }
- if (print_idataChar (of, sym, type,
- (ilist->type == INIT_DEEP ? ilist->init.deep : ilist),
- SPEC_CVAL (sym->etype).v_char))
- return;
- }
- /* not the special case */
- if (ilist->type != INIT_DEEP)
- {
- werror (E_INIT_STRUCT, sym->name);
- return;
- }
+ int i;
- iloop = ilist->init.deep;
- lcnt = DCL_ELEM (type);
+ while (head) {
+ for (i = 0; i < 4; i++) {
+ if (0 == strcmp(head->name[i], name)) {
+ return (head);
+ } // if
+ } // for
- for (;;)
- {
- //fprintf(stderr,"%s:%d - is_char\n",__FUNCTION__,__LINE__);
- size++;
- print_idata (of, sym, type->next, iloop);
- 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) {
- /* if initializers left */
- if (iloop) {
- werror (W_EXCESS_INITIALIZERS, "array", sym->name, sym->lineDef);
- }
- break;
- }
- }
+ head = head->next;
+ } // while
- /* if we have not been given a size */
- if (!DCL_ELEM (type))
- DCL_ELEM (type) = size;
+ return (NULL);
+}
- return;
+/**
+ * Print a list of supported devices.
+ * If --verbose was given, also emit key characteristics (memory size,
+ * access bank split point, address range of SFRs and config words).
+ *
+ * @param head
+ * a pointer to the head of the list of devices
+ */
+static void
+pic16_list_devices(PIC16_device *head)
+{
+ int i = 0;
+
+ if (options.verbose) {
+ printf("device RAM split config words\n");
+ } // if
+ while (head) {
+ printf("%-10s ", head->name[0]);
+ if (options.verbose) {
+ printf("%5d 0x%02x 0x%06x..0x%06x\n",
+ head->RAMsize,
+ head->acsSplitOfs,
+ head->cwInfo.confAddrStart,
+ head->cwInfo.confAddrEnd);
+ } else {
+ i++;
+ if (0 == (i % 6)) {
+ printf("\n");
+ } // if
+ } // if
+ head = head->next;
+ } // while
+ printf("\n");
}
-/*-----------------------------------------------------------------*/
-/* print_idata - generates code for initial value */
-/*-----------------------------------------------------------------*/
-void print_idata(FILE *of, symbol * sym, sym_link * type, initList * ilist)
+/**
+ * Read a single line from the given file.
+ *
+ * @param file
+ * a pointer to the open file to read
+ * @return
+ * a pointer to a malloc'ed copy of the (next) line, or NULL
+ */
+static char *
+get_line (FILE *file)
{
- if (!ilist)
- return;
+ static struct dbuf_s dbuf;
+ static int initialized = 0;
- /* if structure then */
- if (IS_STRUCT (type))
+ if (!initialized)
{
- //fprintf(stderr,"%s struct\n",__FUNCTION__);
- //printIvalStruct (sym, type, ilist, oFile);
- fprintf(stderr, "%s:%d: PIC16 port error: structure initialisation is not implemented yet.\n",
- __FILE__, __LINE__);
- abort();
- return;
+ dbuf_init (&dbuf, 129);
+ initialized = 1;
}
+ else
+ dbuf_set_length (&dbuf, 0);
- /* if this is a pointer */
- if (IS_PTR (type))
- {
- //fprintf(stderr,"%s pointer\n",__FUNCTION__);
- //printIvalPtr (sym, type, ilist, oFile);
- fprintf(stderr, "%s:%d: PIC16 port error: pointer initialisation is not immplemented yet.\n",
- __FILE__, __LINE__);
- abort();
- return;
- }
- /* if this is an array */
- if (IS_ARRAY (type))
+ if (dbuf_getline (&dbuf, file) != 0)
{
- //fprintf(stderr,"%s array\n",__FUNCTION__);
- print_idataArray (of, sym, type, ilist);
- return;
+ dbuf_chomp (&dbuf);
+ /* (char *) type cast is an ugly hack since pic16_find_device() modifies the buffer */
+ return (char *)dbuf_get_buf (&dbuf);
}
-
- /* if type is SPECIFIER */
- if (IS_SPEC (type))
+ else
{
-// fprintf(stderr,"%s spec\n",__FUNCTION__);
- print_idataType(of, sym, type, ilist);
- return;
+ dbuf_destroy(&dbuf);
+ initialized = 0;
+ return NULL;
}
}
-
-
-
-/*-----------------------------------------------------------------*
- * void pic16_list_valid_pics(int ncols, int list_alias)
+/**
+ * Truncate the given string in place (!) at the first '#' character (if any).
*
- * Print out a formatted list of valid PIC devices
- *
- * ncols - number of columns in the list.
- *
- * list_alias - if non-zero, print all of the supported aliases
- * for a device (e.g. F84, 16F84, etc...)
- *-----------------------------------------------------------------*/
-void pic16_list_valid_pics(int ncols, int list_alias)
-{
- int col,longest;
- int i,j,k,l;
-
- if(list_alias)
- list_alias = sizeof(Pics16[0].name) / sizeof(Pics16[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; i<num_of_supported_PICS; i++) {
- for(j=0; j<=list_alias; j++) {
- k = strlen(Pics16[i].name[j]);
- if(k>longest)
- longest = k;
- }
- }
-
- col = 0;
-
- for(i=0; i < num_of_supported_PICS; i++) {
- j = 0;
- do {
-
- fprintf(stderr,"%s", Pics16[i].name[j]);
- if(col<ncols) {
- l = longest + 2 - strlen(Pics16[i].name[j]);
- for(k=0; k<l; k++)
- fputc(' ',stderr);
-
- col++;
-
- } else {
- fputc('\n',stderr);
- col = 0;
- }
-
- } while(++j<list_alias);
-
- }
- if(col != ncols)
- fputc('\n',stderr);
-
-}
-
-/*-----------------------------------------------------------------*
- *
- *-----------------------------------------------------------------*/
-PIC16_device *pic16_find_device(char *name)
+ * @param line
+ * a pointer to the string to truncate
+ * @return
+ * a pointer to the truncated string (i.e., line)
+ */
+static char *
+strip_comment (char *line)
{
-
- int i,j;
-
- if(!name)
- return NULL;
-
- for(i = 0; i<num_of_supported_PICS; i++) {
-
- for(j=0; j<PROCESSOR_NAMES; j++)
- if(!STRCASECMP(Pics16[i].name[j], name) )
- return &Pics16[i];
- }
-
- /* not found */
- return NULL;
+ char *l = line;
+ char c;
+
+ if (!line) {
+ return (line);
+ } // if
+
+ while (0 != (c = *l)) {
+ if ('#' == c) {
+ *l = 0;
+ return (line);
+ } // if
+ l++;
+ } // while
+
+ return (line);
}
-/*-----------------------------------------------------------------*
- *
- *-----------------------------------------------------------------*/
-void pic16_init_pic(char *pic_type)
+/**
+ * Report errors in the device specification.
+ *
+ * @param msg
+ * a pointer to the detailed message
+ */
+#define SYNTAX(msg) do { \
+ fprintf(stderr, "%s:%d: Syntax error: %s\n", \
+ DEVICE_FILE_NAME, lineno, msg); \
+} while (0)
+
+/**
+ * Locate and read in the device specification (if required) and
+ * return the device structure for the named device.
+ *
+ * @param name
+ * a pointer to the name of the desired device
+ * @return
+ * a pointer to the device structure, or NULL
+ */
+static PIC16_device *
+pic16_find_device(const char *name)
{
- pic16 = pic16_find_device(pic_type);
-
- if(!pic16) {
- if(pic_type)
- fprintf(stderr, "'%s' was not found.\n", pic_type);
- else
- fprintf(stderr, "No processor has been specified (use -pPROCESSOR_NAME)\n");
-
- fprintf(stderr,"Valid devices are:\n");
-
- pic16_list_valid_pics(4,0);
- exit(1);
- }
-
-// printf("PIC processor found and initialized: %s\n", pic_type);
- pic16_setMaxRAM( 0xfff );
+ const char *path;
+ char buffer[PATH_MAX];
+ char *line, *key;
+ const char *sep = " \t\n\r";
+ FILE *f = NULL;
+ PIC16_device *d = NULL, *template;
+ PIC16_device *head = NULL, *tail = NULL;
+ set *_sets[] = { userIncDirsSet, includeDirsSet };
+ set **sets = &_sets[0];
+ int lineno = 0;
+ int res, i;
+ int val[3];
+
+ if (!devices) {
+ //printf("%s: searching %s\n", __func__, DEVICE_FILE_NAME);
+
+ // locate the specification file in the include search paths
+ for (i = 0; (NULL == f) && (i < 2); i++) {
+ for (path = setFirstItem(sets[i]);
+ (NULL == f) && path;
+ path = setNextItem(sets[i]))
+ {
+ SNPRINTF(&buffer[0], PATH_MAX, "%s%s%s",
+ path, DIR_SEPARATOR_STRING, DEVICE_FILE_NAME);
+ //printf("%s: checking %s\n", __func__, &buffer[0]);
+ f = fopen(&buffer[0], "r");
+ } // for
+ } // while
+ } // if
+
+ if (devices) {
+ // list already set up, nothing to do
+ } else if (NULL == f) {
+ fprintf(stderr, "ERROR: device list %s not found, specify its path via -I<path>\n", DEVICE_FILE_NAME);
+ d = &default_device;
+ } else {
+ // parse the specification file and construct a linked list of
+ // supported devices
+ d = NULL;
+ while (NULL != (line = get_line(f))) {
+ strip_comment(line);
+ //printf("%s: read %s\n", __func__, line);
+ lineno++;
+ key = strtok(line, sep);
+ if (!key) {
+ // empty line---ignore
+ } else if (0 == strcmp(key, "name")) {
+ // name %<name>s
+ if (d) {
+ if (tail) {
+ tail->next = d;
+ } else {
+ head = d;
+ } // if
+ tail = d;
+ d = NULL;
+ } // if
+
+ res = sscanf(&line[1+strlen(key)], " %16s", &buffer[3]);
+ if ((1 < res) || (3 > strlen(&buffer[3]))) {
+ SYNTAX("<name> (e.g., 18f452) expected.");
+ } else {
+ d = Safe_calloc(1, sizeof(PIC16_device));
+
+ // { "p18f452", "18f452", "pic18f452", "f452" }
+ buffer[0] = 'p';
+ buffer[1] = 'i';
+ buffer[2] = 'c';
+ d->name[3] = Safe_strdup(&buffer[5]);
+ d->name[2] = Safe_strdup(&buffer[0]);
+ d->name[1] = Safe_strdup(&buffer[3]);
+ buffer[2] = 'p';
+ d->name[0] = Safe_strdup(&buffer[2]);
+ } // if
+ } else if (0 == strcmp(key, "using")) {
+ // using %<name>s
+ res = sscanf(&line[1+strlen(key)], " %16s", &buffer[0]);
+ if ((1 < res) || (3 > strlen(&buffer[3]))) {
+ SYNTAX("<name> (e.g., 18f452) expected.");
+ } else {
+ template = find_in_list(&buffer[0], head);
+ if (!template) {
+ SYNTAX("<name> (e.g., 18f452) expected.");
+ } else {
+ memcpy(&d->RAMsize, &template->RAMsize,
+ ((char *)&d->next) - ((char *)&d->RAMsize));
+ } // if
+ } // if
+ } else if (0 == strcmp(key, "ramsize")) {
+ // ramsize %<bytes>i
+ res = sscanf(&line[1+strlen(key)], " %i", &val[0]);
+ if (res < 1) {
+ SYNTAX("<bytes> (e.g., 256) expected.");
+ } else {
+ d->RAMsize = val[0];
+ } // if
+ } else if (0 == strcmp(key, "split")) {
+ // split %<offset>i
+ res = sscanf(&line[1+strlen(key)], " %i", &val[0]);
+ if (res < 1) {
+ SYNTAX("<offset> (e.g., 0x80) expected.");
+ } else {
+ d->acsSplitOfs = val[0];
+ } // if
+ } else if (0 == strcmp(key, "configrange")) {
+ // configrange %<first>i %<last>i
+ res = sscanf(&line[1+strlen(key)], " %i %i",
+ &val[0], &val[1]);
+ if (res < 2) {
+ SYNTAX("<first> <last> (e.g., 0xf60 0xfff) expected.");
+ } else {
+ d->cwInfo.confAddrStart = val[0];
+ d->cwInfo.confAddrEnd = val[1];
+ } // if
+ } else if (0 == strcmp(key, "configword")) {
+ // configword %<address>i %<mask>i %<value>i
+ res = sscanf(&line[1+strlen(key)], " %i %i %i",
+ &val[0], &val[1], &val[2]);
+ if (res < 3) {
+ SYNTAX("<address> <mask> <value> (e.g., 0x200001 0x0f 0x07) expected.");
+ } else {
+ val[0] -= d->cwInfo.confAddrStart;
+ if ((val[0] < 0)
+ || (val[0] > (d->cwInfo.confAddrEnd - d->cwInfo.confAddrStart))
+ || (val[0] >= CONFIGURATION_WORDS))
+ {
+ SYNTAX("address out of bounds.");
+ } else {
+ d->cwInfo.crInfo[val[0]].mask = val[1];
+ d->cwInfo.crInfo[val[0]].value = val[2];
+ } // if
+ } // if
+ } else if (0 == strcmp(key, "idlocrange")) {
+ // idlocrange %<first>i %<last>i
+ res = sscanf(&line[1+strlen(key)], " %i %i",
+ &val[0], &val[1]);
+ if (res < 2) {
+ SYNTAX("<first> <last> (e.g., 0xf60 0xfff) expected.");
+ } else {
+ d->idInfo.idAddrStart = val[0];
+ d->idInfo.idAddrEnd = val[1];
+ } // if
+ } else if (0 == strcmp(key, "idword")) {
+ // idword %<address>i %<value>i
+ res = sscanf(&line[1+strlen(key)], " %i %i",
+ &val[0], &val[1]);
+ if (res < 2) {
+ SYNTAX("<address> <value> (e.g., 0x3fffff 0x00) expected.");
+ } else {
+ val[0] -= d->idInfo.idAddrStart;
+ if ((val[0] < 0)
+ || (val[0] > (d->idInfo.idAddrEnd - d->idInfo.idAddrStart))
+ || (val[0] >= IDLOCATION_BYTES))
+ {
+ SYNTAX("address out of bounds.");
+ } else {
+ d->idInfo.irInfo[val[0]].value = val[1];
+ } // if
+ } // if
+ } else {
+ printf("%s: Invalid keyword in %s ignored: %s\n",
+ __func__, DEVICE_FILE_NAME, key);
+ } // if
+ } // while
+
+ if (d) {
+ if (tail) {
+ tail->next = d;
+ } else {
+ head = d;
+ } // if
+ tail = d;
+ d = NULL;
+ } // if
+
+ devices = head;
+
+ fclose(f);
+ } // if
+
+ d = find_in_list(name, devices);
+ if (!d) {
+ d = &default_device;
+ } // if
+
+ return (d);
}
/*-----------------------------------------------------------------*
- *
+ *
*-----------------------------------------------------------------*/
-int pic16_picIsInitialized(void)
+void pic16_init_pic(const char *pic_type)
{
- if(pic16 && pic16->maxRAMaddress > 0)
- return 1;
-
- return 0;
-
+ pic16 = pic16_find_device(pic_type);
+
+ if (&default_device == pic16) {
+ if (pic_type) {
+ fprintf(stderr, "'%s' was not found.\n", pic_type);
+ } else {
+ fprintf(stderr, "No processor has been specified (use -pPROCESSOR_NAME)\n");
+ } // if
+
+ if (devices) {
+ fprintf(stderr,"Valid devices are (use --verbose for more details):\n");
+ pic16_list_devices(devices);
+ } // if
+ exit(EXIT_FAILURE);
+ } // if
}
/*-----------------------------------------------------------------*
return pic16->name[0];
}
-#define DEBUG_CHECK 0
+#define DEBUG_CHECK 0
/*
* return 1 if register wasn't found and added, 0 otherwise
{
regs *tmp;
+
+ if(!reg)return 0;
#if DEBUG_CHECK
- fprintf(stderr, "%s: about to insert REGister: %s ... ", __FUNCTION__, reg->name);
+ fprintf(stderr, "%s: about to insert REGister: %s ... ", __FUNCTION__, reg->name);
#endif
- for(tmp = setFirstItem(*set); tmp; tmp = setNextItem(*set)) {
- if(!strcmp(tmp->name, reg->name))break;
- }
-
- if(!tmp) {
- addSet(set, reg);
+ for(tmp = setFirstItem(*set); tmp; tmp = setNextItem(*set)) {
+ if(!strcmp(tmp->name, reg->name))break;
+ }
+
+ if(!tmp) {
+ addSet(set, reg);
#if DEBUG_CHECK
- fprintf(stderr, "added\n");
+ fprintf(stderr, "added\n");
#endif
- return 1;
- }
+ return 1;
+ }
#if DEBUG_CHECK
- fprintf(stderr, "already added\n");
+ fprintf(stderr, "already added\n");
#endif
return 0;
}
{
symbol *tmp;
+ if(!sym)return 0;
#if DEBUG_CHECK
- fprintf(stderr, "%s: about to add SYMbol: %s ... ", __FUNCTION__, sym->name);
+ fprintf(stderr, "%s: about to add SYMbol: %s ... ", __FUNCTION__, sym->name);
#endif
- for(tmp = setFirstItem( *set ); tmp; tmp = setNextItem(*set)) {
- if(!strcmp(tmp->name, sym->name))break;
- }
-
- if(!tmp) {
- addSet(set, sym);
+ for(tmp = setFirstItem( *set ); tmp; tmp = setNextItem(*set)) {
+ if(!strcmp(tmp->name, sym->name))break;
+ }
+
+ if(!tmp) {
+ addSet(set, sym);
#if DEBUG_CHECK
- fprintf(stderr, "added\n");
+ fprintf(stderr, "added\n");
#endif
- return 1;
- }
+ return 1;
+ }
#if DEBUG_CHECK
- fprintf(stderr, "already added\n");
+ fprintf(stderr, "already added\n");
#endif
return 0;
}
+int checkSym(set *set, symbol *sym)
+{
+ symbol *tmp;
+
+ if(!sym)return 0;
+
+#if DEUG_CHECK
+ fprintf(stderr, "%s: about to search for SYMbol: %s ... ", __FUNCTION__, sym->name);
+#endif
+
+ for(tmp = setFirstItem( set ); tmp; tmp = setNextItem( set )) {
+ if(!strcmp(tmp->name, sym->name))break;
+ }
+
+ if(!tmp) {
+#if DEBUG_CHECK
+ fprintf(stderr, "not found\n");
+#endif
+ return 0;
+ }
+
+#if DEBUG_CHECK
+ fprintf(stderr, "found\n");
+#endif
+
+ return 1;
+}
/*-----------------------------------------------------------------*
* void pic16_groupRegistersInSection - add each register to its *
- * corresponding section *
+ * corresponding section *
*-----------------------------------------------------------------*/
void pic16_groupRegistersInSection(set *regset)
{
regs *reg;
+ sectSym *ssym;
+ int docontinue=0;
- for(reg=setFirstItem(regset); reg; reg = setNextItem(regset)) {
+ for(reg=setFirstItem(regset); reg; reg = setNextItem(regset)) {
-// fprintf(stderr, "%s:%d group registers in section, reg: %s\n", __FILE__, __LINE__, reg->name);
+#if 0
+ fprintf(stderr, "%s:%d group registers in section, reg: %s (used: %d, %p)\n",
+ __FILE__, __LINE__, reg->name, reg->wasUsed, reg);
+#endif
+ if((reg->wasUsed
+ && !(reg->regop && SPEC_EXTR(OP_SYM_ETYPE(reg->regop))))
+ ) {
- if(reg->wasUsed
- && !(reg->regop && SPEC_EXTR(OP_SYM_ETYPE(reg->regop)))) {
-
- /* avoid grouping registers that have an initial value,
- * they will be added later in idataSymSet */
- if(reg->regop && (OP_SYMBOL(reg->regop)->ival && !OP_SYMBOL(reg->regop)->level))
- continue;
+ /* avoid grouping registers that have an initial value,
+ * they will be added later in idataSymSet */
+ if(reg->regop && (OP_SYMBOL(reg->regop)->ival && !OP_SYMBOL(reg->regop)->level))
+ continue;
#if 0
- fprintf(stderr, "%s:%d register %s alias:%d fix:%d ival=%i level=%i\n",
- __FILE__, __LINE__, reg->name, reg->alias, reg->isFixed,
- (reg->regop?(OP_SYMBOL(reg->regop)->ival?1:0):-1),
- (reg->regop?(OP_SYMBOL(reg->regop)->level):-1) );
+ fprintf(stderr, "%s:%d register %s alias:%d fix:%d ival=%i level=%i code=%i\n",
+ __FILE__, __LINE__, reg->name, reg->alias, reg->isFixed,
+ (reg->regop?(OP_SYMBOL(reg->regop)->ival?1:0):-1),
+ (reg->regop?(OP_SYMBOL(reg->regop)->level):-1),
+ (reg->regop?(IS_CODE(OP_SYM_ETYPE(reg->regop))):-1) );
#endif
- if(reg->alias) {
- checkAddReg(&pic16_equ_data, reg);
- } else
- if(reg->isFixed) {
- checkAddReg(&pic16_fix_udata, reg);
- } else
- if(!reg->isFixed) {
- if(reg->pc_type == PO_GPR_TEMP)
- checkAddReg(&pic16_int_regs, reg);
- else
- checkAddReg(&pic16_rel_udata, reg);
- }
- }
- }
+ docontinue=0;
+ for(ssym=setFirstItem(sectSyms);ssym;ssym=setNextItem(sectSyms)) {
+ if(!strcmp(ssym->name, reg->name)) {
+// fprintf(stderr, "%s:%d section found %s (%p) with var %s\n",
+// __FILE__, __LINE__, ssym->section->name, ssym->section, ssym->name);
+ if(strcmp(ssym->section->name, "access")) {
+ addSet(&ssym->section->regsSet, reg);
+ docontinue=1;
+ break;
+ } else {
+ docontinue=0;
+ reg->accessBank = 1;
+ break;
+ }
+ }
+ }
+
+ if(docontinue)continue;
+
+// fprintf(stderr, "%s:%d reg: %s\n", __FILE__, __LINE__, reg->name);
+
+ if(reg->alias == 0x80) {
+ checkAddReg(&pic16_equ_data, reg);
+ } else
+ if(reg->isFixed) {
+ checkAddReg(&pic16_fix_udata, reg);
+ } else
+ if(!reg->isFixed) {
+ if(reg->pc_type == PO_GPR_TEMP)
+ checkAddReg(&pic16_int_regs, reg);
+ else {
+ if(reg->accessBank) {
+ if(reg->alias != 0x40)
+ checkAddReg(&pic16_acs_udata, reg);
+ } else
+ checkAddReg(&pic16_rel_udata, reg);
+ }
+ }
+ }
+ }
}
* This routine will assign a value to that address.
*
*-----------------------------------------------------------------*/
-void pic16_assignConfigWordValue(int address, int value)
+void pic16_assignConfigWordValue(int address, unsigned int value)
{
int i;
-
for(i=0;i<pic16->cwInfo.confAddrEnd-pic16->cwInfo.confAddrStart+1;i++) {
if((address == pic16->cwInfo.confAddrStart+i)
- && (pic16->cwInfo.crInfo[i].mask != -1)) {
-// fprintf(stderr, "setting location 0x%X to value 0x%x\n", /*address*/ pic16->cwInfo.confAddrStart+i, val
+ && (pic16->cwInfo.crInfo[i].mask != -1)
+ && (pic16->cwInfo.crInfo[i].mask != 0)) {
+
+#if 0
+ fprintf(stderr, "setting location 0x%X to value 0x%x\tmask: 0x%x\ttest: 0x%x\n",
+ /*address*/ pic16->cwInfo.confAddrStart+i, (~value)&0xff,
+ pic16->cwInfo.crInfo[i].mask,
+ (pic16->cwInfo.crInfo[i].mask) & (~value));
+#endif
+
+#if 0
+ if((((pic16->cwInfo.crInfo[i].mask) & (~value))&0xff) != ((~value)&0xff)) {
+ fprintf(stderr, "%s:%d a wrong value has been given for configuration register 0x%x\n",
+ __FILE__, __LINE__, address);
+ return;
+ }
+#endif
+
pic16->cwInfo.crInfo[i].value = value;
pic16->cwInfo.crInfo[i].emit = 1;
return;
}
}
+void pic16_assignIdByteValue(int address, char value)
+{
+ int i;
+
+ for(i=0;i<pic16->idInfo.idAddrEnd-pic16->idInfo.idAddrStart+1;i++) {
+ if(address == pic16->idInfo.idAddrStart+i) {
+ pic16->idInfo.irInfo[i].value = value;
+ pic16->idInfo.irInfo[i].emit = 1;
+ }
+ }
+}