* as/hc08/Makefile.bcc, as/hc08/Makefile.in, as/hc08/as_hc08.dsp,

[fw/sdcc] / as / hc08 / m08adr.c

diff --git a/as/hc08/m08adr.c b/as/hc08/m08adr.c
index 61e10b4c152f7f4e5c4991b6fd2bf6fe928e4575..aa904650f70cf8b1b74119862c800f7c93c8e1e7 100644 (file)
--- a/as/hc08/m08adr.c
+++ b/as/hc08/m08adr.c
@@ -18,114 +18,114 @@ int
 addr(esp)
 register struct expr *esp;
 {
-       register int c;
-       register struct area *espa;
-       register Addr_T espv;
-       char *tcp;
-
-       if ((c = getnb()) == '#') {
-               expr(esp, 0);
-               esp->e_mode = S_IMMED;
-       } else if (c == ',') {
-               switch(admode(axs)) {
-               default:
-                       aerr();
-
-               case S_X:
-                       c = S_IX;
-                       break;
-
-               case S_S:
-                       c = S_IS;
-                       break;
-
-               case S_XP:
-                       c = S_IXP;
-                       break;
-               }
-               esp->e_mode = c;
-       } else if (c == '*') {
-               expr(esp, 0);
-               esp->e_mode = S_DIR;
-               if (esp->e_addr & ~0xFF)
-                       err('d');
-               if (more()) {
-                       comma();
-                       tcp = ip;
-                       switch(admode(axs)) {
-                       case S_X:
-                               esp->e_mode = S_IX1;
-                               break;
-
-                       case S_S:
-                               esp->e_mode = S_SP1;
-                               break;
-
-                       case S_XP:
-                               esp->e_mode = S_IX1P;
-                               break;
-
-                       default:
-                               ip = --tcp;
-                       }
-               }
-       } else {
-               unget(c);
-               if ((esp->e_mode = admode(axs)) != 0) {
-                       ;
-               } else {
-                       expr(esp, 0);
-                       espa = esp->e_base.e_ap;
-                       espv = esp->e_addr;
-                       if (more()) {
-                               comma();
-                               c = admode(axs);
-                               if (esp->e_flag == 0 &&
-                                   espa == NULL &&
-                                   (espv & ~0xFF) == 0) {
-                                       switch(c) {
-                                       default:
-                                               aerr();
-
-                                       case S_X:
-                                               c = S_IX1;
-                                               break;
-
-                                       case S_S:
-                                               c = S_SP1;
-                                               break;
-
-                                       case S_XP:
-                                               c = S_IX1P;
-                                               break;
-                                       }
-                               } else {
-                                       switch(c) {
-                                       default:
-                                               aerr();
-
-                                       case S_X:
-                                               c = S_IX2;
-                                               break;
-
-                                       case S_S:
-                                               c = S_SP2;
-                                               break;
-
-                                       case S_XP:
-                                               c = S_IX2P;
-                                               break;
-                                       }
-                               }
-                               esp->e_mode = c;
-                       } else {
-                               esp->e_mode = S_EXT;
-                       }
-               }
-       }
-       return (esp->e_mode);
+        register int c;
+        register struct area *espa;
+        register Addr_T espv;
+        const char *tcp;
+
+        if ((c = getnb()) == '#') {
+                expr(esp, 0);
+                esp->e_mode = S_IMMED;
+        } else if (c == ',') {
+                switch(admode(axs)) {
+                default:
+                        aerr();
+
+                case S_X:
+                        c = S_IX;
+                        break;
+
+                case S_S:
+                        c = S_IS;
+                        break;
+
+                case S_XP:
+                        c = S_IXP;
+                        break;
+                }
+                esp->e_mode = c;
+        } else if (c == '*') {
+                expr(esp, 0);
+                esp->e_mode = S_DIR;
+                if (esp->e_addr & ~0xFF)
+                        err('d');
+                if (more()) {
+                        comma();
+                        tcp = ip;
+                        switch(admode(axs)) {
+                        case S_X:
+                                esp->e_mode = S_IX1;
+                                break;
+
+                        case S_S:
+                                esp->e_mode = S_SP1;
+                                break;
+
+                        case S_XP:
+                                esp->e_mode = S_IX1P;
+                                break;
+
+                        default:
+                                ip = --tcp;
+                        }
+                }
+        } else {
+                unget(c);
+                if ((esp->e_mode = admode(axs)) != 0) {
+                        ;
+                } else {
+                        expr(esp, 0);
+                        espa = esp->e_base.e_ap;
+                        espv = esp->e_addr;
+                        if (more()) {
+                                comma();
+                                c = admode(axs);
+                                if (esp->e_flag == 0 &&
+                                    espa == NULL &&
+                                    (espv & ~0xFF) == 0) {
+                                        switch(c) {
+                                        default:
+                                                aerr();
+
+                                        case S_X:
+                                                c = S_IX1;
+                                                break;
+
+                                        case S_S:
+                                                c = S_SP1;
+                                                break;
+
+                                        case S_XP:
+                                                c = S_IX1P;
+                                                break;
+                                        }
+                                } else {
+                                        switch(c) {
+                                        default:
+                                                aerr();
+
+                                        case S_X:
+                                                c = S_IX2;
+                                                break;
+
+                                        case S_S:
+                                                c = S_SP2;
+                                                break;
+
+                                        case S_XP:
+                                                c = S_IX2P;
+                                                break;
+                                        }
+                                }
+                                esp->e_mode = c;
+                        } else {
+                                esp->e_mode = S_EXT;
+                        }
+                }
+        }
+        return (esp->e_mode);
 }
