X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fport.h;h=1533620f9e003e341a1e6478c895af0a5d7392c1;hb=HEAD;hp=3e3aec9411ad99a1129379e54d36c05b93abc5df;hpb=5ee8507774af625a6bf974d7daa41b8db6eb521c;p=fw%2Fsdcc diff --git a/src/port.h b/src/port.h index 3e3aec94..1533620f 100644 --- a/src/port.h +++ b/src/port.h @@ -7,6 +7,8 @@ #include "SDCCicode.h" #include "SDCCargs.h" +#include "SDCCpeeph.h" +#include "dbuf.h" #define TARGET_ID_MCS51 1 #define TARGET_ID_GBZ80 2 @@ -14,34 +16,50 @@ #define TARGET_ID_AVR 4 #define TARGET_ID_DS390 5 #define TARGET_ID_PIC 6 -#define TARGET_ID_PIC16 7 +#define TARGET_ID_PIC16 7 #define TARGET_ID_XA51 9 -#define TARGET_ID_DS400 10 +#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_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 MAX_BUILTIN_ARGS 16 +#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 *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 ; + } 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 @@ -49,10 +67,10 @@ typedef struct /** Unique id for this target */ const int id; /** Target name used for -m */ - const char *target; + const char * const target; /** Target name string, used for --help */ - const char *target_name; + const char * const target_name; /** Specific processor for the given target family. specified by -p */ char *processor; @@ -61,15 +79,15 @@ typedef 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; + /** 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; @@ -81,15 +99,15 @@ typedef struct /** Alternate macro based form. */ const char *mcmd; /** Arguments for debug mode. */ - const char *debug_opts; + 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; + 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 *); + void (*do_assemble) (set *); } assembler; @@ -97,104 +115,160 @@ typedef struct struct { /** Command to run (eg link-z80) */ - const char **cmd; + const char **cmd; /** Alternate macro based form. */ const char *mcmd; /** If non-null will be used to execute the link. */ - void (*do_link) (void); + void (*do_link) (void); /** Extension for object files (.rel, .obj, ...) */ - const char *rel_ext; + const char *rel_ext; + /** 1 if port needs the .lnk file, 0 otherwise */ + const int needLinkerScript; } linker; struct { /** Default peephole rules */ - char *default_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; - 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; + 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 *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; - const char *post_static_name; - const char *home_name; - const char *xidata_name; // initialized xdata - const char *xinit_name; // a code copy of xidata - 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 */ + 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 *); + void (*genExtraAreaDeclaration)(FILE *, bool); + void (*genExtraAreaLinkOptions)(FILE *); } extraAreas; - + /* stack related information */ struct { /** -1 for grows down (z80), +1 for grows up (mcs51) */ - int direction; + int direction; /** Extra overhead when calling between banks */ - int bank_overhead; + int bank_overhead; /** Extra overhead when the function is an ISR */ - int isr_overhead; + int isr_overhead; /** Standard overhead for a function call */ - int call_overhead; + int call_overhead; /** Re-enterant space */ - int reent_overhead; - /** 'banked' call overhead. - Mild overlap with bank_overhead */ - int banked_overhead; + 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 nativley - Eg if the processor has an 8 bit mul, nativebelow is 2 */ - unsigned muldiv; + /** 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 variables. - '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 */ @@ -202,16 +276,18 @@ typedef struct /** 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. */ + options are parsed. */ void (*setDefaultOptions) (void); /** Does the dirty work. */ - void (*assignRegisters) (struct eBBlock **, int); + void (*assignRegisters) (struct ebbIndex *); /** Returns the register name of a symbol. - Used so that 'regs' can be an incomplete type. */ + Used so that 'regs' can be an incomplete type. */ const char *(*getRegName) (struct regs * reg); /* list of keywords that are used by this @@ -220,27 +296,30 @@ typedef struct /* Write any port specific assembler output. */ void (*genAssemblerPreamble) (FILE * of); - /* invoked at end assembler file */ + /* 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); + 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) (); /* reset the register count */ - int (*reg_parm) (struct sym_link *); /* will return 1 if can be passed in register */ + 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. + processed, 1 otherwise. May be NULL. */ int (*process_pragma) (const char *sz); - /** Mangles a support function name to reflect the calling model. + /** Mangles a support function name to reflect the calling model. */ char *(*getMangledFunctionName) (char *szOrginial); @@ -249,6 +328,16 @@ typedef struct */ 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; @@ -259,18 +348,18 @@ typedef struct 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 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 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. */