X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fpic16%2Fdevice.c;h=e8ce0575348db29e10f3a48d83d673196f21ced0;hb=c21e1e2719c65dd3811b6a50b03229176c251a60;hp=a2617244c9d7ff6cc851d8b726b5bdfe6ceb3ca2;hpb=9eadc1d28a7826eca9f07b8c274a76a45c98b5d4;p=fw%2Fsdcc diff --git a/src/pic16/device.c b/src/pic16/device.c index a2617244..e8ce0575 100644 --- a/src/pic16/device.c +++ b/src/pic16/device.c @@ -9,12 +9,12 @@ 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. @@ -22,10 +22,10 @@ /* - 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 */ @@ -33,6 +33,7 @@ #include "common.h" // Include everything in the SDCC src directory #include "newalloc.h" +#include "dbuf_string.h" #include "main.h" @@ -40,558 +41,37 @@ #include "ralloc.h" #include "device.h" +stats_t statistics = { 0, 0, 0, 0 }; -static PIC16_device Pics16[] = { -// { -// {"p18f242", "18f242", "pic18f242", "f242", "18F242"}, // aliases -// 0, -// 0x300, // RAMsize -// 0, -// { 0xf80, 0xfff }, /* PIC18F242 range of SFR's */ -// { -// /* 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 */ } -// } -// }, - - { - {"p18f242", "18f242", "pic18f242", "f242"}, - 0, - 0x300, /* 768 */ - 0x80, - 0, - { 0xf80, 0xfff }, /* PIC18F242 range of SFR's */ - { - /* 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 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ , - { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ , - { 0x40, 0, 0xff } /* d */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f248", "18f248", "pic18f248", "f248"}, - 0, - 0x300, /* 768 */ - 0x60, - 0, - { 0xf00, 0xfff }, /* PIC18F248 range of SFR's */ - { - /* 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 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ , - { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ , - { 0x40, 0, 0xff } /* d */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f252", "18f252", "pic18f252", "f252"}, - 0, - 0x600, /* 1536 */ - 0x80, - 0, - { 0xf80, 0xfff }, /* PIC18F252 range of SFR's */ - { - /* 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f258", "18f258", "pic18f258", "f258"}, - 0, - 0x600, /* 1536 */ - 0x60, - 0, - { 0xf00, 0xfff }, /* PIC18F258 range of SFR's */ - { - /* 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f442", "18f442", "pic18f442", "f442"}, - 0, - 0x300, /* 768 */ - 0x80, - 0, - { 0xf80, 0xfff }, /* PIC18F442 range of SFR's */ - { - /* 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 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ , - { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ , - { 0x40, 0, 0xff } /* d */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f448", "18f448", "pic18f448", "f448"}, - 0, - 0x300, /* 768 */ - 0x60, - 0, - { 0xf00, 0xfff }, /* PIC18F448 range of SFR's */ - { - /* 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 */ , { 0x0f, 0, 0xff } /* 8 */ , { 0xc0, 0, 0xff } /* 9 */ , - { 0x0f, 0, 0xff } /* a */ , { 0xe0, 0, 0xff } /* b */ , { 0x0f, 0, 0xff } /* c */ , - { 0x40, 0, 0xff } /* d */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f452", "18f452", "pic18f452", "f452"}, - 0, - 0x600, /* 1536 */ - 0x80, - 0, - { 0xf80, 0xfff }, /* PIC18F452 range of SFR's */ - { - /* 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f458", "18f458", "pic18f458", "f458"}, - 0, - 0x600, /* 1536 */ - 0x60, - 0, - { 0xf00, 0xfff }, /* PIC18F458 range of SFR's */ - { - /* 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f1220", "18f1220", "pic18f1220", "f1220"}, - 0, - 0x100, /* 256 */ - 0x80, - 0, - { 0xf80, 0xfff }, /* PIC18F1220 range of SFR's */ - { - /* 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f2220", "18f2220", "pic18f2220", "f2220"}, - 0, - 0x200, /* 512 */ - 0x80, - 0, - { 0xf80, 0xfff }, /* PIC18F2220 range of SFR's */ - { - /* PIC18F2220 configuration words */ - 0x300001, - 0x30000d, - { { 0xcf, 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f2455", "18f2455", "pic18f2455", "f2455"}, - 0, - 0x800, /* 2048 */ - 0x60, - 0, - { 0xf62, 0xfff }, /* PIC18F2455 range of SFR's */ - { - /* PIC18F2455 configuration words */ - 0x300000, - 0x30000d, - { { 0x3f, 0, 0xff } /* 0 */ , { 0xcf, 0, 0xff } /* 1 */ , { 0x3f, 0, 0xff } /* 2 */ , - { 0x1f, 0, 0xff } /* 3 */ , { -1, 0, 0xff } /* 4 */ , { 0x87, 0, 0xff } /* 5 */ , - { 0xe5, 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f2550", "18f2550", "pic18f2550", "f2550"}, - 0, - 0x800, /* 2048 */ - 0x60, - 0, - { 0xf62, 0xfff }, /* PIC18F2550 range of SFR's */ - { - /* PIC18F2550 configuration words */ - 0x300000, - 0x30000d, - { { 0x3f, 0, 0xff } /* 0 */ , { 0xcf, 0, 0xff } /* 1 */ , { 0x3f, 0, 0xff } /* 2 */ , - { 0x1f, 0, 0xff } /* 3 */ , { -1, 0, 0xff } /* 4 */ , { 0x87, 0, 0xff } /* 5 */ , - { 0xe5, 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f4331", "18f4331", "pic18f4331", "f4331"}, - 0, - 0x300, /* 768 */ - 0x60, - 0, - { 0xf60, 0xfff }, /* PIC18F4331 range of SFR's */ - { - /* PIC18F4331 configuration words */ - 0x300001, - 0x30000d, - { { 0xcf, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x3f, 0, 0xff } /* 3 */ , - { 0x3c, 0, 0xff } /* 4 */ , { 0x9d, 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f4455", "18f4455", "pic18f4455", "f4455"}, - 0, - 0x800, /* 2048 */ - 0x60, - 0, - { 0xf62, 0xfff }, /* PIC18F4455 range of SFR's */ - { - /* PIC18F4455 configuration words */ - 0x300000, - 0x30000d, - { { 0x3f, 0, 0xff } /* 0 */ , { 0xcf, 0, 0xff } /* 1 */ , { 0x3f, 0, 0xff } /* 2 */ , - { 0x1f, 0, 0xff } /* 3 */ , { -1, 0, 0xff } /* 4 */ , { 0x87, 0, 0xff } /* 5 */ , - { 0xe5, 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f4520", "18f4520", "pic18f4520", "f4520"}, - 0, - 0x1000, /* 4096 */ +#define DEVICE_FILE_NAME "pic16devices.txt" + +static PIC16_device default_device = { + { "p18f452", "18f452", "pic18f452", "f452" }, + 0x600, 0x80, - 0, - { 0xf80, 0xfff }, /* PIC18F4520 range of SFR's */ - { - /* PIC18F4520 configuration words */ - 0x300000, - 0x30000d, - { { 0x3f, 0, 0xff } /* 0 */ , { 0xcf, 0, 0xff } /* 1 */ , { 0x1f, 0, 0xff } /* 2 */ , - { 0x1f, 0, 0xff } /* 3 */ , { -1, 0, 0xff } /* 4 */ , { 0x87, 0, 0xff } /* 5 */ , - { 0xc5, 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 */ } + { /* 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 */ } }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, + { /* ID locations */ + 0x200000, 0x200007, + { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f6520", "18f6520", "pic18f6520", "f6520"}, - 0, - 0x800, /* 2048 */ - 0x60, - 0, - { 0xf6b, 0xfff }, /* PIC18F6520 range of SFR's */ - { - /* PIC18F6520 configuration words */ - 0x300001, - 0x30000d, - { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ , - { 0x83, 0, 0xff } /* 4 */ , { 0x03, 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f6620", "18f6620", "pic18f6620", "f6620"}, - 0, - 0xf00, /* 3840 */ - 0x60, - 0, - { 0xf6b, 0xfff }, /* PIC18F6620 range of SFR's */ - { - /* PIC18F6620 configuration words */ - 0x300001, - 0x30000d, - { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ , - { 0x83, 0, 0xff } /* 4 */ , { 0x03, 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f6680", "18f6680", "pic18f6680", "f6680"}, - 0, - 0xf00, /* 3840 */ - 0x60, - 0, - { 0xd60, 0xfff }, /* PIC18F6680 range of SFR's */ - { - /* PIC18F6680 configuration words */ - 0x300001, - 0x30000d, - { { 0x2f, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x1f, 0, 0xff } /* 3 */ , - { 0x83, 0, 0xff } /* 4 */ , { 0x81, 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f6720", "18f6720", "pic18f6720", "f6720"}, - 0, - 0xf00, /* 3840 */ - 0x60, - 0, - { 0xf6b, 0xfff }, /* PIC18F6720 range of SFR's */ - { - /* PIC18F6720 configuration words */ - 0x300001, - 0x30000d, - { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ , - { 0x83, 0, 0xff } /* 4 */ , { 0x03, 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 */ } }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f8520", "18f8520", "pic18f8520", "f8520"}, - 0, - 0x800, /* 2048 */ - 0x60, - 1, - { 0xf6b, 0xfff }, /* PIC18F8520 range of SFR's */ - { - /* PIC18F8520 configuration words */ - 0x300001, - 0x30000d, - { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ , - { 0x83, 0, 0xff } /* 4 */ , { 0x03, 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f8620", "18f8620", "pic18f8620", "f8620"}, - 0, - 0xf00, /* 3840 */ - 0x60, - 1, - { 0xf6b, 0xfff }, /* PIC18F8620 range of SFR's */ - { - /* PIC18F8620 configuration words */ - 0x300001, - 0x30000d, - { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ , - { 0x83, 0, 0xff } /* 4 */ , { 0x03, 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f8680", "18f8680", "pic18f8680", "f8680"}, - 0, - 0xf00, /* 3840 */ - 0x60, - 1, - { 0xd60, 0xfff }, /* PIC18F8680 range of SFR's */ - { - /* PIC18F8680 configuration words */ - 0x300001, - 0x30000d, - { { 0x2f, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x1f, 0, 0xff } /* 3 */ , - { 0x83, 0, 0xff } /* 4 */ , { 0x81, 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - }, - { - {"p18f8720", "18f8720", "pic18f8720", "f8720"}, - 0, - 0xf00, /* 3840 */ - 0x60, - 1, - { 0xf6b, 0xfff }, /* PIC18F8720 range of SFR's */ - { - /* PIC18F8720 configuration words */ - 0x300001, - 0x30000d, - { { 0x27, 0, 0xff } /* 1 */ , { 0x0f, 0, 0xff } /* 2 */ , { 0x0f, 0, 0xff } /* 3 */ , - { 0x83, 0, 0xff } /* 4 */ , { 0x03, 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 */ } - }, - { 0x200000, 0x200007, - { { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, { 0, 0 }, - { 0, 0 }, { 0, 0 }, { 0, 0 } } - } - } - + NULL }; -static int num_of_supported_PICS = sizeof(Pics16)/sizeof(PIC16_device); +PIC16_device *pic16 = &default_device; +static PIC16_device *devices = NULL; -stats_t statistics = { 0, 0, 0, 0 }; - -#define DEFAULT_PIC "452" - -PIC16_device *pic16=NULL; -unsigned int stackPos = 0; -unsigned int stackLen = 0; - -extern regs* newReg(short type, short pc_type, int rIdx, char *name, int size, int alias, operand *refop); - -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; - } -} +extern set *includeDirsSet; +extern set *userIncDirsSet; extern char *iComments2; @@ -599,16 +79,16 @@ void pic16_dump_equates(FILE *of, set *equs) { 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(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); + } } @@ -616,18 +96,18 @@ void pic16_dump_access(FILE *of, set *section) { regs *r; - 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; - } + 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; + } } @@ -636,17 +116,17 @@ int regCompare(const void *a, const void *b) 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; } @@ -656,17 +136,17 @@ int symCompare(const void *a, const void *b) 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; } @@ -680,71 +160,71 @@ void pic16_dump_usection(FILE *of, set *section, int fix) regs **rlist; regs *r1; - /* 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 + /* 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; - } + 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; - } + 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;jaddress; - 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); + } 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;jaddress; + 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) @@ -752,19 +232,19 @@ 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(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)) { + 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); + 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; - } - } + fprintf(of, "%s\tres\t%d\n", r->name, r->size); + statistics.udsize += r->size; + } + } } @@ -779,240 +259,480 @@ void pic16_dump_isection(FILE *of, set *section, int fix) unsigned int init_addr, i; symbol **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; - } - - /* sort symbols according to their address */ - qsort(slist, i, sizeof(symbol *), symCompare); - - pic16_initDB(); - - if(!fix) { - fprintf(of, "\n\n\tidata\n"); - for(s = setFirstItem(section); s; s = setNextItem(section)) { - - 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) { - -// fprintf(stderr, "%s:%d printing code string from %s\n", __FILE__, __LINE__, s->rname); - pic16_pCodeConstString(s->rname , SPEC_CVAL (s->etype).v_char); - } 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); - - for(j=0;jetype); - - 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(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) { - -// fprintf(stderr, "%s:%d printing code string from %s\n", __FILE__, __LINE__, s->rname); - pic16_pCodeConstString(s->rname , SPEC_CVAL (s->etype).v_char); - } else { - assert(0); - } - } - - - sprev = s; - } - } - Safe_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 */ - 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++; - } - - /* 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); -} + 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); + } else { + assert(0); + } + } + } + } else { + unsigned int j=0; + symbol *s1; -/*-----------------------------------------------------------------* - * void pic16_list_valid_pics(int ncols, int list_alias) - * - * 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; + 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); - if(list_alias) - list_alias = sizeof(Pics16[0].name) / sizeof(Pics16[0].name[0]); + for(j=0;j 1) ? ncols-1 : 4; + init_addr = SPEC_ADDR(s->etype); - /* Find the device with the longest name */ - for(i=0,longest=0; ilongest) - longest = k; - } - } + 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); + } - col = 0; + 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) { - for(i=0; i < num_of_supported_PICS; i++) { - j = 0; - do { +// fprintf(stderr, "%s:%d printing code string from %s\n", __FILE__, __LINE__, s->rname); + pic16_pCodeConstString(s->rname , SPEC_CVAL (s->etype).v_char); + } else { + assert(0); + } + } - fprintf(stderr,"%s", Pics16[i].name[j]); - if(colname, r->size); + statistics.intsize += r->size; + } + Safe_free(rlist); } -/*-----------------------------------------------------------------* - * - *-----------------------------------------------------------------*/ -PIC16_device *pic16_find_device(char *name) +/** + * 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) { + int i; - int i,j; - - if(!name) - return NULL; + while (head) { + for (i = 0; i < 4; i++) { + if (0 == strcmp(head->name[i], name)) { + return (head); + } // if + } // for - for(i = 0; inext; + } // while - for(j=0; jname[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"); } -/*-----------------------------------------------------------------* - * - *-----------------------------------------------------------------*/ -void pic16_init_pic(char *pic_type) +/** + * 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) { - pic16 = pic16_find_device(pic_type); + static struct dbuf_s dbuf; + static int initialized = 0; - 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"); + if (!initialized) + { + dbuf_init (&dbuf, 129); + initialized = 1; + } + else + dbuf_set_length (&dbuf, 0); - fprintf(stderr,"Valid devices are:\n"); - pic16_list_valid_pics(4,0); - exit(1); - } + if (dbuf_getline (&dbuf, file) != 0) + { + dbuf_chomp (&dbuf); + /* (char *) type cast is an ugly hack since pic16_find_device() modifies the buffer */ + return (char *)dbuf_get_buf (&dbuf); + } + else + { + dbuf_destroy(&dbuf); + initialized = 0; + return NULL; + } +} -// printf("PIC processor found and initialized: %s\n", pic_type); - pic16_setMaxRAM( 0xfff ); +/** + * Truncate the given string in place (!) at the first '#' character (if any). + * + * @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) +{ + 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); +} + +/** + * 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) +{ + 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\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 %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(" (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 %s + res = sscanf(&line[1+strlen(key)], " %16s", &buffer[0]); + if ((1 < res) || (3 > strlen(&buffer[3]))) { + SYNTAX(" (e.g., 18f452) expected."); + } else { + template = find_in_list(&buffer[0], head); + if (!template) { + SYNTAX(" (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 %i + res = sscanf(&line[1+strlen(key)], " %i", &val[0]); + if (res < 1) { + SYNTAX(" (e.g., 256) expected."); + } else { + d->RAMsize = val[0]; + } // if + } else if (0 == strcmp(key, "split")) { + // split %i + res = sscanf(&line[1+strlen(key)], " %i", &val[0]); + if (res < 1) { + SYNTAX(" (e.g., 0x80) expected."); + } else { + d->acsSplitOfs = val[0]; + } // if + } else if (0 == strcmp(key, "configrange")) { + // configrange %i %i + res = sscanf(&line[1+strlen(key)], " %i %i", + &val[0], &val[1]); + if (res < 2) { + SYNTAX(" (e.g., 0xf60 0xfff) expected."); + } else { + d->cwInfo.confAddrStart = val[0]; + d->cwInfo.confAddrEnd = val[1]; + } // if + } else if (0 == strcmp(key, "configword")) { + // configword %
i %i %i + res = sscanf(&line[1+strlen(key)], " %i %i %i", + &val[0], &val[1], &val[2]); + if (res < 3) { + SYNTAX("
(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 %i %i + res = sscanf(&line[1+strlen(key)], " %i %i", + &val[0], &val[1]); + if (res < 2) { + SYNTAX(" (e.g., 0xf60 0xfff) expected."); + } else { + d->idInfo.idAddrStart = val[0]; + d->idInfo.idAddrEnd = val[1]; + } // if + } else if (0 == strcmp(key, "idword")) { + // idword %
i %i + res = sscanf(&line[1+strlen(key)], " %i %i", + &val[0], &val[1]); + if (res < 2) { + SYNTAX("
(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 } /*-----------------------------------------------------------------* @@ -1027,7 +747,7 @@ char *pic16_processor_base_name(void) return pic16->name[0]; } -#define DEBUG_CHECK 0 +#define DEBUG_CHECK 0 /* * return 1 if register wasn't found and added, 0 otherwise @@ -1037,25 +757,25 @@ int checkAddReg(set **set, regs *reg) regs *tmp; - if(!reg)return 0; + 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; } @@ -1064,25 +784,25 @@ int checkAddSym(set **set, symbol *sym) { symbol *tmp; - if(!sym)return 0; + 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; @@ -1092,25 +812,25 @@ int checkSym(set *set, symbol *sym) { symbol *tmp; - if(!sym)return 0; - + if(!sym)return 0; + #if DEUG_CHECK - fprintf(stderr, "%s: about to search for SYMbol: %s ... ", __FUNCTION__, sym->name); + 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) { + 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"); + fprintf(stderr, "not found\n"); #endif - return 0; - } + return 0; + } #if DEBUG_CHECK - fprintf(stderr, "found\n"); + fprintf(stderr, "found\n"); #endif return 1; @@ -1118,7 +838,7 @@ int checkSym(set *set, symbol *sym) /*-----------------------------------------------------------------* * void pic16_groupRegistersInSection - add each register to its * - * corresponding section * + * corresponding section * *-----------------------------------------------------------------*/ void pic16_groupRegistersInSection(set *regset) { @@ -1126,69 +846,69 @@ void pic16_groupRegistersInSection(set *regset) sectSym *ssym; int docontinue=0; - for(reg=setFirstItem(regset); reg; reg = setNextItem(regset)) { + for(reg=setFirstItem(regset); reg; reg = setNextItem(regset)) { #if 0 - fprintf(stderr, "%s:%d group registers in section, reg: %s (used: %d, %p)\n", - __FILE__, __LINE__, reg->name, reg->wasUsed, reg); + 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)))) - ) { - - /* 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((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; #if 0 - 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) ); + 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 - - 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); - } - } - } - } + + 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); + } + } + } + } } @@ -1209,21 +929,22 @@ void pic16_assignConfigWordValue(int address, unsigned int value) for(i=0;icwInfo.confAddrEnd-pic16->cwInfo.confAddrStart+1;i++) { if((address == pic16->cwInfo.confAddrStart+i) - && (pic16->cwInfo.crInfo[i].mask != -1)) { + && (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)); + /*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; - } + 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; @@ -1237,10 +958,10 @@ void pic16_assignIdByteValue(int address, char value) { int i; - for(i=0;iidInfo.idAddrEnd-pic16->idInfo.idAddrStart+1;i++) { - if(address == pic16->idInfo.idAddrStart+i) { - pic16->idInfo.irInfo[i].value = value; - pic16->idInfo.irInfo[i].emit = 1; - } - } + for(i=0;iidInfo.idAddrEnd-pic16->idInfo.idAddrStart+1;i++) { + if(address == pic16->idInfo.idAddrStart+i) { + pic16->idInfo.irInfo[i].value = value; + pic16->idInfo.irInfo[i].emit = 1; + } + } }