glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace badd/uind with vector

Browse Source 
vector instruction now used for array referencing.  I had overlooked it.
Also, minor cleanup.
This commit is contained in:
rswier
2016-03-18 01:33:47 -04:00
parent b8b1ac5d95
commit c35b1e2add
2 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/other/b.b
+3 -4
View File
@@ -20,7 +20,7 @@
*/ */
main() { main() {
extrn symtab, eof, ns, nerror; extrn symtab, eof, ns;
while (!eof) { while (!eof) {
ns = symtab + 51; ns = symtab + 51;
@@ -30,7 +30,7 @@ main() {
} }
lookup() { lookup() {
extrn symtab, symbuf, eof, ns, nerror; extrn symtab, symbuf, eof, ns;
auto np, sp, rp; auto np, sp, rp;
rp = symtab; rp = symtab;
@@ -368,8 +368,7 @@ loop:
expr(15); expr(15);
if (symbol() != 5) if (symbol() != 5)
error('[]'); error('[]');
gen('b',12); /* badd */ gen('n',4); /* vector */
gen('u',3); /* uind */
goto loop; goto loop;
} }
if (o==6) { /* ( */ if (o==6) { /* ( */
tools/b.c
+3 -4
View File
@@ -53,7 +53,7 @@ xflush() {
#define flush xflush #define flush xflush
main(int argc, char **argv) { main(int argc, char **argv) {
extern symtab[], eof, *ns, nerror; extern symtab[], eof, *ns;
extern fin, fout; extern fin, fout;
if (argc > 1) { if (argc > 1) {
@@ -77,7 +77,7 @@ main(int argc, char **argv) {
} }
int *lookup() { int *lookup() {
extern symtab[], symbuf[], eof, *ns, nerror; extern symtab[], symbuf[], eof, *ns;
auto *np, *sp, *rp; auto *np, *sp, *rp;
rp = symtab; rp = symtab;
@@ -415,8 +415,7 @@ loop:
expr(15); expr(15);
if (symbol() != 5) if (symbol() != 5)
error('[]'); error('[]');
gen('b',12); /* badd */ gen('n',4); /* vector */
gen('u',3); /* uind */
goto loop; goto loop;
} }
if (o==6) { /* ( */ if (o==6) { /* ( */