Added floating point support to expression evaluator, introduced FLOAT token, fixup...
[rmac] / rmac.h
diff --git a/rmac.h b/rmac.h
index b3eb171df0c69a54fdd668e126f8ca8ee3f04eb0..0f92d796b9a6b60a2a32970d8299f9079b4e35ee 100644 (file)
--- a/rmac.h
+++ b/rmac.h
 //
-// RMAC - Reboot's Macro Assembler for the Atari Jaguar Console System
+// RMAC - Reboot's Macro Assembler for all Atari computers
 // RMAC.H - Main Application Code
-// Copyright (C) 199x Landon Dyer, 2011 Reboot & Friends
+// Copyright (C) 199x Landon Dyer, 2011-2017 Reboot and Friends
 // RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
-// Source Utilised with the Kind Permission of Landon Dyer
+// Source utilised with the kind permission of Landon Dyer
 //
 
 #ifndef __RMAC_H__
 #define __RMAC_H__
 
-//
-// TARGET SPECIFIC BUILD SETTINGS
-//
-
-#ifdef WIN32
-#define PLATFORM        "Win32"                             // Release platform - windows
-#define _OPEN_FLAGS     _O_TRUNC|_O_CREAT|_O_BINARY|_O_RDWR
-#define _OPEN_INC       _O_RDONLY|_O_BINARY
-#define _PERM_MODE      _S_IREAD|_S_IWRITE 
-#ifdef _MSC_VER
-   #if _MSC_VER > 1000
-      #pragma warning(disable:4996)
-   #endif
-#endif
-#include <io.h>
-#include <fcntl.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#else 
-#ifdef __GCCUNIX__
-#define PLATFORM        "OSX/Linux"                         // Release platform - mac OS-X or linux
-#define _OPEN_FLAGS     O_TRUNC|O_CREAT|O_RDWR
-#define _OPEN_INC       O_RDONLY
-#define _PERM_MODE      S_IREAD|S_IWRITE 
-#include <sys/fcntl.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 #include <ctype.h>
 #include <sys/types.h>
 #include <sys/stat.h>
-#include <unistd.h>
+
+//
+// TARGET SPECIFIC BUILD SETTINGS
+//
+#if defined(WIN32) || defined (WIN64)
+       #include <io.h>
+       #include <fcntl.h>
+       // Release platform - windows
+       #define PLATFORM        "Win32"
+       #define _OPEN_FLAGS     _O_TRUNC|_O_CREAT|_O_BINARY|_O_RDWR
+       #define _OPEN_INC       _O_RDONLY|_O_BINARY
+       #define _PERM_MODE      _S_IREAD|_S_IWRITE
+       #ifdef _MSC_VER
+               #if _MSC_VER > 1000
+                       #pragma warning(disable:4996)
+               #endif
+
+       // Makes warnings double clickable on visual studio (ggn)
+       #define STRINGIZE_HELPER(x) #x
+       #define STRINGIZE(x) STRINGIZE_HELPER(x)
+       #define WARNING(desc) __pragma(message(__FILE__ "(" STRINGIZE(__LINE__) ") : Warning: " #desc))
+       #define inline __inline
+
+       // usage:
+       // WARNING(FIXME: Code removed because...)
+
+       #else
+       // If we're not compiling for Visual Studio let's assume that we're using
+       // some flavour of gcc instead. So let's use the gcc compliant macro
+       // instead. If some weirdo uses something else (I dunno, Intel compiler or
+       // something?) this is probably going to explode spectacularly. Let's wait
+       // for the fireworks!
+       #define DO_PRAGMA(x) _Pragma (#x)
+       #define WARNING(desc) DO_PRAGMA(message (#desc))
+
+       #endif
+
 #else
