src/pic/glue.c (pic14printPublics): fix bitvars can't be public

[fw/sdcc] / as / z80 / asmain.c

diff --git a/as/z80/asmain.c b/as/z80/asmain.c
index 19099878803ec9f7c0b8dd06e4ccad382efae488..0570e36af807f82951bdcb9edf887e276a11869d 100644 (file)
--- a/as/z80/asmain.c
+++ b/as/z80/asmain.c
@@ -839,7 +839,7 @@ loop:
                break;
 
        case S_MODUL:
-               getst(id, -1);
+               getst(id, getnb()); // a module can start with a digit
                if (pass == 0) {
                        if (module[0]) {
                                err('m');
@@ -850,6 +850,19 @@ loop:
                lmode = SLIST;
                break;
 
+    case S_OPTSDCC:
+               p = optsdcc;
+               if ((c = getnb()) != 0) {
+                       do {
+                               if (p < &optsdcc[NINPUT-1])
+                                       *p++ = c;
+                       } while ((c = get()) != 0);
+               }
+               *p = 0;
+               unget(c);
+               lmode = SLIST;
+        break;
+
        case S_GLOBL:
                do {
                        getid(id, -1);