* device/lib/Makefile.in: remove abspath for PORTDIR, introduced in
[fw/sdcc] / src / SDCCglobl.h
index c21af2bc46ac461ec011477ea1fd815dd4c98325..7166d88177841520743536b7ec1e7a3134ec55d7 100644 (file)
@@ -1,63 +1,88 @@
 /* SDCCglobl.h - global macros etc required by all files */
+
 #ifndef SDCCGLOBL_H
 #define SDCCGLOBL_H
+
 #include <memory.h>
 #include <assert.h>
 #include <stdlib.h>
 #include <setjmp.h>
 #include <stdio.h>
 
+#include "SDCCset.h"
+
+
 /*
  * Define host port dependant constants etc.
  */
 
-#define DOS_DIR_SEPARATOR_CHAR     '\\'
-#define DOS_DIR_SEPARATOR_STRING   "\\"
 #define UNIX_DIR_SEPARATOR_CHAR    '/'
-#define UNIX_DIR_SEPARATOR_STRING  "/"
 
-#if defined(__BORLANDC__)      /* Borland Turbo C/Win32 Host */
+#if defined(__BORLANDC__) || defined(_MSC_VER)
+#define STRCASECMP stricmp
+#define STRNCASECMP strnicmp
+#else
+#define STRCASECMP strcasecmp
+#define STRNCASECMP strncasecmp
+#endif
 
-#define NATIVE_WIN32           1
-#define DIR_SEPARATOR_CHAR         DOS_DIR_SEPARATOR_CHAR
-#define DIR_SEPARATOR_STRING       DOS_DIR_SEPARATOR_STRING
+#if defined(__MSDOS__) || defined(_WIN32) || defined(__OS2__) || defined (__CYGWIN__)
 
-#elif defined(_MSC_VER)                /* Miscosoft VC6/Win32 Host */
+#ifndef HAVE_DOS_BASED_FILE_SYSTEM
+#define HAVE_DOS_BASED_FILE_SYSTEM 1
+#endif
 
-#define NATIVE_WIN32           1
-#include "sdcc_vc.h"
-#define DIR_SEPARATOR_CHAR         DOS_DIR_SEPARATOR_CHAR
-#define DIR_SEPARATOR_STRING       DOS_DIR_SEPARATOR_STRING
+#define IS_DIR_SEPARATOR(c)     ((c) == DIR_SEPARATOR_CHAR || (c) == UNIX_DIR_SEPARATOR_CHAR)
+/* Note that IS_ABSOLUTE_PATH accepts d:foo as well, although it is
+   only semi-absolute.  This is because the users of IS_ABSOLUTE_PATH
+   want to know whether to prepend the current working directory to
+   a file name, which should not be done with a name like d:foo.  */
+#define IS_ABSOLUTE_PATH(f)     (IS_DIR_SEPARATOR((f)[0]) || (((f)[0]) && ((f)[1] == ':')))
+#define FILENAME_CMP(s1, s2)    STRCASECMP(s1, s2)
 
-#elif defined(__MINGW32__)     /* MINGW32 DOS Host */
+#else  /* not DOSish */
 
-#define NATIVE_WIN32           1
-#define DIR_SEPARATOR_CHAR         DOS_DIR_SEPARATOR_CHAR
-#define DIR_SEPARATOR_STRING       DOS_DIR_SEPARATOR_STRING
+#define IS_DIR_SEPARATOR(c)     ((c) == DIR_SEPARATOR_CHAR)
+#define IS_ABSOLUTE_PATH(f)     (IS_DIR_SEPARATOR((f)[0]))
+#define FILENAME_CMP(s1, s2)    strcmp(s1, s2)
 
-#else /* Assume Un*x style system */
+#endif /* not DOSish */
 
-#include "sdccconf.h"
-#define DIR_SEPARATOR_CHAR         UNIX_DIR_SEPARATOR_CHAR
-#define DIR_SEPARATOR_STRING       UNIX_DIR_SEPARATOR_STRING
+#ifdef WIN32
+# define NATIVE_WIN32          1
+# ifndef __MINGW32__
+#   define  PATH_MAX  _MAX_PATH
+# endif
+#endif
 
