Version bump for last commit; now at v2.0.23.

[rmac] / riscasm.c

diff --git a/riscasm.c b/riscasm.c
index fea5153a9f1bb54dd45aa6b52da55562b47621e7..3092e6e7017d4c0e0a5145baf33d3ffd2d09663a 100644 (file)
--- a/riscasm.c
+++ b/riscasm.c
@@ -1,7 +1,7 @@
 //
 // RMAC - Reboot's Macro Assembler for all Atari computers
 // RISCA.C - GPU/DSP Assembler
-// Copyright (C) 199x Landon Dyer, 2011-2019 Reboot and Friends
+// Copyright (C) 199x Landon Dyer, 2011-2020 Reboot and Friends
 // RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986
 // Source utilised with the kind permission of Landon Dyer
 //
@@ -229,8 +229,8 @@ int GenerateRISCCode(int state)
        int indexed;                            // Indexed register flag
 
        uint64_t eval;                          // Expression value
-       uint16_t eattr;                                 // Expression attributes
-       SYM * esym;                                     // External symbol involved in expr.
+       uint16_t eattr;                         // Expression attributes
+       SYM * esym = NULL;                      // External symbol involved in expr.
        TOKEN r_expr[EXPRSIZE];         // Expression token list
 
        // Get opcode parameter and type
@@ -258,7 +258,7 @@ int GenerateRISCCode(int state)
        // UNPACK
        case RI_ONE:
                reg2 = EvaluateRegisterFromTokenStream(FU_REGTWO);
-               at_eol();
+               ErrorIfNotAtEOL();
                DepositRISCInstructionWord(parm, parm >> 6, reg2);
                break;
 
@@ -276,7 +276,7 @@ int GenerateRISCCode(int state)
                        altbankok = 1;                      // MOVETA
 
                reg2 = EvaluateRegisterFromTokenStream(FU_REGTWO);
-               at_eol();
+               ErrorIfNotAtEOL();
                DepositRISCInstructionWord(parm, reg1, reg2);
                break;
 
@@ -325,8 +325,14 @@ int GenerateRISCCode(int state)
                }
                else
                {
+                       if (esym && (esym->sattre & EQUATEDREG))
+                               return error("equated register seen for immediate value");
+
+                       if (eattr & RISCREG)
+                               return error("register seen for immediate value");
+
                        if (((int)eval < reg1) || ((int)eval > reg2))
-                               return error("constant out of range (%d to %d", reg1, reg2);
+                               return error("constant out of range (%d to %d)", reg1, reg2);
 
                        if (parm & SUB32)
                                reg1 = 32 - (int)eval;
@@ -338,7 +344,7 @@ int GenerateRISCCode(int state)
 
                CHECK_COMMA;
                reg2 = EvaluateRegisterFromTokenStream(FU_REGTWO);
-               at_eol();
+               ErrorIfNotAtEOL();
                DepositRISCInstructionWord(parm, reg1, reg2);
                break;
 
@@ -387,7 +393,7 @@ int GenerateRISCCode(int state)
 
                CHECK_COMMA;
                reg2 = EvaluateRegisterFromTokenStream(FU_REGTWO);
-               at_eol();
+               ErrorIfNotAtEOL();
 
                DepositRISCInstructionWord(parm, 0, reg2);
                val = WORDSWAP32(eval);
@@ -410,7 +416,7 @@ int GenerateRISCCode(int state)
 
                CHECK_COMMA;
                reg2 = EvaluateRegisterFromTokenStream(FU_REGTWO);
-               at_eol();
+               ErrorIfNotAtEOL();
                DepositRISCInstructionWord(parm, reg1, reg2);
                break;
 
@@ -533,7 +539,7 @@ int GenerateRISCCode(int state)
                tok++;
                CHECK_COMMA;
                reg2 = EvaluateRegisterFromTokenStream(FU_REGTWO);
-               at_eol();
+               ErrorIfNotAtEOL();
                DepositRISCInstructionWord(parm, reg1, reg2);
                break;
 
@@ -652,7 +658,7 @@ int GenerateRISCCode(int state)
                        return MalformedOpcode(MALF_RPAREN);
 
                tok++;
-               at_eol();
+               ErrorIfNotAtEOL();
                DepositRISCInstructionWord(parm, reg2, reg1);
                break;
 
@@ -670,7 +676,7 @@ int GenerateRISCCode(int state)
                tok++;
                CHECK_COMMA;
                reg2 = EvaluateRegisterFromTokenStream(FU_REGTWO);
-               at_eol();
+               ErrorIfNotAtEOL();
                DepositRISCInstructionWord(parm, reg1, reg2);
                break;
 
@@ -689,7 +695,7 @@ int GenerateRISCCode(int state)
                        return MalformedOpcode(MALF_RPAREN);
 
                tok++;
-               at_eol();
+               ErrorIfNotAtEOL();
                DepositRISCInstructionWord(parm, reg2, reg1);
                break;
 
@@ -802,7 +808,7 @@ int GenerateRISCCode(int state)
                                return MalformedOpcode(MALF_RPAREN);
 
                        tok++;
-                       at_eol();
+                       ErrorIfNotAtEOL();
                }
 
                DepositRISCInstructionWord(parm, reg2, reg1);