-#define PLATFORM        "Unknown"                           // Release platform - not specified 
-#define _OPEN_FLAGS     O_TRUNC|O_CREAT|O_RDWR
-#define _OPEN_INC       O_RDONLY
-#define _PERM_MODE      S_IREAD|S_IWRITE 
-#include <sys/fcntl.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-#include <ctype.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#endif
+
+       #ifdef __GCCUNIX__
+
+       #include <sys/fcntl.h>
+       #include <unistd.h>
+       // Release platform - mac OS-X or Linux
+       #define PLATFORM        "OSX/Linux"
+       #define _OPEN_FLAGS     O_TRUNC|O_CREAT|O_RDWR
+       #define _OPEN_INC       O_RDONLY
+       #define _PERM_MODE      S_IRUSR|S_IWUSR
+
+       #ifdef __MINGW32__
+       #define off64_t long
+       #define off_t long
+       #undef _OPEN_FLAGS
+       #undef _OPEN_INC
+       #define _OPEN_FLAGS     _O_TRUNC|_O_CREAT|_O_BINARY|_O_RDWR
+       #define _OPEN_INC       O_RDONLY|_O_BINARY
+       #endif
+
+       // WARNING WARNING WARNING
+       #define DO_PRAGMA(x) _Pragma (#x)
+       #define WARNING(desc) DO_PRAGMA(message (#desc))
+#else
+       // Release platform - not specified
+       #include <sys/fcntl.h>
+       #define PLATFORM        "Unknown"
+       #define _OPEN_FLAGS     O_TRUNC|O_CREAT|O_RDWR
+       #define _OPEN_INC       O_RDONLY
+       #define _PERM_MODE      S_IREAD|S_IWRITE
+       // Defined here, even though the platform may not support it...
+       #define DO_PRAGMA(x) _Pragma (#x)
+       #define WARNING(desc) DO_PRAGMA(message (#desc))
+       #endif
 #endif
 
+//
+// Endian related, for safe handling of endian-sensitive data
+// USAGE: GETBExx() is *always* an rvalue, a = pointer to a uint8_t,
+//        r = offset from 0. SETBExx(), v = value to write into 'a'
+//
+#define GETBE16(a, r) \
+       (((uint16_t)(a)[(r + 0)] << 8) | ((uint16_t)(a)[(r + 1)]))
+
+#define GETBE32(a, r) \
+       (((uint32_t)(a)[(r + 0)] << 24) | ((uint32_t)(a)[(r + 1)] << 16) \
+       | ((uint32_t)(a)[(r + 2)] << 8) | ((uint32_t)(a)[(r + 3)]))
+
+#define GETBE64(a, r) \
+       (((uint64_t)(a)[(r + 0)] << 56) | ((uint64_t)(a)[(r + 1)] << 48) \
+       | ((uint64_t)(a)[(r + 2)] << 40) | ((uint64_t)(a)[(r + 3)] << 32) \
+       | ((uint64_t)(a)[(r + 4)] << 24) | ((uint64_t)(a)[(r + 5)] << 16) \
+       | ((uint64_t)(a)[(r + 6)] << 8) | ((uint64_t)(a)[(r + 7)]))
+
+#define SETBE16(a, r, v) \
+       { (a)[(r + 0)] = (uint8_t)((v) >> 8); \
+       (a)[(r + 1)] = (uint8_t)((v) & 0xFF); }
+
+#define SETBE32(a, r, v) \
+       { (a)[(r + 0)] = (uint8_t)((v) >> 24); \
+       (a)[(r + 1)] = (uint8_t)(((v) >> 16) & 0xFF); \
+       (a)[(r + 2)] = (uint8_t)(((v) >> 8) & 0xFF); \
+       (a)[(r + 3)] = (uint8_t)((v) & 0xFF); }
+
+#define SETBE64(a, r, v) \
+       { (a)[(r + 0)] = (uint8_t)((v) >> 56); \
+       (a)[(r + 1)] = (uint8_t)(((v) >> 48) & 0xFF); \
+       (a)[(r + 2)] = (uint8_t)(((v) >> 40) & 0xFF); \
+       (a)[(r + 3)] = (uint8_t)(((v) >> 32) & 0xFF); \
+       (a)[(r + 4)] = (uint8_t)(((v) >> 24) & 0xFF); \
+       (a)[(r + 5)] = (uint8_t)(((v) >> 16) & 0xFF); \
+       (a)[(r + 6)] = (uint8_t)(((v) >> 8) & 0xFF); \
+       (a)[(r + 7)] = (uint8_t)((v) & 0xFF); }
+
+// In 6502 mode, turns out we need this:
+#define SETLE16(a, r, v) \
+       { (a)[(r + 0)] = (uint8_t)((v) & 0xFF); \
+       (a)[(r + 1)] = (uint8_t)((v) >> 8); }
 