-#endif // _MSC_VER
+#ifdef HAVE_CONFIG_H
+# include "config.h"
+#elif defined(_WIN32) && !defined(__MINGW32__)
+# include "sdcc_vc.h"
+#else
+# include "sdccconf.h"
+#endif
 
 #include "SDCCerr.h"
 
 #define SPACE ' '
 #define ZERO  0
 
-#define  MAX_FNAME_LEN  128
+#include <limits.h>             /* PATH_MAX                  */
+#if !defined(PATH_MAX) || (PATH_MAX < 2048)
+#  undef  PATH_MAX
+#  define PATH_MAX 2048         /* define a reasonable value */
+#endif
+
 #define  MAX_REG_PARMS  1
 typedef int bool;
 
 #ifndef max
-#define max(a,b) (a > b ? a : b)
+#  define max(a,b) (a > b ? a : b)
 #endif
 
 #ifndef min
-#define min(a,b) (a < b ? a : b)
+#  define min(a,b) (a < b ? a : b)
 #endif
 
 #ifndef THROWS
@@ -80,26 +105,13 @@ typedef int bool;
 #define FLOATSIZE   port->s.float_size
 #define MAXBASESIZE port->s.max_base_size
 
-
-#define PRAGMA_SAVE        "SAVE"
-#define PRAGMA_RESTORE     "RESTORE"
-#define PRAGMA_NOINDUCTION "NOINDUCTION"
-#define PRAGMA_NOINVARIANT "NOINVARIANT"
-#define PRAGMA_NOLOOPREV   "NOLOOPREVERSE"
-#define PRAGMA_INDUCTION   "INDUCTION"
-#define PRAGMA_STACKAUTO   "STACKAUTO"
-#define PRAGMA_NOJTBOUND   "NOJTBOUND"
-#define PRAGMA_NOGCSE      "NOGCSE"
-#define PRAGMA_NOOVERLAY   "NOOVERLAY"
-#define PRAGMA_CALLEESAVES "CALLEE-SAVES"
-#define PRAGMA_EXCLUDE     "EXCLUDE"
 #define  SMALL_MODEL 0
 #define  LARGE_MODEL 1
 #define  TRUE 1
 #define  FALSE 0
 
 #define MAX_TVAR 6
-#define MAX_INLINEASM 4*1024
+#define INITIAL_INLINEASM 4*1024
 #define DEFPOOLSTACK(type,size)     \
     type       *type##Pool        ; \
     type *type##FreeStack [size]  ; \
@@ -113,66 +125,75 @@ typedef int bool;
 #ifdef UNIX
 #define EMPTY(x)        (x##StackPtr <= 1 ? 1 : 0)
 #else
-#define EMPTY(x)       (x##StackPtr == 0 ? 1 : 0)
+#define EMPTY(x)        (x##StackPtr == 0 ? 1 : 0)
 #endif
 
 
 #define COPYTYPE(start,end,from) (end = getSpec (start = from))
 
 
-/* generalpurpose stack related macros */
-#define  STACK_DCL(stack,type,size)                   \
-         typedef  type  t_##stack   ;                 \
-         t_##stack   stack[size]    ;                 \
-         t_##stack   (*p_##stack) = stack + (size);   \
+/* general purpose stack related macros */
+#define  STACK_DCL(stack,type,size)                                   \
+         typedef  type  t_##stack   ;                                 \
+         t_##stack   stack[size]    ;                                 \
+         t_##stack   (*p_##stack) = stack;
 
 /* define extern stack */
-#define EXTERN_STACK_DCL(stack,type,size)             \
-        typedef type t_##stack     ;                  \
-        extern t_##stack stack[size] ;                \
+#define EXTERN_STACK_DCL(stack,type,size)                             \
+        typedef type t_##stack     ;                                  \
+        extern t_##stack stack[size] ;                                \
         extern t_##stack *p_##stack;
 
-#define  STACK_FULL(stack)    ((p_##stack) <= stack )
-#define  STACK_EMPTY(stack)   ((p_##stack) >= (stack +      \
-                              sizeof(stack)/sizeof(*stack)) )
+#define  STACK_EMPTY(stack)     ((p_##stack) <= stack )
+#define  STACK_FULL(stack)      ((p_##stack) >= (stack +              \
+                                sizeof(stack)/sizeof(*stack))         )
 
