]> Shamusworld >> Repos - rmac/blobdiff - rmac.c
Extended switch -s to also warn about automatically applied 68000 optimisations....
[rmac] / rmac.c
diff --git a/rmac.c b/rmac.c
index b2b2610d62c96bfaeef2da0feda1851b03329664..910cb88d5260535406cef0dd397282630b58d372 100644 (file)
--- a/rmac.c
+++ b/rmac.c
@@ -3,7 +3,7 @@
 // RMAC.C - Main Application Code
 // Copyright (C) 199x Landon Dyer, 2011 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
 //
 
 #include "rmac.h"
@@ -29,6 +29,7 @@ int as68_flag;                                        // as68 kludge mode
 int glob_flag;                                 // Assume undefined symbols are global
 int lsym_flag;                                 // Include local symbols in object file
 int sbra_flag;                                 // Warn about possible short branches
+int prg_flag;                                  // !=0, produce .PRG executable (2=symbols)
 int legacy_flag;                               // Do stuff like insert code in RISC assembler
 int obj_format;                                        // Object format flag
 int debug;                                             // [1..9] Enable debugging levels
@@ -44,7 +45,7 @@ char * firstfname;                            // First source filename
 char * cmdlnexec;                              // Executable name, pointer to ARGV[0]
 char * searchpath;                             // Search path for include files 
 char defname[] = "noname.o";   // Default output filename
-
+int optim_flag;                                        // Optimise all the things!
 
 //
 // Manipulate file extension.
@@ -125,11 +126,15 @@ void DisplayHelp(void)
                "  -dsymbol[=value]  Define symbol\n"
                "  -e[errorfile]     Send error messages to file, not stdout\n"
                "  -f[format]        Output object file format\n"
+               "                    a: ALCYON (use this for ST)\n"
                "                    b: BSD (use this for Jaguar)\n"
                "  -i[path]          Directory to search for include files\n"
                "  -l[filename]      Create an output listing file\n"
                "  -n                Don't do things behind your back in RISC assembler\n"
                "  -o file           Output file name\n"
+               "  -p                Create an ST .prg (without symbols)\n"
+               "  -ps               Create an ST .prg (with symbols)\n"
+               "                    Forces -fa\n"
                "  -r[size]          Pad segments to boundary size specified\n"
                "                    w: word (2 bytes, default alignment)\n"
                "                    l: long (4 bytes)\n"
@@ -137,7 +142,9 @@ void DisplayHelp(void)
                "                    d: double phrase (16 bytes)\n"
                "                    q: quad phrase (32 bytes)\n"
                "  -s                Warn about possible short branches\n"
+               "                    and applied optimisations\n"
                "  -u                Force referenced and undefined symbols global\n"
+               "  -w                Turn off optimisations done automatically\n"
                "  -v                Set verbose mode\n"
                "  -y[pagelen]       Set page line length (default: 61)\n"
                "\n", cmdlnexec);
@@ -149,8 +156,13 @@ void DisplayHelp(void)
 //
 void DisplayVersion(void)
 {
-       printf("\nReboot's Macro Assembler for Atari Jaguar\n"
-               "Copyright (C) 199x Landon Dyer, 2011 Reboot\n"
+       printf("\n"
+               " _ __ _ __ ___   __ _  ___ \n"
+               "| '__| '_ ` _ \\ / _` |/ __|\n"
+               "| |  | | | | | | (_| | (__ \n"
+               "|_|  |_| |_| |_|\\__,_|\\___|\n"
+               "\nReboot's Macro Assembler\n"
+               "Copyright (C) 199x Landon Dyer, 2011-2015 Reboot\n"
                "V%01i.%01i.%01i %s (%s)\n\n", MAJOR, MINOR, PATCH, __DATE__, PLATFORM);
 }
 
@@ -190,6 +202,7 @@ int Process(int argc, char ** argv)
        orgactive = 0;                                  // Not in RISC org section
        orgwarning = 0;                                 // No ORG warning issued
        segpadsize = 2;                                 // Initialise segment padding size
+       optim_flag = 1;                                 // Automatically optimise
 
        // Initialise modules
        InitSymbolTable();                              // Symbol table
@@ -246,6 +259,10 @@ int Process(int argc, char ** argv)
                                switch (argv[argno][2])
                                {
                                case EOS:
+                               case 'a':                       // -fa = Alcyon [the default]
+                               case 'A':
+                                       obj_format = ALCYON;
+                                       break;
                                case 'b':                       // -fb = BSD (Jaguar Recommended)
                                case 'B':
                                        obj_format = BSD;
@@ -283,9 +300,37 @@ int Process(int argc, char ** argv)
                                                errcnt++;
                                                return errcnt;
                                        }
+
                                        objfname = argv[argno];
                                }
 
+                               break;
+                       case 'p':               /* -p: generate ".PRG" executable output */
+                       case 'P':
+                               /*
+                                * -p           .PRG generation w/o symbols
+                                * -ps  .PRG generation with symbols
+                                */
+                               switch (argv[argno][2])
+                               {
+                                       case EOS:
+                                               prg_flag = 1;
+                                               break;
+
+                                       case 's':
+                                       case 'S':
+                                               prg_flag = 2;
+                                               break;
+
+                                       default:
+                                               printf("-p: syntax error\n");
+                                               ++errcnt;
+                                               return errcnt;
+                               }
+
+                               // Enforce Alcyon object format - kind of silly
+                               // to ask for .prg output without it!
+                               obj_format = ALCYON;
                                break;
                        case 'r':                               // Pad seg to requested boundary size
                        case 'R':
@@ -315,6 +360,10 @@ int Process(int argc, char ** argv)
                                        DisplayVersion();
 
                                break;
+                       case 'w':
+                       case 'W':
+                               optim_flag=0;
+                               break;
                        case 'x':                               // Turn on debugging
                        case 'X':
                                debug = 1;
@@ -412,8 +461,7 @@ int Process(int argc, char ** argv)
                        firstfname = defname;
 
                strcpy(fnbuf, firstfname);
-               //fext(fnbuf, prg_flag ? ".prg" : ".o", 1);
-               fext(fnbuf, ".o", 1);
+               fext(fnbuf, (prg_flag ? ".prg" : ".o"), 1);
                objfname = fnbuf;
        }
 
@@ -433,7 +481,7 @@ int Process(int argc, char ** argv)
 
                if (verb_flag)
                {
-                       s = "object";
+                       s = (prg_flag ? "executable" : "object");
                        printf("[Writing %s file: %s]\n", s, objfname);
                }