-       
+
 /*
  * Enter admode() to search a specific addressing mode table
  * for a match. Return the addressing value on a match or
@@ -135,22 +135,22 @@ int
 admode(sp)
 register struct adsym *sp;
 {
-       register char *ptr;
-       register int i;
-       register char *ips;
-
-       ips = ip;
-       unget(getnb());
-
-       i = 0;
-       while ( *(ptr = &sp[i].a_str[0]) ) {
-               if (srch(ptr)) {
-                       return(sp[i].a_val);
-               }
-               i++;
-       }
-       ip = ips;
-       return(0);
+        register char *ptr;
+        register int i;
+        register const char *ips;
+
+        ips = ip;
+        unget(getnb());
+
+        i = 0;
+        while ( *(ptr = &sp[i].a_str[0]) ) {
+                if (srch(ptr)) {
+                        return(sp[i].a_val);
+                }
+                i++;
+        }
+        ip = ips;
+        return(0);
 }
 
 /*
@@ -160,26 +160,26 @@ int
 srch(str)
 register char *str;
 {
-       register char *ptr;
-       ptr = ip;
-
-       while (*ptr && *str) {
-               if(ccase[*ptr & 0x007F] != ccase[*str & 0x007F])
-                       break;
-               ptr++;
-               str++;
-       }
-       if (ccase[*ptr & 0x007F] == ccase[*str & 0x007F]) {
-               ip = ptr;
-               return(1);
-       }
-
-       if (!*str)
-               if (any(*ptr," \t\n,];")) {
-                       ip = ptr;
-                       return(1);
-               }
-       return(0);
+        register const char *ptr;
+        ptr = ip;
+
+        while (*ptr && *str) {
+                if(ccase[*ptr & 0x007F] != ccase[*str & 0x007F])
+                        break;
+                ptr++;
+                str++;
+        }
+        if (ccase[*ptr & 0x007F] == ccase[*str & 0x007F]) {
+                ip = ptr;
+                return(1);
+        }
+
+        if (!*str)
+                if (any(*ptr," \t\n,];")) {
+                        ip = ptr;
+                        return(1);
+                }
+        return(0);
 }
 
 /*
@@ -190,16 +190,16 @@ any(c,str)
 int c;
 char*str;
 {
-       while (*str)
-               if(*str++ == c)
-                       return(1);
-       return(0);
+        while (*str)
+                if(*str++ == c)
+                        return(1);
+        return(0);
 }
 
-struct adsym   axs[] = {       /* a, x, or s registers */
-    {  "a",    S_A     },
-    {  "x",    S_X     },
-    {  "s",    S_S     },
-    {  "x+",   S_XP    },
-    {  "",     0x00    }
+struct adsym    axs[] = {       /* a, x, or s registers */
+    {   "a",    S_A     },
+    {   "x",    S_X     },
+    {   "s",    S_S     },
+    {   "x+",   S_XP    },
+    {   "",     0x00    }
 };