d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Merge pull request #44 from kernigh/kernigh-pr-as

Browse source 
mach/proto/as: allow more tokens
This commit is contained in:
David Given 2017-01-18 23:33:40 +01:00 committed by GitHub
parent 1a5c595a12 f705339f86
commit d7df126730
4 changed files with 101 additions and 75 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
mach/proto/as/comm0.h
View file

@ -8,7 +8,21 @@
* All preprocessor based options/constants/functions
*/
#include <stdint.h>
#ifdef _include
_include <ctype.h>
_include <signal.h>
_include <stdint.h>
_include <stdio.h>
_include <stdlib.h>
_include <string.h>
#else
#include <ctype.h>
#include <signal.h>
#include <stdint.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#endif
/* ========== ON/OFF options (use #define in mach0.c) ========== */
@ -80,23 +94,16 @@ separate linker only possible if relocation info produced
/* ========== Machine independent type declarations ========== */
#ifdef _include
_include <stdlib.h>
_include <stdio.h>
_include <string.h>
_include <ctype.h>
_include <signal.h>
#else
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <signal.h>
#ifdef ASLD
_include "arch.h"
#endif
_include "out.h"
#else
#ifdef ASLD
#include "arch.h"
#endif
#include "out.h"
#endif
#if DEBUG == 0
#define assert(ex) /* nothing */
@ -265,6 +272,3 @@ typedef struct sect_t sect_t;
#define MACHREL_BWR (0)
#endif
#endif
extern FILE *fopen(); /* some systems don't have this in stdio.h */

33
mach/proto/as/comm1.h
View file

@ -104,21 +104,28 @@ extern struct outhead outhead;
extern int curr_token;
/* forward function declarations */
/* comm5.c */
int yylex(void);
void putval(int);
int getval(int);
int nextchar(void);
#ifdef ASLD
extern char *readident();
char *readident(int);
#endif
extern char *remember();
extern item_t *fb_shift();
extern item_t *fb_alloc();
extern item_t *item_alloc();
extern item_t *item_search();
extern valu_t load();
extern FILE *ffcreat();
extern FILE *fftemp();
extern void fatal(const char* s, ...);
extern void serror(const char* s, ...);
extern void warning(const char* s, ...);
int hash(char *);
item_t *item_search(char *);
void item_insert(item_t *, int);
item_t *item_alloc(int);
item_t *fb_alloc(int);
item_t *fb_shift(int);
/* comm7.c */
valu_t load();
char *remember();
FILE *ffcreat();
FILE *fftemp();
void fatal(const char *, ...);
void serror(const char *, ...);
void warning(const char *, ...);
/* ========== Machine dependent C declarations ========== */

105
mach/proto/as/comm5.c
View file