-#define  STACK_PUSH_(stack,x) (*--p_##stack = (x))
-#define  STACK_POP_(stack)    (*p_##stack++)
+#define  STACK_PUSH_(stack, x)  (*++p_##stack = (x))
+#define  STACK_POP_(stack)      (*p_##stack--)
 
-#define  STACK_PUSH(stack,x)  (STACK_FULL(stack)                  \
-                              ?((t_##stack)(long)(STACK_ERR(1)))  \
-                              : STACK_PUSH_(stack,x)              )
+#define  STACK_PUSH(stack, x)   (STACK_FULL(stack)                    \
+                                ? (STACK_ERR(1, stack), *p_##stack)   \
+                                : STACK_PUSH_(stack,x)                )
 
-#define  STACK_POP(stack)     (STACK_EMPTY(stack)                 \
-                              ?((t_##stack)(long)(STACK_ERR(0)))  \
-                              : STACK_POP_(stack)                 )
+#define  STACK_POP(stack)       (STACK_EMPTY(stack)                   \
+                                ? (STACK_ERR(-1, stack), *p_##stack)  \
+                                : STACK_POP_(stack)                   )
 
-#define  STACK_PEEK(stack)    (STACK_EMPTY(stack)                 \
-                              ?((t_##stack) NULL)                 \
-                              : *p_##stack                        )
+#define  STACK_PEEK(stack)      (STACK_EMPTY(stack)                   \
+                                ? (STACK_ERR(0, stack), *p_##stack)   \
+                                : *p_##stack                          )
 
-#define  STACK_ERR(o)         ( o                                 \
-                              ? fprintf(stderr,"stack Overflow\n")\
-                              : fprintf(stderr,"stack underflow\n"))
+#define  STACK_ERR(o, stack)    (fatal(1, E_STACK_VIOLATION, #stack,  \
+                                        (o < 0)                       \
+                                        ? "underflow"                 \
+                                        : (o > 0)                     \
+                                          ? "overflow"                \
+                                          : "empty"))
 
 /* optimization options */
+/*
+ * cloneOptimize function in SDCC.lex should be updated every time
+ * a new set is added to the optimize structure!
+ */
 struct optimize
   {
-    unsigned global_cse:1;
-    unsigned ptrArithmetic:1;
-    unsigned label1:1;
-    unsigned label2:1;
-    unsigned label3:1;
-    unsigned label4:1;
-    unsigned loopInvariant:1;
-    unsigned loopInduction:1;
-    unsigned noJTabBoundary:1;
-    unsigned noLoopReverse:1;
+    int global_cse;
+    int ptrArithmetic;
+    int label1;
+    int label2;
+    int label3;
+    int label4;
+    int loopInvariant;
+    int loopInduction;
+    int noJTabBoundary;
+    int noLoopReverse;
+    int codeSpeed;
+    int codeSize;
   };
 
 /** Build model.
     Used in options.model.A bit each as port.supported_models is an OR
-    of these. 
+    of these.
 */
 enum
   {
@@ -180,113 +201,190 @@ enum
     MODEL_COMPACT = 2,
     MODEL_MEDIUM = 4,
     MODEL_LARGE = 8,
-    MODEL_FLAT24 = 16
+    MODEL_FLAT24 = 16,
+    MODEL_PAGE0 = 32, /* for the xa51 port */
+    MODEL_HUGE = 64 /* for banked support */
   };
 
+/* overlay segment name and the functions
+   that belong to it. used by pragma overlay */
+typedef struct {
+    char *osname;       /* overlay segment name */
+    int  nfuncs;        /* number of functions in this overlay */
+    char *funcs[128];   /* function name that belong to this */
+} olay;
+
 /* other command line options */
+/*
+ * cloneOptions function in SDCC.lex should be updated every time
+ * a new set is added to the options structure!
+ */
 struct options
   {
-    int model;                 /* see MODEL_* defines above */
-    int stackAuto:3;           /* Stack Automatic  */
-    int useXstack:3;           /* use Xternal Stack */
-    int stack10bit:3;          /* use 10 bit stack (flat24 model only) */
-    int genericPtr:1;          /* use generic pointers */
-    int regExtend:1;           /* don't use extended registers */
-    int dump_raw:1;            /* dump after intermediate code generation */
-    int dump_gcse:1;           /* dump after gcse */
-    int dump_loop:1;           /* dump after loop optimizations */
-    int dump_kill:1;           /* dump after dead code elimination */
-    int dump_range:1;          /* dump after live range analysis */
-    int dump_pack:1;           /* dump after register packing */
-    int dump_rassgn:1;         /* dump after register assignment */
-    int cc_only:1;             /* compile only flag              */
-    int intlong_rent:1;                /* integer & long support routines reentrant */
-    int float_rent:1;          /* floating point routines are reentrant */
-    int out_fmt:1;             /* 1 = motorola S19 format 0 = intel Hex format */
-    int cyclomatic:1;          /* print cyclomatic information */
-    int noOverlay:1;           /* don't overlay local variables & parameters */
-    int mainreturn:1;          /* issue a return after main */
-    int nopeep:1;              /* no peep hole optimization */
-    int asmpeep:1;             /* pass inline assembler thru peep hole */
-    int debug:1;               /* generate extra debug info */
-    int nodebug:1;             /* Generate no debug info. */
-    int stackOnData:1;         /* stack after data segment  */
-    int c1mode:1;              /* Act like c1 - no pre-proc, asm or link */
-    char *peep_file;           /* additional rules for peep hole */
-    char *out_name;            /* Asm output name for c1 mode */
-    int nostdlib:1;            /* Don't use standard lib files */
-    int nostdinc:1;            /* Don't use standard include files */
-    int verbose:1;             /* Show what the compiler is doing */
-    int ANSIint:1;             /* Use ANSI integer promotion rules in expressions. */
-
-    char *calleeSaves[128];    /* list of functions using callee save */
-    char *excludeRegs[32];     /* registers excluded from saving */
-
+    int model;                  /* see MODEL_* defines above */
+    int stackAuto;              /* Stack Automatic  */
+    int useXstack;              /* use Xternal Stack */
+    int stack10bit;             /* use 10 bit stack (flat24 model only) */
+    int dump_raw;               /* dump after intermediate code generation */
+    int dump_gcse;              /* dump after gcse */
+    int dump_loop;              /* dump after loop optimizations */
+    int dump_kill;              /* dump after dead code elimination */
+    int dump_range;             /* dump after live range analysis */
+    int dump_pack;              /* dump after register packing */
+    int dump_rassgn;            /* dump after register assignment */
+    int dump_tree;              /* dump front-end tree before lowering to iCode */
+    int cc_only;                /* compile only flag              */
+    int intlong_rent;           /* integer & long support routines reentrant */
+    int float_rent;             /* floating point routines are reentrant */
+    int out_fmt;                /* 1 = motorola S19 format 0 = intel Hex format */
+    int cyclomatic;             /* print cyclomatic information */
+    int noOverlay;              /* don't overlay local variables & parameters */
+    int mainreturn;             /* issue a return after main */
+    int xram_movc;              /* use movc instead of movx to read xram (mcs51) */
+    int nopeep;                 /* no peep hole optimization */
+    int asmpeep;                /* pass inline assembler thru peep hole */
+    int debug;                  /* generate extra debug info */
+    int c1mode;                 /* Act like c1 - no pre-proc, asm or link */
+    char *peep_file;            /* additional rules for peep hole */
+    int nostdlib;               /* Don't use standard lib files */
+    int nostdinc;               /* Don't use standard include files */
+    int noRegParams;            /* Disable passing some parameters in registers */
+    int verbose;                /* Show what the compiler is doing */
+    int shortis8bits;           /* treat short like int or char */
+    int lessPedantic;           /* disable some warnings */
+    int profile;                /* Turn on extra profiling information */
+    int ommitFramePtr;          /* Turn off the frame pointer. */
+    int useAccelerator;         /* use ds390 Arithmetic Accelerator */
+    int noiv;                   /* do not generate irq vector table entries */
+    int all_callee_saves;       /* callee saves for all functions */
+    int stack_probe;            /* insert call to function __stack_probe */
+    int tini_libid;             /* library ID for TINI */
+    int protect_sp_update;      /* DS390 - will disable interrupts during ESP:SP updates */
+    int parms_in_bank1;         /* DS390 - use reg bank1 to pass parameters */
+    int stack_size;             /* MCS51/DS390 - Tells the linker to allocate this space for stack */
+    int no_pack_iram;           /* MCS51/DS390 - Tells the linker not to pack variables in internal ram */
+    int acall_ajmp;             /* MCS51 - Use acall/ajmp instead of lcall/ljmp */
     /* starting address of the segments */
-    int xstack_loc;            /* initial location of external stack */
-    int stack_loc;             /* initial value of internal stack pointer */
-    int xdata_loc;             /* xternal ram starts at address */
-    int data_loc;              /* interram start location       */
-    int idata_loc;             /* indirect address space        */
-    int code_loc;              /* code location start           */
-    int iram_size;             /* internal ram size (used only for error checking) */
+    int xstack_loc;             /* initial location of external stack */
+    int stack_loc;              /* initial value of internal stack pointer */
+    int xdata_loc;              /* xternal ram starts at address */
+    int data_loc;               /* interram start location       */
+    int idata_loc;              /* indirect address space        */
+    int code_loc;               /* code location start           */
+    int iram_size;              /* internal ram size (used only for error checking) */
+    int xram_size;              /* external ram size (used only for error checking) */
+    bool xram_size_set;         /* since xram_size=0 is a possibility */
+    int code_size;              /* code size (used only for error checking) */
+    int verboseExec;            /* show what we are doing */
+    int noXinitOpt;             /* don't optimize initialized xdata */
+    int noCcodeInAsm;           /* hide c-code from asm */
+    int iCodeInAsm;             /* show i-code in asm */
+    int noPeepComments;         /* hide peephole optimizer comments */
+    int verboseAsm;             /* include comments generated with gen.c */
+    int printSearchDirs;        /* display the directories in the compiler's search path */
+    int vc_err_style;           /* errors and warnings are compatible with Micro$oft visual studio */
+    int use_stdout;             /* send errors to stdout instead of stderr */
+    int no_std_crt0;            /* for the z80/gbz80 do not link default crt0.o*/
+    int std_c99;                /* enable C99 keywords/constructs */
+    int std_sdcc;               /* enable SDCC extensions to C */
+    int dollars_in_ident;       /* zero means dollar signs are punctuation */
+    int unsigned_char;          /* use unsigned for char without signed/unsigned modifier */
+    char *code_seg;             /* segment name to use instead of CSEG */
+    char *const_seg;            /* segment name to use instead of CONST */
+    /* sets */
+    set *calleeSavesSet;        /* list of functions using callee save */
+    set *excludeRegsSet;        /* registers excluded from saving */
+/*  set *olaysSet;               * not implemented yet: overlay segments used in #pragma OVERLAY */
   };
 
 /* forward definition for variables accessed globally */
-extern char *currFname;
-extern char *srcFileName;      /* source file name without the extenstion */
-extern char *moduleName;       /* source file name without path & extension */
-extern int currLineno;         /* current line number    */
-extern int yylineno;           /* line number of the current file SDCC.lex */
-extern FILE *yyin;             /* */
-extern FILE *asmFile;          /* assembly output file */
-extern FILE *cdbFile;          /* debugger symbol file */
-extern int NestLevel;          /* NestLevel                 SDCC.y   */
-extern int stackPtr;           /* stack pointer             SDCC.y   */
-extern int xstackPtr;          /* external stack pointer    SDCC.y   */
-extern int reentrant;          /* /X flag has been sent     SDCC.y */
-extern char buffer[];          /* general buffer      SDCCgen.c   */
-extern int currRegBank;                /* register bank being used   SDCCgens.c   */
-extern struct symbol *currFunc;        /* current function    SDCCgens.c */
-extern int cNestLevel;         /* block nest level  SDCCval.c      */
-extern int currBlockno;                /* sequentail block number */
+extern int noAssemble;          /* no assembly, stop after code generation */
+extern char *yytext;
+extern char *lexFilename;       /* lex idea of current file name */
+extern int lexLineno;           /* lex idea of line number of the current file */
+extern char *fullSrcFileName;   /* full name for the source file; */
+                                /* can be NULL while linking without compiling */
+extern char *fullDstFileName;   /* full name for the output file; */
+                                /* only given by -o, otherwise NULL */
+extern char *dstFileName;       /* destination file name without extension */
+extern char *dstPath;           /* path for the output files; */
+                                /* "" is equivalent with cwd */
+extern char *moduleName;        /* module name is source file without path and extension */
+                                /* can be NULL while linking without compiling */
+extern int seqPointNo;          /* current sequence point */
+extern FILE *yyin;              /* */
+extern FILE *asmFile;           /* assembly output file */
+extern FILE *cdbFile;           /* debugger symbol file */
+extern int NestLevel;           /* NestLevel                 SDCC.y */
+extern int stackPtr;            /* stack pointer             SDCC.y */
+extern int xstackPtr;           /* external stack pointer    SDCC.y */
+extern int reentrant;           /* /X flag has been sent     SDCC.y */
+extern char buffer[PATH_MAX * 2];/* general buffer           SDCCmain.c */
+extern int currRegBank;         /* register bank being used  SDCCgens.c */
+extern int RegBankUsed[4];      /* JCF: register banks used  SDCCmain.c */
+extern int BitBankUsed;         /* MB: overlayable bit bank  SDCCmain.c */
+extern struct symbol *currFunc; /* current function    SDCCgens.c */
+extern int cNestLevel;          /* block nest level  SDCCval.c */
+extern int blockNo;             /* maximum sequential block number */
+extern int currBlockno;         /* sequential block number */
 extern struct optimize optimize;
 extern struct options options;
-extern int maxInterrupts;
+extern unsigned maxInterrupts;
+extern int ignoreTypedefType;
 
 /* Visible from SDCCmain.c */
-extern int nrelFiles;
-extern char *relFiles[128];
-extern char *libFiles[128];
-extern int nlibFiles;
-
-/*
-   void buildCmdLine(char *into, char **args, const char **cmds, 
-   const char *p1, const char *p2, 
-   const char *p3, const char **list);
-   int my_system (const char *cmd, char **cmd_argv);
- */
+extern set *preArgvSet;
+extern set *relFilesSet;
+extern set *libFilesSet;
+extern set *libPathsSet;
+extern set *libDirsSet;         /* list of lib search directories */
 
-void parseWithComma (char **, char *);
-
-/** Creates a temporary file a'la tmpfile which avoids the bugs
-    in cygwin wrt c:\tmp.
-    Scans, in order: TMP, TEMP, TMPDIR, else uses tmpfile().
-*/
-FILE *tempfile (void);
-
-/** Creates a duplicate of the string 'sz' a'la strdup but using
-    libgc.
-*/
-char *gc_strdup (const char *sz);
+void setParseWithComma (set **, const char *);
 
 /** An assert() macro that will go out through sdcc's error
     system.
 */
-#define wassertl(a,s)  ((a) ? 0 : \
+#define wassertl(a,s)   ((a) ? 0 : \
         (werror (E_INTERNAL_ERROR,__FILE__,__LINE__, s), 0))
 
 #define wassert(a)    wassertl(a,"code generator internal error")
 
+#define DUMP_RAW0 1
+#define DUMP_RAW1 DUMP_RAW0+1
+#define DUMP_CSE DUMP_RAW1+1
+#define DUMP_DFLOW DUMP_CSE+1
+#define DUMP_GCSE DUMP_DFLOW+1
+#define DUMP_DEADCODE DUMP_GCSE+1
+#define DUMP_LOOP DUMP_DEADCODE+1
+#define DUMP_LOOPG DUMP_LOOP+1
+#define DUMP_LOOPD DUMP_LOOPG+1
+#define DUMP_RANGE DUMP_LOOPD+1
+#define DUMP_PACK DUMP_RANGE+1
+#define DUMP_RASSGN DUMP_PACK+1
+#define DUMP_LRANGE DUMP_RASSGN+1
+
+struct _dumpFiles {
+  int id;
+  char *ext;
+  FILE *filePtr;
+};
+
+extern struct _dumpFiles dumpFiles[];
+
+/* Buffer which can be used to hold a file name; assume it will
+ * be trashed by any function call within SDCC.
+ */
+extern char scratchFileName[PATH_MAX];
+
+/* Define well known filenos if the system does not define them.  */
+#ifndef STDIN_FILENO
+# define STDIN_FILENO   0
+#endif
+#ifndef STDOUT_FILENO
+# define STDOUT_FILENO  1
+#endif
+#ifndef STDERR_FILENO
+# define STDERR_FILENO  2
+#endif
 
 #endif