+// Byteswap crap
+#define BYTESWAP16(x) ((((x) & 0x00FF) << 8) | (((x) & 0xFF00) >> 8))
+#define BYTESWAP32(x) ((((x) & 0x000000FF) << 24) | (((x) & 0x0000FF00) << 8) | (((x) & 0x00FF0000) >> 8) | (((x) & 0xFF000000) >> 24))
+#define BYTESWAP64(x) (BYTESWAP32(x>>32)|BYTESWAP32((x&0xffffffff)<<32))
+#define WORDSWAP32(x) ((((x) & 0x0000FFFF) << 16) | (((x) & 0xFFFF0000) >> 16))
 
-#define BYTE         unsigned char
-#define WORD         unsigned short
-#define LONG         unsigned long
+//
+// Non-target specific stuff
+//
+#include <inttypes.h>
+#include "symbol.h"
+
+#define BYTE         uint8_t
+#define WORD         uint16_t
+#define LONG         uint32_t
 #define VOID         void
 
-#define ERROR        (-1)                                   // Generic error return
-#define EOS          '\0'                                   // End of string
-#define SPACE        ' '                                    // Ascii space 
+#define ERROR        (-1)              // Generic error return
+#define EOS          '\0'              // End of string
+#define SPACE        ' '               // ASCII space
 #define SLASHCHAR    '/'
 #define SLASHSTRING  "/"
-#define VALUE        LONG                                   // Assembler value
-#define TOKEN        LONG                                   // Assembler token
-#define FNSIZ        128                                    // Maximum size of a filename
-#define OK           0                                      // OK return
-#define DEBUG        if(debug)                              // Debug conditional
-#define MAXARGV      100                                    // Maximum number of commandline args
-#define STDOUT       1                                      // Standard output
-#define ERROUT       2                                      // Error output
+#define TOKEN        uint32_t  // Assembler token
+#define FNSIZ        128               // Maximum size of a filename
+#define OK           0                 // OK return
+#define DEBUG        if (debug)        // Debug conditional
+#define MAXARGV      100               // Maximum number of commandline args
+#define STDOUT       1                 // Standard output
+#define ERROUT       2                 // Error output
 #define CREATMASK    0
 
-// (Normally) non-printable tokens
-#define COLON        ':'                                    // : (grumble: GNUmacs hates ':')
-#define CONST        'a'                                    // CONST <value>
-#define ACONST       'A'                                    // ACONST <value> <attrib>
-#define STRING       'b'                                    // STRING <address>
-#define SYMBOL       'c'                                    // SYMBOL <address>
-#define EOL          'e'                                    // End of line
-#define TKEOF        'f'                                    // End of file (or macro)
-#define DEQUALS      'g'                                    // ==
-#define SET          149                                    // set
-#define REG          'R'                                    // reg
-#define EQUREG       148                                    // equreg
-#define CCDEF        183                                    // ccdef
-#define DCOLON       'h'                                    // ::
-#define GE           'i'                                    // >=
-#define LE           'j'                                    // <=
-#define NE           'k'                                    // <> or !=
-#define SHR          'l'                                    // >>
-#define SHL          'm'                                    // <<
-#define UNMINUS      'n'                                    // Unary '-'
-#define DOTB         'B'                                    // .b or .B or .s or .S
-#define DOTW         'W'                                    // .w or .W
-#define DOTL         'L'                                    // .l or .L
-#define DOTI         'I'                                    // .i or .I
-#define ENDEXPR      'E'                                    // End of expression
-
 // Object code formats
