accept CALL $(constant) to call absolute PC

R=ken
OCL=34845
CL=34845

diff --git a/src/cmd/8a/a.y b/src/cmd/8a/a.y
index fced3efa47bf285a36b1d5eebb38adb4a3b4ddb1..3fded981f152eeda9b71bda43691b845a3944d9e 100644 (file)
--- a/src/cmd/8a/a.y
+++ b/src/cmd/8a/a.y
@@ -285,6 +285,7 @@ rom:
        }
 |      reg
 |      omem
+|      imm
 
 rim:
        rem

diff --git a/src/cmd/8l/l.h b/src/cmd/8l/l.h
index 1b61ee14be3cee1cf4ff83b44022a7a423bc8b53..98d35de6241ab258148caf650be773f96a683bb9 100644 (file)
--- a/src/cmd/8l/l.h
+++ b/src/cmd/8l/l.h
@@ -193,6 +193,7 @@ enum
        Z_rp,
        Zbr,
        Zcall,
+       Zcallcon,
        Zib_,
        Zib_rp,
        Zibo_m,

diff --git a/src/cmd/8l/optab.c b/src/cmd/8l/optab.c
index df5ba629fce002950ebf4f886e4ac14f45b8fd83..14e6daa326e3be7d557d16d155a0a9d5938cf1a6 100644 (file)
--- a/src/cmd/8l/optab.c
+++ b/src/cmd/8l/optab.c
@@ -260,7 +260,8 @@ uchar       yloop[] =
 uchar  ycall[] =
 {
        Ynone,  Yml,    Zo_m,   2,
-       Ynone,  Ybr,    Zcall,  1,
+       Ynone,  Ybr,    Zcall,  0,
+       Ynone,  Yi32,   Zcallcon,       1,
        0
 };
 uchar  yjmp[] =

diff --git a/src/cmd/8l/span.c b/src/cmd/8l/span.c
index d056fecafb19b5284b1ed408b0f50e0b194a43c2..8253ec9b16ad3397d1b0da32b06f1582c37bc1d7 100644 (file)
--- a/src/cmd/8l/span.c
+++ b/src/cmd/8l/span.c
@@ -105,7 +105,7 @@ start:
                textsize = c;
                n++;
        }while(again);
-       
+
        if(INITRND) {
                INITDAT = rnd(c, INITRND);
                if(INITDAT != idat) {
@@ -1109,6 +1109,15 @@ found:
                }
                break;
 
+       case Zcallcon:
+               v = p->to.offset - p->pc - 5;
+               *andptr++ = op;
+               *andptr++ = v;
+               *andptr++ = v>>8;
+               *andptr++ = v>>16;
+               *andptr++ = v>>24;
+               break;
+
        case Zjmp:
                q = p->pcond;
                if(q) {