X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fport.h;h=1533620f9e003e341a1e6478c895af0a5d7392c1;hb=HEAD;hp=76ebfbd62606a1254a60c9cf785e621f291fd44f;hpb=1e1d089aeaef38c6c55092486af1d38aa30a7a9d;p=fw%2Fsdcc diff --git a/src/port.h b/src/port.h index 76ebfbd6..1533620f 100644 --- a/src/port.h +++ b/src/port.h @@ -5,117 +5,402 @@ #ifndef PORT_INCLUDE #define PORT_INCLUDE +#include "SDCCicode.h" +#include "SDCCargs.h" +#include "SDCCpeeph.h" +#include "dbuf.h" + +#define TARGET_ID_MCS51 1 +#define TARGET_ID_GBZ80 2 +#define TARGET_ID_Z80 3 +#define TARGET_ID_AVR 4 +#define TARGET_ID_DS390 5 +#define TARGET_ID_PIC 6 +#define TARGET_ID_PIC16 7 +#define TARGET_ID_XA51 9 +#define TARGET_ID_DS400 10 +#define TARGET_ID_HC08 11 + +/* Macro to test the target we are compiling for. + Can only be used after SDCCmain has defined the port +*/ +#define TARGET_IS_MCS51 (port->id==TARGET_ID_MCS51) +#define TARGET_IS_GBZ80 (port->id==TARGET_ID_GBZ80) +#define TARGET_IS_Z80 (port->id==TARGET_ID_Z80) +#define TARGET_Z80_LIKE (TARGET_IS_Z80 || TARGET_IS_GBZ80) +#define TARGET_IS_AVR (port->id==TARGET_ID_AVR) +#define TARGET_IS_DS390 (port->id==TARGET_ID_DS390) +#define TARGET_IS_DS400 (port->id==TARGET_ID_DS400) +#define TARGET_IS_PIC (port->id==TARGET_ID_PIC) +#define TARGET_IS_PIC16 (port->id==TARGET_ID_PIC16) +#define TARGET_IS_XA51 (port->id==TARGET_ID_XA51) +#define TARGET_IS_HC08 (port->id==TARGET_ID_HC08) +#define TARGET_MCS51_LIKE (TARGET_IS_MCS51 || TARGET_IS_DS390 || TARGET_IS_DS400) + +#define MAX_BUILTIN_ARGS 16 +/* definition of builtin functions */ +typedef struct builtins + { + char *name; /* name of builtin function */ + char *rtype; /* return type as string : see typeFromStr */ + int nParms; /* number of parms : max 8 */ + char *parm_types[MAX_BUILTIN_ARGS]; /* each parm type as string : see typeFromStr */ + } builtins; + +struct ebbIndex; + +/* pragma structure */ +struct pragma_s + { + const char *name; + int id; + char deprecated; + int (*func)(int id, const char *name, const char *cp); + }; + +/* defined in SDCClex.lex */ +int process_pragma_tbl(const struct pragma_s *pragma_tbl, const char *s); + /* Processor specific names */ -typedef struct { - /** Target name used for -m */ - const char *target; +typedef struct + { +/** Unique id for this target */ + const int id; +/** Target name used for -m */ + const char * const target; + +/** Target name string, used for --help */ + const char * const target_name; - /** Target name string, used for --help */ - const char *target_name; +/** Specific processor for the given target family. specified by -p */ + char *processor; + + struct + { + /** Pointer to glue function */ + void (*do_glue)(void); + /** TRUE if all types of glue functions should be inserted into + the file that also defines main. + We dont want this in cases like the z80 where the startup + code is provided by a seperate module. + */ + bool glue_up_main; + /* OR of MODEL_* */ + int supported_models; + int default_model; + } + general; /* assembler related information */ - struct { - /** Command to run and arguments (eg as-z80) */ - const char **cmd; - /** Arguments for debug mode. PENDING: ignored */ - const char *debug_opts; - /** Arguments for normal assembly mode. PENDING: ignored */ - const char *plain_opts; - } assembler; + struct + { + /** Command to run and arguments (eg as-z80) */ + const char **cmd; + /** Alternate macro based form. */ + const char *mcmd; + /** Arguments for debug mode. */ + const char *debug_opts; + /** Arguments for normal assembly mode. */ + const char *plain_opts; + /* print externs as global */ + int externGlobal; + /* assembler file extension */ + const char *file_ext; + /** If non-null will be used to execute the assembler. */ + void (*do_assemble) (set *); + } + assembler; /* linker related info */ - struct { - /** Command to run (eg link-z80) */ - const char **cmd; - } linker; - - struct { - /** Default peephole rules */ - char *default_rules; - } peep; - - /** Basic type sizes */ - struct { - int char_size; - int short_size; - int int_size; - int long_size; - int ptr_size; - int fptr_size; - int gptr_size; - int bit_size; - int float_size; - int max_base_size; - } s; - - /** Names for all the memory regions */ - struct { - const char *xstack_name; - const char *istack_name; - const char *code_name; - const char *data_name; - const char *idata_name; - const char *xdata_name; - const char *bit_name; - const char *reg_name; - const char *static_name; - const char *overlay_name; - } mem; - + struct + { + /** Command to run (eg link-z80) */ + const char **cmd; + /** Alternate macro based form. */ + const char *mcmd; + /** If non-null will be used to execute the link. */ + void (*do_link) (void); + /** Extension for object files (.rel, .obj, ...) */ + const char *rel_ext; + /** 1 if port needs the .lnk file, 0 otherwise */ + const int needLinkerScript; + } + linker; + + struct + { +/** Default peephole rules */ + char *default_rules; + int (*getSize)(lineNode *line); + bitVect * (*getRegsRead)(lineNode *line); + bitVect * (*getRegsWritten)(lineNode *line); + bool (*deadMove) (const char *reg, lineNode *currPl, lineNode *head); + bool (*notUsed) (const char *reg, lineNode *currPl, lineNode *head); + } + peep; + +/** Basic type sizes */ + struct + { + int char_size; + int short_size; + unsigned int int_size; + int long_size; + int ptr_size; //near + int fptr_size; //far + int gptr_size; //generic + int bit_size; + int float_size; + int max_base_size; + } + s; + +/** tags for far, near, xstack, code generic pointers */ + struct + { + int tag_far; + int tag_near; + int tag_xstack; + int tag_code; + } + gp_tags; + +/** memory regions related stuff */ + struct + { + const char * const xstack_name; + const char * const istack_name; + /* + * The following 2 items can't be const pointers + * due to ugly implementation in z80 target; + * this should be fixed in src/z80/main.c (borutr) + */ + const char *code_name; + const char *data_name; + const char * const idata_name; + const char * const pdata_name; + const char * const xdata_name; + const char * const bit_name; + const char * const reg_name; + const char * const static_name; + const char * const overlay_name; + const char * const post_static_name; + const char * const home_name; + const char * const xidata_name; // initialized xdata + const char * const xinit_name; // a code copy of xidata + const char * const const_name; // const data (code or not) + const char * const cabs_name; // const absolute data (code or not) + const char * const xabs_name; // absolute xdata/pdata + const char * const iabs_name; // absolute idata/data + struct memmap *default_local_map; // default location for auto vars + struct memmap *default_globl_map; // default location for globl vars + int code_ro; /* code space read-only 1=yes */ + } + mem; + + struct + { + void (*genExtraAreaDeclaration)(FILE *, bool); + void (*genExtraAreaLinkOptions)(FILE *); + } + extraAreas; + /* stack related information */ - struct { - /** -1 for grows down (z80), +1 for grows up (mcs51) */ - int direction; - /** Extra overhead when calling between banks */ - int bank_overhead; - /** Extra overhead when the function is an ISR */ - int isr_overhead; - /** Standard overhead for a function call */ - int call_overhead; - /** Re-enterant space */ - int reent_overhead; - - } stack; - struct { - /** One more than the smallest - mul/div operation the processor can do nativley - Eg if the processor has an 8 bit mul, nativebelow is 2 */ - int nativebelow; - } muldiv; + struct + { +/** -1 for grows down (z80), +1 for grows up (mcs51) */ + int direction; +/** Extra overhead when calling between banks */ + int bank_overhead; +/** Extra overhead when the function is an ISR */ + int isr_overhead; +/** Standard overhead for a function call */ + int call_overhead; +/** Re-enterant space */ + int reent_overhead; + /** 'banked' call overhead. + Mild overlap with bank_overhead */ + int banked_overhead; + } + stack; + + struct + { + /** One more than the smallest + mul/div operation the processor can do natively + Eg if the processor has an 8 bit mul, native below is 2 */ + unsigned muldiv; + unsigned shift; + } + support; + + struct + { + void (*emitDebuggerSymbol) (char *); + struct + { + int (*regNum) (struct regs *); + bitVect * cfiSame; + bitVect * cfiUndef; + int addressSize; + int regNumRet; + int regNumSP; + int regNumBP; + int offsetSP; + } + dwarf; + } + debugger; + + struct + { + int maxCount; + int sizeofElement; + int sizeofMatchJump[3]; + int sizeofRangeCompare[3]; + int sizeofSubtract; + int sizeofDispatch; + } + jumptableCost; + +/** Prefix to add to a C function (eg "_") */ + const char *fun_prefix; /** Called once the processor target has been selected. - First chance to initalise and set any port specific varibles. - 'port' is set before calling this. May be NULL. + First chance to initalise and set any port specific variables. + 'port' is set before calling this. May be NULL. */ - void (*init)(void); - /** Parses one option + its arguments */ - bool (*parseOption)(int *pargc, char **argv, int *i); - /** Called after all the options have been parsed. */ - void (*finaliseOptions)(void); + void (*init) (void); +/** Parses one option + its arguments */ + bool (*parseOption) (int *pargc, char **argv, int *i); +/** Optional list of automatically parsed options. Should be + implemented to at least show the help text correctly. */ + OPTION *poptions; +/** Initialise port spectific paths */ + void (*initPaths)(void); +/** Called after all the options have been parsed. */ + void (*finaliseOptions) (void); /** Called after the port has been selected but before any - options are parsed. */ - void (*setDefaultOptions)(void); - /** Does the dirty work. */ - void (*assignRegisters)(eBBlock **, int); - + options are parsed. */ + void (*setDefaultOptions) (void); +/** Does the dirty work. */ + void (*assignRegisters) (struct ebbIndex *); + /** Returns the register name of a symbol. - Used so that 'regs' can be an incomplete type. */ - const char *(*getRegName)(struct regs *reg); + Used so that 'regs' can be an incomplete type. */ + const char *(*getRegName) (struct regs * reg); /* list of keywords that are used by this target (used by lexer) */ - char **keywords; - + char **keywords; + /* Write any port specific assembler output. */ - void (*genAssemblerPreamble)(FILE *of); - + void (*genAssemblerPreamble) (FILE * of); + /* invoked at end assembler file */ + void (*genAssemblerEnd) (FILE * of); + /* Write the port specific IVT. If genIVT is NULL or if * it returns zero, default (8051) IVT generation code - * will be used. + * will be used. */ - int (*genIVT)(FILE *of, symbol **intTable, int intCount); -} PORT; + int (*genIVT) (struct dbuf_s *oBuf, symbol ** intTable, int intCount); + + void (*genXINIT) (FILE * of); + + /* Write port specific startup code */ + void (*genInitStartup) (FILE * of); + + /* parameter passing in register related functions */ + void (*reset_regparms) (void); /* reset the register count */ + int (*reg_parm) (struct sym_link *, bool reentrant); /* will return 1 if can be passed in register */ + + /** Process the pragma string 'sz'. Returns 0 if recognised and + processed, 1 otherwise. May be NULL. + */ + int (*process_pragma) (const char *sz); + + /** Mangles a support function name to reflect the calling model. + */ + char *(*getMangledFunctionName) (char *szOrginial); + + /** Returns true if the port can multiply the two types nativly + without using support functions. + */ + bool (*hasNativeMulFor) (iCode *ic, sym_link *left, sym_link *right); + + /** Returns true if the port has implemented certain bit + manipulation iCodes (RRC, RLC, SWAP, GETHBIT, GETABIT, GETBYTE, GETWORD) + */ + bool (*hasExtBitOp) (int op, int size); + + /** Returns the relative expense of accessing a particular output + storage class. Larger values indicate higher expense. + */ + int (*oclsExpense) (struct memmap *oclass); + + /** If TRUE, then tprintf and !dw will be used for some initalisers + */ + bool use_dw_for_init; + + /** TRUE for targets with little endian byte ordering, FALSE for + targets with big endian byte ordering. + */ + bool little_endian; + + /* condition transformations */ + bool lt_nge; /* transform (a < b) to !(a >= b) */ + bool gt_nle; /* transform (a > b) to !(a <= b) */ + bool le_ngt; /* transform (a <= b) to !(a > b) */ + bool ge_nlt; /* transform (a >= b) to !(a < b) */ + bool ne_neq; /* transform a != b --> ! (a == b) */ + bool eq_nne; /* transform a == b --> ! (a != b) */ + + bool arrayInitializerSuppported; + bool (*cseOk) (iCode *ic, iCode *pdic); + builtins *builtintable; /* table of builtin functions */ + int unqualified_pointer; /* unqualified pointers type is */ + int reset_labelKey ; /* reset Label no 1 at the start of a function */ + int globals_allowed ; /* global & static locals not allowed ? 0 ONLY TININative*/ +#define PORT_MAGIC 0xAC32 +/** Used at runtime to detect if this structure has been completly filled in. */ + int magic; + } +PORT; extern PORT *port; +#if !OPT_DISABLE_MCS51 +extern PORT mcs51_port; +#endif +#if !OPT_DISABLE_GBZ80 +extern PORT gbz80_port; +#endif +#if !OPT_DISABLE_Z80 +extern PORT z80_port; +#endif +#if !OPT_DISABLE_AVR +extern PORT avr_port; +#endif +#if !OPT_DISABLE_DS390 +extern PORT ds390_port; +#endif +#if !OPT_DISABLE_PIC +extern PORT pic_port; #endif +#if !OPT_DISABLE_PIC16 +extern PORT pic16_port; +#endif +#if !OPT_DISABLE_TININative +extern PORT tininative_port; +#endif +#if !OPT_DISABLE_XA51 +extern PORT xa51_port; +#endif +#if !OPT_DISABLE_DS400 +extern PORT ds400_port; +#endif +#if !OPT_DISABLE_HC08 +extern PORT hc08_port; +#endif + +#endif /* PORT_INCLUDE*/