-#define ALCYON       0                                      // Alcyon/DRI C object format
-#define MWC          1                                      // Mark Williams object format
-#define BSD          2                                      // BSD object format
-
-// Symbols
-#define  SYM         struct _sym
-SYM
+enum
 {
-   SYM *snext;                                              // * -> Next symbol on hash-chain
-   SYM *sorder;                                             // * -> Next sym in order of refrence
-   SYM *sdecl;                                              // * -> Next sym in order of decleration
-   BYTE stype;                                              // Symbol type 
-   WORD sattr;                                              // Attribute bits
-   LONG sattre;                                             // Extended attribute bits
-   WORD senv;                                               // Enviroment number
-   LONG svalue;                                             // Symbol value
-   char *sname;                                             // * -> Symbol's print-name
+ALCYON,                        // Alcyon/DRI C object format
+MWC,                           // Mark Williams object format
+BSD,                           // BSD object format
+ELF,                           // ELF object format
+LOD,                           // DSP 56001 object format
+P56,                           // DSP 56001 object format
+XEX,                           // COM/EXE/XEX/whatever a8 object format
 };
 
 // Pointer type that can point to (almost) anything
 #define PTR union _ptr
 PTR
 {
-   char *cp;                                                // Char
-   WORD *wp;                                                // WORD
-   LONG *lp;                                                // LONG
-   LONG lw;                                                 // LONG
-   SYM **sy;                                                // SYM
-   TOKEN *tk;                                               // TOKEN
+       uint8_t * cp;                           // Char
+       uint16_t * wp;                          // WORD
+       uint32_t * lp;                          // LONG
+       uint32_t lw;                            // LONG
+       SYM ** sy;                                      // SYM
+       TOKEN * tk;                                     // TOKEN
 };
 
 // Symbol spaces
-#define LABEL        0                                      // User-defined symbol
-#define MACRO        1                                      // Macro definition
-#define MACARG       2                                      // Macro argument
-#define SY_UNDEF     -1                                     // Undefined (lookup never matches it)
+#define LABEL        0                 // User-defined symbol
+#define MACRO        1                 // Macro definition
+#define MACARG       2                 // Macro argument
+#define SY_UNDEF     -1                        // Undefined (lookup never matches it)
 
 // Symbol and expression attributes
-#define DEFINED      0x8000                                 // Symbol has been defined
-#define GLOBAL       0x4000                                 // Symbol has been .GLOBL'd
-#define COMMON       0x2000                                 // Symbol has been .COMM'd
-#define REFERENCED   0x1000                                 // Symbol has been referenced
-#define EQUATED      0x0800                                 // Symbol was equated
-#define SDECLLIST    0x0400                                 // Symbol is on 'sdecl'-order list
+#define DEFINED      0x8000            // Symbol has been defined
+#define GLOBAL       0x4000            // Symbol has been .GLOBL'd
+#define COMMON       0x2000            // Symbol has been .COMM'd
+#define REFERENCED   0x1000            // Symbol has been referenced
+#define EQUATED      0x0800            // Symbol was equated
+#define SDECLLIST    0x0400            // Symbol is on 'sdecl'-order list
+#define FLOAT        0x0200            // Symbol is a floating point value
 
 // Expression spaces, ORed with symbol and expression attributes above
-#define ABS          0x0000                                 // In absolute space
-#define TEXT         0x0001                                 // Relative to text
-#define DATA         0x0002                                 // Relative to data
-#define BSS          0x0004                                 // Relative to BSS
-//#define M6502        0x0008                                 // 6502/microprocessor (absolute)
-#define TDB          (TEXT|DATA|BSS)                        // Mask for text+data+bss
-
-// Sizes 
-#define SIZB         0x0001                                 // .b 
-#define SIZW         0x0002                                 // .w 
-#define SIZL         0x0004                                 // .l 
-#define SIZN         0x0008                                 // no .(size) specifier
+#define ABS          0x0000            // In absolute space
+#define TEXT         0x0001            // Relative to text
+#define DATA         0x0002            // Relative to data
+#define BSS          0x0004            // Relative to BSS
+#define M6502        0x0008            // 6502/microprocessor (absolute)
+#define TDB          (TEXT|DATA|BSS)   // Mask for text+data+bss
+
+// Sizes
+#define SIZB         0x0001            // .b
+#define SIZW         0x0002            // .w
+#define SIZL         0x0004            // .l
+#define SIZN         0x0008            // no .(size) specifier
+#define SIZD         0x0010            // .d (quad word or FPU double precision real)
+#define SIZS         0x0020            // .s (FPU single precision real)
+#define SIZX         0x0040            // .x (FPU extended precision real)
+#define SIZP         0x0080            // .p (FPU pakced decimal real)
+#define SIZQ         0x0100            // .q
 
 // RISC register bank definitions (used in extended symbol attributes also)