@ -11,11 +11,18 @@
extern YYSTYPE yylval;
void putval();
static void readcode(int);
static int induo(int);
static int inident(int);
static int innumber(int);
static int instring(int);
static int inescape(void);
static int infbsym(char *);
yylex()
int
yylex(void)
{
register c;
int c, c0, c1;
if (pass == PASS_1) {
/* scan the input file */
@ -52,32 +59,37 @@ yylex()
/* produce the intermediate token file */
if (c <= 0)
return(0);
if (c <= 127)
if (c < 256) {
putc(c, tempfile);
else
putc(0, tempfile);
} else {
putval(c);
}
} else {
/* read from intermediate token file */
c = getc(tempfile);
if (c == EOF)
c0 = getc(tempfile);
if (c0 == EOF)
return(0);
if (c > 127) {
c += 128;
c1 = getc(tempfile);
if (c1 == EOF)
return(0);
c = c0 + (c1 << 8);
if (c >= 256)
c = getval(c);
}
}
curr_token = c;
return(c);
}
void
putval(c)
putval(int c)
{
register valu_t v;
register n = 0;
register char *p = 0;
assert(c >= 256 && c < 256+128);
assert(c == (c & 0xffff));
switch (c) {
case CODE1:
n = 1; goto putnum;
@ -92,9 +104,11 @@ putval(c)
break;
v >>= 8;
}
assert(n <= 4);
c = NUMBER0 + n;
putnum:
putc(c-128, tempfile);
putc(c, tempfile);
putc(c >> 8, tempfile);
v = yylval.y_valu;
while (--n >= 0)
putc((int) (v >> (n*8)), tempfile);
@ -110,14 +124,15 @@ putval(c)
#endif
case STRING:
v = stringlen;
putc(c-128, tempfile);
putc(c, tempfile);
putc(c >> 8, tempfile);
for (n = 0; n < sizeof(v); n++) {
if (v == 0)
break;
v >>= 8;
}
c = NUMBER0 + n;
putc(c-128, tempfile);
assert(n <= 4);
putc(n, tempfile);
v = stringlen;
while (--n >= 0)
putc((int) (v >> (n*8)), tempfile);
@ -139,12 +154,14 @@ putval(c)
n = sizeof(word_t);
p = (char *) &yylval.y_word; break;
}
putc(c-128, tempfile);
putc(c, tempfile);
putc(c >> 8, tempfile);
while (--n >= 0)
putc(*p++, tempfile);
}
getval(c)
int
getval(int c)
{
register n = 0;
register valu_t v;
@ -185,7 +202,7 @@ getval(c)
p = (char *) &yylval.y_strp; break;
#endif
case STRING:
getval(getc(tempfile)+128);
getval(getc(tempfile)+NUMBER0);
stringlen = n = yylval.y_valu;
p = stringbuf;
p[n] = '\0'; break;
@ -209,7 +226,8 @@ getval(c)
/* ---------- lexical scan in pass 1 ---------- */
nextchar()
int
nextchar(void)
{
register c;
@ -233,7 +251,8 @@ nextchar()
return(c);
}
readcode(n)
static void
readcode(int n)
{
register c;
@ -252,8 +271,8 @@ readcode(n)
} while (--n);
}
induo(c)
register c;
static int
induo(int c)
{
static short duo[] = {
('='<<8) | '=', OP_EQ,
@ -277,8 +296,8 @@ register c;
static char name[NAMEMAX+1];
inident(c)
register c;
static int
inident(int c)
{
register char *p = name;
register item_t *ip;
@ -309,8 +328,7 @@ register c;
#ifdef ASLD
char *
readident(c)
register c;
readident(int c)
{
register n = NAMEMAX;
register char *p = name;
@ -326,8 +344,8 @@ register c;
}
#endif
innumber(c)
register c;
static int
innumber(int c)
{
register char *p;
register radix;
@ -373,7 +391,8 @@ register c;
return(NUMBER);
}
instring(termc)
static int
instring(int termc)
{
register char *p;
register c;
@ -412,7 +431,8 @@ instring(termc)
return(STRING);
}
inescape()
static int
inescape(void)
{
register c, j, r;
@ -442,8 +462,8 @@ inescape()
return(c);
}
infbsym(p)
register char *p;
static int
infbsym(char *p)
{
register lab;
register item_t *ip;
@ -469,8 +489,8 @@ ok:
return(FBSYM);
}
hash(p)
register char *p;
int
hash(char *p)
{
register unsigned short h;
register c;
@ -484,8 +504,7 @@ register char *p;
}
item_t *
item_search(p)
char *p;
item_search(char *p)
{
register h;
register item_t *ip;
@ -503,15 +522,15 @@ done:
return(ip);
}
item_insert(ip, h)
item_t *ip;
void
item_insert(item_t *ip, int h)
{
ip->i_next = hashtab[h];
hashtab[h] = ip;
}
item_t *
item_alloc(typ)
item_alloc(int typ)
{
register item_t *ip;
static nleft = 0;
@ -532,8 +551,7 @@ item_alloc(typ)
}
item_t *
fb_alloc(lab)
register lab;
fb_alloc(int lab)
{
register item_t *ip, *p;
@ -548,8 +566,7 @@ register lab;
}
item_t *
fb_shift(lab)
register lab;
fb_shift(int lab)
{
register item_t *ip;

2
mach/proto/as/comm6.c
View file

@ -354,8 +354,6 @@ valu_t valu;
outname.on_type = type;
outname.on_desc = desc;
outname.on_valu = valu;
if (sizeof(valu) != sizeof(long))
outname.on_valu &= ~(((0xFFFFFFFF)<<(4*sizeof(valu_t)))<<(4*sizeof(valu_t)));
wr_name(&outname, 1);
}