-#define BANK_N       0x0000                                 // No register bank specified
-#define BANK_0       0x0001                                 // Register bank zero specified
-#define BANK_1       0x0002                                 // Register bank one specified
-#define EQUATEDREG   0x0008                                 // Equated register symbol
+#define BANK_N       0x0000            // No register bank specified
+#define BANK_0       0x0001            // Register bank zero specified
+#define BANK_1       0x0002            // Register bank one specified
+#define EQUATEDREG   0x0008            // Equated register symbol
 #define UNDEF_EQUR   0x0010
 #define EQUATEDCC    0x0020
 #define UNDEF_CC     0x0040
 
-#define RISCSYM      0x00010000
+// Construct binary constants at compile time
+// Code by Tom Torfs
+
+// Helper macros
+#define HEX__(n) 0x##n##LU
+#define B8__(x) \
+ ((x&0x0000000FLU)?1:0) \
++((x&0x000000F0LU)?2:0) \
++((x&0x00000F00LU)?4:0) \
++((x&0x0000F000LU)?8:0) \
++((x&0x000F0000LU)?16:0) \
++((x&0x00F00000LU)?32:0) \
++((x&0x0F000000LU)?64:0) \
++((x&0xF0000000LU)?128:0)
 
-// Globals, externals etc
+// User macros
+#define B8(d) ((uint8_t)B8__(HEX__(d)))
+#define B16(dmsb,dlsb) (((uint16_t)B8(dmsb)<<8) + B8(dlsb))
+#define B32(dmsb,db2,db3,dlsb) (((uint32_t)B8(dmsb)<<24) \
++ ((uint32_t)B8(db2)<<16) \
++ ((uint32_t)B8(db3)<<8) \
++ B8(dlsb))
+
+// Optimisation defines
+enum
+{
+       OPT_ABS_SHORT     = 0,
+       OPT_MOVEL_MOVEQ   = 1,
+       OPT_BSR_BCC_S     = 2,
+       OPT_INDIRECT_DISP = 3,
+       OPT_LEA_ADDQ      = 4,
+       OPT_BASE_DISP     = 5,
+       OPT_COUNT   // Dummy, used to count number of optimisation switches
+};
+
+// Exported variables
 extern int verb_flag;
 extern int debug;
 extern int rgpu, rdsp;
+extern int dsp56001;
 extern int err_flag;
 extern int err_fd;
 extern int regbank;
-extern char *firstfname;
+extern char * firstfname;
 extern int list_fd;
+extern int list_pag;
 extern int as68_flag;
+extern int m6502;
 extern int list_flag;
 extern int glob_flag;
 extern int lsym_flag;
 extern int sbra_flag;
 extern int obj_format;
-extern LONG amemtot;
-extern int in_main;
-
-// Prototypes
-void init_sym(void);
-SYM *lookup(char *, int, int);
-SYM *newsym(char *, int, int);
-char *fext(char *, char *, int);
-void cantcreat(char *);
-int kmatch(char *, int *, int *, int *, int *);
-void autoeven(int);
+extern int legacy_flag;
+extern int prg_flag;   // 1 = write ".PRG" relocatable executable
+extern LONG PRGFLAGS;
+extern int optim_flags[OPT_COUNT];
+extern int activecpu;
+extern int activefpu;
+
+// Exported functions
+char * fext(char *, char *, int);
 int nthpath(char *, int, char *);
-void clear(char *, LONG);
-char *copy(char *, char *, LONG);
-int rmac_qsort(char *, int, int, int   (*)());
-char *amem(LONG);
+int ParseOptimization(char * optstring);
 
 #endif // __RMAC_H__
+