Rename asm
to emit
, add __emit
as an alternate keyword.
This commit is contained in:
parent
ea8a77577f
commit
6119df8f2b
@ -311,7 +311,7 @@ typedef struct s_valuepair {
|
||||
*/
|
||||
#define tFIRST 256 /* value of first multi-character operator */
|
||||
#define tMIDDLE 280 /* value of last multi-character operator */
|
||||
#define tLAST 330 /* value of last multi-character match-able token */
|
||||
#define tLAST 331 /* value of last multi-character match-able token */
|
||||
/* multi-character operators */
|
||||
#define taMULT 256 /* *= */
|
||||
#define taDIV 257 /* /= */
|
||||
@ -339,68 +339,69 @@ typedef struct s_valuepair {
|
||||
#define tDBLDOT 279 /* .. */
|
||||
#define tDBLCOLON 280 /* :: */
|
||||
/* reserved words (statements) */
|
||||
#define tASM 281
|
||||
#define tASSERT 282
|
||||
#define tBEGIN 283
|
||||
#define tBREAK 284
|
||||
#define tCASE 285
|
||||
#define tCHAR 286
|
||||
#define tCONST 287
|
||||
#define tCONTINUE 288
|
||||
#define tDEFAULT 289
|
||||
#define tDEFINED 290
|
||||
#define tDO 291
|
||||
#define tELSE 292
|
||||
#define tEND 293
|
||||
#define tENUM 294
|
||||
#define tEXIT 295
|
||||
#define tFOR 296
|
||||
#define tFORWARD 297
|
||||
#define tGOTO 298
|
||||
#define tIF 299
|
||||
#define tNATIVE 300
|
||||
#define tNEW 301
|
||||
#define tOPERATOR 302
|
||||
#define tPUBLIC 303
|
||||
#define tRETURN 304
|
||||
#define tSIZEOF 305
|
||||
#define tSLEEP 306
|
||||
#define tSTATE 307
|
||||
#define tSTATIC 308
|
||||
#define tSTOCK 309
|
||||
#define tSWITCH 310
|
||||
#define tTAGOF 311
|
||||
#define tTHEN 312
|
||||
#define tWHILE 313
|
||||
#define tASSERT 281
|
||||
#define tBEGIN 282
|
||||
#define tBREAK 283
|
||||
#define tCASE 284
|
||||
#define tCHAR 285
|
||||
#define tCONST 286
|
||||
#define tCONTINUE 287
|
||||
#define tDEFAULT 288
|
||||
#define tDEFINED 289
|
||||
#define tDO 290
|
||||
#define tELSE 291
|
||||
#define tEMIT 292
|
||||
#define t__EMIT 293
|
||||
#define tEND 294
|
||||
#define tENUM 295
|
||||
#define tEXIT 296
|
||||
#define tFOR 297
|
||||
#define tFORWARD 298
|
||||
#define tGOTO 299
|
||||
#define tIF 300
|
||||
#define tNATIVE 301
|
||||
#define tNEW 302
|
||||
#define tOPERATOR 303
|
||||
#define tPUBLIC 304
|
||||
#define tRETURN 305
|
||||
#define tSIZEOF 306
|
||||
#define tSLEEP 307
|
||||
#define tSTATE 308
|
||||
#define tSTATIC 309
|
||||
#define tSTOCK 310
|
||||
#define tSWITCH 311
|
||||
#define tTAGOF 312
|
||||
#define tTHEN 313
|
||||
#define tWHILE 314
|
||||
/* compiler directives */
|
||||
#define tpASSERT 314 /* #assert */
|
||||
#define tpDEFINE 315
|
||||
#define tpELSE 316 /* #else */
|
||||
#define tpELSEIF 317 /* #elseif */
|
||||
#define tpEMIT 318
|
||||
#define tpENDIF 319
|
||||
#define tpENDINPUT 320
|
||||
#define tpENDSCRPT 321
|
||||
#define tpERROR 322
|
||||
#define tpFILE 323
|
||||
#define tpIF 324 /* #if */
|
||||
#define tINCLUDE 325
|
||||
#define tpLINE 326
|
||||
#define tpPRAGMA 327
|
||||
#define tpTRYINCLUDE 328
|
||||
#define tpUNDEF 329
|
||||
#define tpWARNING 330
|
||||
#define tpASSERT 315 /* #assert */
|
||||
#define tpDEFINE 316
|
||||
#define tpELSE 317 /* #else */
|
||||
#define tpELSEIF 318 /* #elseif */
|
||||
#define tpEMIT 319
|
||||
#define tpENDIF 320
|
||||
#define tpENDINPUT 321
|
||||
#define tpENDSCRPT 322
|
||||
#define tpERROR 323
|
||||
#define tpFILE 324
|
||||
#define tpIF 325 /* #if */
|
||||
#define tINCLUDE 326
|
||||
#define tpLINE 327
|
||||
#define tpPRAGMA 328
|
||||
#define tpTRYINCLUDE 329
|
||||
#define tpUNDEF 330
|
||||
#define tpWARNING 331
|
||||
/* semicolon is a special case, because it can be optional */
|
||||
#define tTERM 331 /* semicolon or newline */
|
||||
#define tENDEXPR 332 /* forced end of expression */
|
||||
#define tTERM 332 /* semicolon or newline */
|
||||
#define tENDEXPR 333 /* forced end of expression */
|
||||
/* other recognized tokens */
|
||||
#define tNUMBER 333 /* integer number */
|
||||
#define tRATIONAL 334 /* rational number */
|
||||
#define tSYMBOL 335
|
||||
#define tLABEL 336
|
||||
#define tSTRING 337
|
||||
#define tEXPR 338 /* for assigment to "lastst" only (see SC1.C) */
|
||||
#define tENDLESS 339 /* endless loop, for assigment to "lastst" only */
|
||||
#define tNUMBER 334 /* integer number */
|
||||
#define tRATIONAL 335 /* rational number */
|
||||
#define tSYMBOL 336
|
||||
#define tLABEL 337
|
||||
#define tSTRING 338
|
||||
#define tEXPR 339 /* for assigment to "lastst" only (see SC1.C) */
|
||||
#define tENDLESS 340 /* endless loop, for assigment to "lastst" only */
|
||||
|
||||
/* (reversed) evaluation of staging buffer */
|
||||
#define sSTARTREORDER 0x01
|
||||
@ -552,7 +553,7 @@ SC_FUNC symbol *add_builtin_constant(char *name,cell val,int vclass,int tag);
|
||||
SC_FUNC symbol *add_builtin_string_constant(char *name,const char *val,int vclass);
|
||||
SC_FUNC void exporttag(int tag);
|
||||
SC_FUNC void sc_attachdocumentation(symbol *sym);
|
||||
SC_FUNC void asm_parse_line(void);
|
||||
SC_FUNC void emit_parse_line(void);
|
||||
|
||||
/* function prototypes in SC2.C */
|
||||
#define PUSHSTK_P(v) { stkitem s_; s_.pv=(v); pushstk(s_); }
|
||||
@ -855,7 +856,7 @@ SC_VDECL FILE *outf; /* file written to */
|
||||
|
||||
SC_VDECL jmp_buf errbuf; /* target of longjmp() on a fatal error */
|
||||
|
||||
SC_VDECL int asm_block_parsing;
|
||||
SC_VDECL int emit_block_parsing;
|
||||
|
||||
#if !defined SC_LIGHT
|
||||
SC_VDECL int sc_makereport; /* generate a cross-reference report */
|
||||
|
@ -137,14 +137,14 @@ static void dostate(void);
|
||||
static void addwhile(int *ptr);
|
||||
static void delwhile(void);
|
||||
static int *readwhile(void);
|
||||
static void doasm(void);
|
||||
static void doemit(void);
|
||||
|
||||
typedef void (OPHANDLER_CALL *OPCODE_PROC)(char *name);
|
||||
typedef struct {
|
||||
cell opcode;
|
||||
char *name;
|
||||
OPCODE_PROC func;
|
||||
} ASM_OPCODE;
|
||||
} EMIT_OPCODE;
|
||||
|
||||
enum {
|
||||
TEST_PLAIN, /* no parentheses */
|
||||
@ -886,7 +886,7 @@ static void resetglobals(void)
|
||||
sc_curstates=0;
|
||||
pc_memflags=0;
|
||||
pc_naked=FALSE;
|
||||
asm_block_parsing=FALSE;
|
||||
emit_block_parsing=FALSE;
|
||||
}
|
||||
|
||||
static void initglobals(void)
|
||||
@ -1626,10 +1626,11 @@ static void parse(void)
|
||||
case 0:
|
||||
/* ignore zero's */
|
||||
break;
|
||||
case tASM:
|
||||
asm_block_parsing=FALSE;
|
||||
case tEMIT:
|
||||
case t__EMIT:
|
||||
emit_block_parsing=FALSE;
|
||||
lex(&val,&str);
|
||||
asm_parse_line();
|
||||
emit_parse_line();
|
||||
break;
|
||||
case tNEW:
|
||||
if (getclassspec(tok,&fpublic,&fstatic,&fstock,&fconst))
|
||||
@ -5065,11 +5066,11 @@ static void statement(int *lastindent,int allow_decl)
|
||||
errorset(sRESET,0);
|
||||
|
||||
tok=lex(&val,&st);
|
||||
if (tok==tASM) {
|
||||
doasm();
|
||||
if (tok==tEMIT || tok==t__EMIT) {
|
||||
doemit();
|
||||
return;
|
||||
} else if (asm_block_parsing) {
|
||||
asm_parse_line();
|
||||
} else if (emit_block_parsing) {
|
||||
emit_parse_line();
|
||||
return;
|
||||
}
|
||||
if (tok!='{') {
|
||||
@ -5803,7 +5804,7 @@ static void check_empty(const unsigned char *lptr)
|
||||
error(38); /* extra characters on line */
|
||||
}
|
||||
|
||||
static void asm_invalid_token(int need_token, int current_token)
|
||||
static void emit_invalid_token(int need_token, int current_token)
|
||||
{
|
||||
char s[sNAMEMAX+ 2];
|
||||
extern char *sc_tokens[];
|
||||
@ -5816,7 +5817,7 @@ static void asm_invalid_token(int need_token, int current_token)
|
||||
error(1,sc_tokens[tSYMBOL-tFIRST],s);
|
||||
}
|
||||
|
||||
static void asm_param_num(char *name, ucell *p, int size)
|
||||
static void emit_param_num(char *name, ucell *p, int size)
|
||||
{
|
||||
char *str;
|
||||
cell val;
|
||||
@ -5877,7 +5878,7 @@ static void asm_param_num(char *name, ucell *p, int size)
|
||||
} while (++curp < size);
|
||||
}
|
||||
|
||||
static void asm_param_data(char *name, ucell *p, int size)
|
||||
static void emit_param_data(char *name, ucell *p, int size)
|
||||
{
|
||||
cell val;
|
||||
char *str;
|
||||
@ -5889,7 +5890,7 @@ static void asm_param_data(char *name, ucell *p, int size)
|
||||
do {
|
||||
tok=lex(&val,&str);
|
||||
if (tok!=tSYMBOL) {
|
||||
asm_invalid_token(tSYMBOL, tok);
|
||||
emit_invalid_token(tSYMBOL, tok);
|
||||
} /* if */
|
||||
sym=findloc(str);
|
||||
if (sym==NULL || sym->vclass!=sSTATIC)
|
||||
@ -5906,33 +5907,33 @@ static void asm_param_data(char *name, ucell *p, int size)
|
||||
} while (++curp < size);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_noop(char *name)
|
||||
static void OPHANDLER_CALL emit_noop(char *name)
|
||||
{
|
||||
(void)name;
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm0(char *name)
|
||||
static void OPHANDLER_CALL emit_parm0(char *name)
|
||||
{
|
||||
outinstr(name, 0, NULL);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm1_num(char *name)
|
||||
static void OPHANDLER_CALL emit_parm1_num(char *name)
|
||||
{
|
||||
ucell p[1];
|
||||
|
||||
asm_param_num(name, p, arraysize(p));
|
||||
emit_param_num(name, p, arraysize(p));
|
||||
outinstr(name,arraysize(p),p);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm1_gvar(char *name)
|
||||
static void OPHANDLER_CALL emit_parm1_gvar(char *name)
|
||||
{
|
||||
ucell p[1];
|
||||
|
||||
asm_param_data(name, p, arraysize(p));
|
||||
emit_param_data(name, p, arraysize(p));
|
||||
outinstr(name,arraysize(p),p);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm1_lbl(char *name)
|
||||
static void OPHANDLER_CALL emit_parm1_lbl(char *name)
|
||||
{
|
||||
char *str;
|
||||
cell val;
|
||||
@ -5941,30 +5942,30 @@ static void OPHANDLER_CALL asm_parm1_lbl(char *name)
|
||||
|
||||
tok=lex(&val,&str);
|
||||
if (tok!=tSYMBOL) {
|
||||
asm_invalid_token(tSYMBOL, tok);
|
||||
emit_invalid_token(tSYMBOL, tok);
|
||||
} /* if */
|
||||
sym=fetchlab(str);
|
||||
sym->usage|=uREAD;
|
||||
outinstr(name,1,&sym->addr);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm2_num(char *name)
|
||||
static void OPHANDLER_CALL emit_parm2_num(char *name)
|
||||
{
|
||||
ucell p[2];
|
||||
|
||||
asm_param_num(name, p, arraysize(p));
|
||||
emit_param_num(name, p, arraysize(p));
|
||||
outinstr(name,arraysize(p),p);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm2_gvar(char *name)
|
||||
static void OPHANDLER_CALL emit_parm2_gvar(char *name)
|
||||
{
|
||||
ucell p[2];
|
||||
|
||||
asm_param_data(name, p, arraysize(p));
|
||||
emit_param_data(name, p, arraysize(p));
|
||||
outinstr(name,arraysize(p),p);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm2_gvar_num(char *name)
|
||||
static void OPHANDLER_CALL emit_parm2_gvar_num(char *name)
|
||||
{
|
||||
cell val;
|
||||
char *str;
|
||||
@ -5976,7 +5977,7 @@ static void OPHANDLER_CALL asm_parm2_gvar_num(char *name)
|
||||
|
||||
tok=lex(&val,&str);
|
||||
if (tok!=tSYMBOL) {
|
||||
asm_invalid_token(tSYMBOL, tok);
|
||||
emit_invalid_token(tSYMBOL, tok);
|
||||
} /* if */
|
||||
sym=findloc(str);
|
||||
if (sym==NULL || sym->vclass!=sSTATIC)
|
||||
@ -5991,62 +5992,62 @@ static void OPHANDLER_CALL asm_parm2_gvar_num(char *name)
|
||||
p[0]=sym->addr;
|
||||
tok=lex(&val,&str);
|
||||
if (tok!=tNUMBER) {
|
||||
asm_invalid_token(tNUMBER, tok);
|
||||
emit_invalid_token(tNUMBER, tok);
|
||||
} /* if */
|
||||
p[1]=val;
|
||||
outinstr(name,arraysize(p),p);
|
||||
} /* if */
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm3_num(char *name)
|
||||
static void OPHANDLER_CALL emit_parm3_num(char *name)
|
||||
{
|
||||
ucell p[3];
|
||||
|
||||
asm_param_num(name, p, arraysize(p));
|
||||
emit_param_num(name, p, arraysize(p));
|
||||
outinstr(name,arraysize(p),p);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm3_gvar(char *name)
|
||||
static void OPHANDLER_CALL emit_parm3_gvar(char *name)
|
||||
{
|
||||
ucell p[3];
|
||||
|
||||
asm_param_data(name, p, arraysize(p));
|
||||
emit_param_data(name, p, arraysize(p));
|
||||
outinstr(name,arraysize(p),p);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm4_num(char *name)
|
||||
static void OPHANDLER_CALL emit_parm4_num(char *name)
|
||||
{
|
||||
ucell p[4];
|
||||
|
||||
asm_param_num(name, p, arraysize(p));
|
||||
emit_param_num(name, p, arraysize(p));
|
||||
outinstr(name,arraysize(p),p);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm4_gvar(char *name)
|
||||
static void OPHANDLER_CALL emit_parm4_gvar(char *name)
|
||||
{
|
||||
ucell p[4];
|
||||
|
||||
asm_param_data(name, p, arraysize(p));
|
||||
emit_param_data(name, p, arraysize(p));
|
||||
outinstr(name,arraysize(p),p);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm5_num(char *name)
|
||||
static void OPHANDLER_CALL emit_parm5_num(char *name)
|
||||
{
|
||||
ucell p[5];
|
||||
|
||||
asm_param_num(name, p, arraysize(p));
|
||||
emit_param_num(name, p, arraysize(p));
|
||||
outinstr(name,arraysize(p),p);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_parm5_gvar(char *name)
|
||||
static void OPHANDLER_CALL emit_parm5_gvar(char *name)
|
||||
{
|
||||
ucell p[5];
|
||||
|
||||
asm_param_data(name, p, arraysize(p));
|
||||
emit_param_data(name, p, arraysize(p));
|
||||
outinstr(name,arraysize(p),p);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_do_case(char *name)
|
||||
static void OPHANDLER_CALL emit_do_case(char *name)
|
||||
{
|
||||
/* case <value> <label> */
|
||||
cell val;
|
||||
@ -6061,12 +6062,12 @@ static void OPHANDLER_CALL asm_do_case(char *name)
|
||||
|
||||
tok=lex(&val,&str);
|
||||
if (tok!=tNUMBER) {
|
||||
asm_invalid_token(tSYMBOL, tok);
|
||||
emit_invalid_token(tSYMBOL, tok);
|
||||
} /* if */
|
||||
outval(val,FALSE);
|
||||
tok=lex(&val,&str);
|
||||
if (tok!=tSYMBOL) {
|
||||
asm_invalid_token(tSYMBOL, tok);
|
||||
emit_invalid_token(tSYMBOL, tok);
|
||||
} /* if */
|
||||
sym=fetchlab(str);
|
||||
if (sym==NULL) {
|
||||
@ -6077,7 +6078,7 @@ static void OPHANDLER_CALL asm_do_case(char *name)
|
||||
code_idx+=opargs(2)+opcodes(0);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_do_lodb_strb(char *name)
|
||||
static void OPHANDLER_CALL emit_do_lodb_strb(char *name)
|
||||
{
|
||||
ucell val;
|
||||
char *str;
|
||||
@ -6086,7 +6087,7 @@ static void OPHANDLER_CALL asm_do_lodb_strb(char *name)
|
||||
|
||||
tok=lex(&val,&str);
|
||||
if (tok!=tNUMBER) {
|
||||
asm_invalid_token(tNUMBER, tok);
|
||||
emit_invalid_token(tNUMBER, tok);
|
||||
} /* if */
|
||||
if (val!=1 && val!=2 && val!=4) {
|
||||
error(50); /* invalid range */
|
||||
@ -6094,7 +6095,7 @@ static void OPHANDLER_CALL asm_do_lodb_strb(char *name)
|
||||
outinstr(name,1,&val);
|
||||
}
|
||||
|
||||
static void OPHANDLER_CALL asm_do_call(char *name)
|
||||
static void OPHANDLER_CALL emit_do_call(char *name)
|
||||
{
|
||||
cell val;
|
||||
char *str;
|
||||
@ -6104,7 +6105,7 @@ static void OPHANDLER_CALL asm_do_call(char *name)
|
||||
|
||||
tok=lex(&val,&str);
|
||||
if (tok!=tSYMBOL) {
|
||||
asm_invalid_token(tSYMBOL, tok);
|
||||
emit_invalid_token(tSYMBOL, tok);
|
||||
} /* if */
|
||||
sym=findglb(str,sGLOBAL);
|
||||
if (sym==NULL) {
|
||||
@ -6121,169 +6122,169 @@ static void OPHANDLER_CALL asm_do_call(char *name)
|
||||
}
|
||||
}
|
||||
|
||||
static ASM_OPCODE asm_opcodelist[] = {
|
||||
{ 0, NULL, asm_noop },
|
||||
{ 78, "add", asm_parm0 },
|
||||
{ 87, "add.c", asm_parm1_num },
|
||||
{ 14, "addr.alt", asm_parm1_num },
|
||||
{ 13, "addr.pri", asm_parm1_num },
|
||||
{ 30, "align.alt", asm_parm1_num },
|
||||
{ 29, "align.pri", asm_parm1_num },
|
||||
{ 81, "and", asm_parm0 },
|
||||
{121, "bounds", asm_parm1_num },
|
||||
{137, "break", asm_parm0 },
|
||||
{ 49, "call", asm_do_call },
|
||||
{ 50, "call.pri", asm_parm0 },
|
||||
{ 0, "case", asm_do_case },
|
||||
{130, "casetbl", asm_parm0 },
|
||||
{118, "cmps", asm_parm1_num },
|
||||
{156, "const", asm_parm2_gvar_num },
|
||||
{ 12, "const.alt", asm_parm1_num },
|
||||
{ 11, "const.pri", asm_parm1_num },
|
||||
{157, "const.s", asm_parm2_num },
|
||||
{114, "dec", asm_parm1_gvar },
|
||||
{113, "dec.alt", asm_parm0 },
|
||||
{116, "dec.i", asm_parm0 },
|
||||
{112, "dec.pri", asm_parm0 },
|
||||
{115, "dec.s", asm_parm1_num },
|
||||
{ 95, "eq", asm_parm0 },
|
||||
{106, "eq.c.alt", asm_parm1_num },
|
||||
{105, "eq.c.pri", asm_parm1_num },
|
||||
static EMIT_OPCODE emit_opcodelist[] = {
|
||||
{ 0, NULL, emit_noop },
|
||||
{ 78, "add", emit_parm0 },
|
||||
{ 87, "add.c", emit_parm1_num },
|
||||
{ 14, "addr.alt", emit_parm1_num },
|
||||
{ 13, "addr.pri", emit_parm1_num },
|
||||
{ 30, "align.alt", emit_parm1_num },
|
||||
{ 29, "align.pri", emit_parm1_num },
|
||||
{ 81, "and", emit_parm0 },
|
||||
{121, "bounds", emit_parm1_num },
|
||||
{137, "break", emit_parm0 },
|
||||
{ 49, "call", emit_do_call },
|
||||
{ 50, "call.pri", emit_parm0 },
|
||||
{ 0, "case", emit_do_case },
|
||||
{130, "casetbl", emit_parm0 },
|
||||
{118, "cmps", emit_parm1_num },
|
||||
{156, "const", emit_parm2_gvar_num },
|
||||
{ 12, "const.alt", emit_parm1_num },
|
||||
{ 11, "const.pri", emit_parm1_num },
|
||||
{157, "const.s", emit_parm2_num },
|
||||
{114, "dec", emit_parm1_gvar },
|
||||
{113, "dec.alt", emit_parm0 },
|
||||
{116, "dec.i", emit_parm0 },
|
||||
{112, "dec.pri", emit_parm0 },
|
||||
{115, "dec.s", emit_parm1_num },
|
||||
{ 95, "eq", emit_parm0 },
|
||||
{106, "eq.c.alt", emit_parm1_num },
|
||||
{105, "eq.c.pri", emit_parm1_num },
|
||||
/*{124, "file", do_file }, */
|
||||
{119, "fill", asm_parm1_num },
|
||||
{100, "geq", asm_parm0 },
|
||||
{ 99, "grtr", asm_parm0 },
|
||||
{120, "halt", asm_parm1_num },
|
||||
{ 45, "heap", asm_parm1_num },
|
||||
{ 27, "idxaddr", asm_parm0 },
|
||||
{ 28, "idxaddr.b", asm_parm1_num },
|
||||
{109, "inc", asm_parm1_gvar },
|
||||
{108, "inc.alt", asm_parm0 },
|
||||
{111, "inc.i", asm_parm0 },
|
||||
{107, "inc.pri", asm_parm0 },
|
||||
{110, "inc.s", asm_parm1_num },
|
||||
{ 86, "invert", asm_parm0 },
|
||||
{ 55, "jeq", asm_parm1_lbl },
|
||||
{ 60, "jgeq", asm_parm1_lbl },
|
||||
{ 59, "jgrtr", asm_parm1_lbl },
|
||||
{ 58, "jleq", asm_parm1_lbl },
|
||||
{ 57, "jless", asm_parm1_lbl },
|
||||
{ 56, "jneq", asm_parm1_lbl },
|
||||
{ 54, "jnz", asm_parm1_lbl },
|
||||
{ 52, "jrel", asm_parm1_num },
|
||||
{ 64, "jsgeq", asm_parm1_lbl },
|
||||
{ 63, "jsgrtr", asm_parm1_lbl },
|
||||
{ 62, "jsleq", asm_parm1_lbl },
|
||||
{ 61, "jsless", asm_parm1_lbl },
|
||||
{ 51, "jump", asm_parm1_lbl },
|
||||
{128, "jump.pri", asm_parm0 },
|
||||
{ 53, "jzer", asm_parm1_lbl },
|
||||
{ 31, "lctrl", asm_parm1_num },
|
||||
{ 98, "leq", asm_parm0 },
|
||||
{ 97, "less", asm_parm0 },
|
||||
{ 25, "lidx", asm_parm0 },
|
||||
{ 26, "lidx.b", asm_parm1_num },
|
||||
/*{125, "line", asm_parm2_num }, */
|
||||
{ 2, "load.alt", asm_parm1_gvar },
|
||||
{154, "load.both", asm_parm2_gvar },
|
||||
{ 9, "load.i", asm_parm0 },
|
||||
{ 1, "load.pri", asm_parm1_gvar },
|
||||
{ 4, "load.s.alt", asm_parm1_num },
|
||||
{155, "load.s.both",asm_parm2_num },
|
||||
{ 3, "load.s.pri", asm_parm1_num },
|
||||
{ 10, "lodb.i", asm_do_lodb_strb },
|
||||
{ 6, "lref.alt", asm_parm1_gvar },
|
||||
{ 5, "lref.pri", asm_parm1_gvar },
|
||||
{ 8, "lref.s.alt", asm_parm1_num },
|
||||
{ 7, "lref.s.pri", asm_parm1_num },
|
||||
{ 34, "move.alt", asm_parm0 },
|
||||
{ 33, "move.pri", asm_parm0 },
|
||||
{117, "movs", asm_parm1_num },
|
||||
{ 85, "neg", asm_parm0 },
|
||||
{ 96, "neq", asm_parm0 },
|
||||
{134, "nop", asm_parm0 },
|
||||
{ 84, "not", asm_parm0 },
|
||||
{ 82, "or", asm_parm0 },
|
||||
{ 43, "pop.alt", asm_parm0 },
|
||||
{ 42, "pop.pri", asm_parm0 },
|
||||
{ 46, "proc", asm_parm0 },
|
||||
{ 40, "push", asm_parm1_gvar },
|
||||
{133, "push.adr", asm_parm1_num },
|
||||
{ 37, "push.alt", asm_parm0 },
|
||||
{ 39, "push.c", asm_parm1_num },
|
||||
{ 36, "push.pri", asm_parm0 },
|
||||
{ 38, "push.r", asm_parm1_num },
|
||||
{ 41, "push.s", asm_parm1_num },
|
||||
{139, "push2", asm_parm2_gvar },
|
||||
{141, "push2.adr", asm_parm2_num },
|
||||
{138, "push2.c", asm_parm2_num },
|
||||
{140, "push2.s", asm_parm2_num },
|
||||
{143, "push3", asm_parm3_gvar },
|
||||
{145, "push3.adr", asm_parm3_num },
|
||||
{142, "push3.c", asm_parm3_num },
|
||||
{144, "push3.s", asm_parm3_num },
|
||||
{147, "push4", asm_parm4_gvar },
|
||||
{149, "push4.adr", asm_parm4_num },
|
||||
{146, "push4.c", asm_parm4_num },
|
||||
{148, "push4.s", asm_parm4_num },
|
||||
{151, "push5", asm_parm5_gvar },
|
||||
{153, "push5.adr", asm_parm5_num },
|
||||
{150, "push5.c", asm_parm5_num },
|
||||
{152, "push5.s", asm_parm5_num },
|
||||
{ 47, "ret", asm_parm0 },
|
||||
{ 48, "retn", asm_parm0 },
|
||||
{ 32, "sctrl", asm_parm1_num },
|
||||
{ 73, "sdiv", asm_parm0 },
|
||||
{ 74, "sdiv.alt", asm_parm0 },
|
||||
{104, "sgeq", asm_parm0 },
|
||||
{103, "sgrtr", asm_parm0 },
|
||||
{ 65, "shl", asm_parm0 },
|
||||
{ 69, "shl.c.alt", asm_parm1_num },
|
||||
{ 68, "shl.c.pri", asm_parm1_num },
|
||||
{ 66, "shr", asm_parm0 },
|
||||
{ 71, "shr.c.alt", asm_parm1_num },
|
||||
{ 70, "shr.c.pri", asm_parm1_num },
|
||||
{ 94, "sign.alt", asm_parm0 },
|
||||
{ 93, "sign.pri", asm_parm0 },
|
||||
{102, "sleq", asm_parm0 },
|
||||
{101, "sless", asm_parm0 },
|
||||
{ 72, "smul", asm_parm0 },
|
||||
{ 88, "smul.c", asm_parm1_num },
|
||||
/*{127, "srange", asm_parm2_num }, */
|
||||
{ 20, "sref.alt", asm_parm1_gvar },
|
||||
{ 19, "sref.pri", asm_parm1_gvar },
|
||||
{ 22, "sref.s.alt", asm_parm1_num },
|
||||
{ 21, "sref.s.pri", asm_parm1_num },
|
||||
{ 67, "sshr", asm_parm0 },
|
||||
{ 44, "stack", asm_parm1_num },
|
||||
{ 16, "stor.alt", asm_parm1_gvar },
|
||||
{ 23, "stor.i", asm_parm0 },
|
||||
{ 15, "stor.pri", asm_parm1_gvar },
|
||||
{ 18, "stor.s.alt", asm_parm1_num },
|
||||
{ 17, "stor.s.pri", asm_parm1_num },
|
||||
{ 24, "strb.i", asm_do_lodb_strb },
|
||||
{ 79, "sub", asm_parm0 },
|
||||
{ 80, "sub.alt", asm_parm0 },
|
||||
{132, "swap.alt", asm_parm0 },
|
||||
{131, "swap.pri", asm_parm0 },
|
||||
{129, "switch", asm_parm1_lbl },
|
||||
{119, "fill", emit_parm1_num },
|
||||
{100, "geq", emit_parm0 },
|
||||
{ 99, "grtr", emit_parm0 },
|
||||
{120, "halt", emit_parm1_num },
|
||||
{ 45, "heap", emit_parm1_num },
|
||||
{ 27, "idxaddr", emit_parm0 },
|
||||
{ 28, "idxaddr.b", emit_parm1_num },
|
||||
{109, "inc", emit_parm1_gvar },
|
||||
{108, "inc.alt", emit_parm0 },
|
||||
{111, "inc.i", emit_parm0 },
|
||||
{107, "inc.pri", emit_parm0 },
|
||||
{110, "inc.s", emit_parm1_num },
|
||||
{ 86, "invert", emit_parm0 },
|
||||
{ 55, "jeq", emit_parm1_lbl },
|
||||
{ 60, "jgeq", emit_parm1_lbl },
|
||||
{ 59, "jgrtr", emit_parm1_lbl },
|
||||
{ 58, "jleq", emit_parm1_lbl },
|
||||
{ 57, "jless", emit_parm1_lbl },
|
||||
{ 56, "jneq", emit_parm1_lbl },
|
||||
{ 54, "jnz", emit_parm1_lbl },
|
||||
{ 52, "jrel", emit_parm1_num },
|
||||
{ 64, "jsgeq", emit_parm1_lbl },
|
||||
{ 63, "jsgrtr", emit_parm1_lbl },
|
||||
{ 62, "jsleq", emit_parm1_lbl },
|
||||
{ 61, "jsless", emit_parm1_lbl },
|
||||
{ 51, "jump", emit_parm1_lbl },
|
||||
{128, "jump.pri", emit_parm0 },
|
||||
{ 53, "jzer", emit_parm1_lbl },
|
||||
{ 31, "lctrl", emit_parm1_num },
|
||||
{ 98, "leq", emit_parm0 },
|
||||
{ 97, "less", emit_parm0 },
|
||||
{ 25, "lidx", emit_parm0 },
|
||||
{ 26, "lidx.b", emit_parm1_num },
|
||||
/*{125, "line", emit_parm2_num }, */
|
||||
{ 2, "load.alt", emit_parm1_gvar },
|
||||
{154, "load.both", emit_parm2_gvar },
|
||||
{ 9, "load.i", emit_parm0 },
|
||||
{ 1, "load.pri", emit_parm1_gvar },
|
||||
{ 4, "load.s.alt", emit_parm1_num },
|
||||
{155, "load.s.both",emit_parm2_num },
|
||||
{ 3, "load.s.pri", emit_parm1_num },
|
||||
{ 10, "lodb.i", emit_do_lodb_strb },
|
||||
{ 6, "lref.alt", emit_parm1_gvar },
|
||||
{ 5, "lref.pri", emit_parm1_gvar },
|
||||
{ 8, "lref.s.alt", emit_parm1_num },
|
||||
{ 7, "lref.s.pri", emit_parm1_num },
|
||||
{ 34, "move.alt", emit_parm0 },
|
||||
{ 33, "move.pri", emit_parm0 },
|
||||
{117, "movs", emit_parm1_num },
|
||||
{ 85, "neg", emit_parm0 },
|
||||
{ 96, "neq", emit_parm0 },
|
||||
{134, "nop", emit_parm0 },
|
||||
{ 84, "not", emit_parm0 },
|
||||
{ 82, "or", emit_parm0 },
|
||||
{ 43, "pop.alt", emit_parm0 },
|
||||
{ 42, "pop.pri", emit_parm0 },
|
||||
{ 46, "proc", emit_parm0 },
|
||||
{ 40, "push", emit_parm1_gvar },
|
||||
{133, "push.adr", emit_parm1_num },
|
||||
{ 37, "push.alt", emit_parm0 },
|
||||
{ 39, "push.c", emit_parm1_num },
|
||||
{ 36, "push.pri", emit_parm0 },
|
||||
{ 38, "push.r", emit_parm1_num },
|
||||
{ 41, "push.s", emit_parm1_num },
|
||||
{139, "push2", emit_parm2_gvar },
|
||||
{141, "push2.adr", emit_parm2_num },
|
||||
{138, "push2.c", emit_parm2_num },
|
||||
{140, "push2.s", emit_parm2_num },
|
||||
{143, "push3", emit_parm3_gvar },
|
||||
{145, "push3.adr", emit_parm3_num },
|
||||
{142, "push3.c", emit_parm3_num },
|
||||
{144, "push3.s", emit_parm3_num },
|
||||
{147, "push4", emit_parm4_gvar },
|
||||
{149, "push4.adr", emit_parm4_num },
|
||||
{146, "push4.c", emit_parm4_num },
|
||||
{148, "push4.s", emit_parm4_num },
|
||||
{151, "push5", emit_parm5_gvar },
|
||||
{153, "push5.adr", emit_parm5_num },
|
||||
{150, "push5.c", emit_parm5_num },
|
||||
{152, "push5.s", emit_parm5_num },
|
||||
{ 47, "ret", emit_parm0 },
|
||||
{ 48, "retn", emit_parm0 },
|
||||
{ 32, "sctrl", emit_parm1_num },
|
||||
{ 73, "sdiv", emit_parm0 },
|
||||
{ 74, "sdiv.alt", emit_parm0 },
|
||||
{104, "sgeq", emit_parm0 },
|
||||
{103, "sgrtr", emit_parm0 },
|
||||
{ 65, "shl", emit_parm0 },
|
||||
{ 69, "shl.c.alt", emit_parm1_num },
|
||||
{ 68, "shl.c.pri", emit_parm1_num },
|
||||
{ 66, "shr", emit_parm0 },
|
||||
{ 71, "shr.c.alt", emit_parm1_num },
|
||||
{ 70, "shr.c.pri", emit_parm1_num },
|
||||
{ 94, "sign.alt", emit_parm0 },
|
||||
{ 93, "sign.pri", emit_parm0 },
|
||||
{102, "sleq", emit_parm0 },
|
||||
{101, "sless", emit_parm0 },
|
||||
{ 72, "smul", emit_parm0 },
|
||||
{ 88, "smul.c", emit_parm1_num },
|
||||
/*{127, "srange", emit_parm2_num }, */
|
||||
{ 20, "sref.alt", emit_parm1_gvar },
|
||||
{ 19, "sref.pri", emit_parm1_gvar },
|
||||
{ 22, "sref.s.alt", emit_parm1_num },
|
||||
{ 21, "sref.s.pri", emit_parm1_num },
|
||||
{ 67, "sshr", emit_parm0 },
|
||||
{ 44, "stack", emit_parm1_num },
|
||||
{ 16, "stor.alt", emit_parm1_gvar },
|
||||
{ 23, "stor.i", emit_parm0 },
|
||||
{ 15, "stor.pri", emit_parm1_gvar },
|
||||
{ 18, "stor.s.alt", emit_parm1_num },
|
||||
{ 17, "stor.s.pri", emit_parm1_num },
|
||||
{ 24, "strb.i", emit_do_lodb_strb },
|
||||
{ 79, "sub", emit_parm0 },
|
||||
{ 80, "sub.alt", emit_parm0 },
|
||||
{132, "swap.alt", emit_parm0 },
|
||||
{131, "swap.pri", emit_parm0 },
|
||||
{129, "switch", emit_parm1_lbl },
|
||||
/*{126, "symbol", do_symbol }, */
|
||||
/*{136, "symtag", asm_parm1_num }, */
|
||||
{123, "sysreq.c", asm_parm1_num },
|
||||
{135, "sysreq.n", asm_parm2_num },
|
||||
{122, "sysreq.pri", asm_parm0 },
|
||||
{ 76, "udiv", asm_parm0 },
|
||||
{ 77, "udiv.alt", asm_parm0 },
|
||||
{ 75, "umul", asm_parm0 },
|
||||
{ 35, "xchg", asm_parm0 },
|
||||
{ 83, "xor", asm_parm0 },
|
||||
{ 91, "zero", asm_parm1_gvar },
|
||||
{ 90, "zero.alt", asm_parm0 },
|
||||
{ 89, "zero.pri", asm_parm0 },
|
||||
{ 92, "zero.s", asm_parm1_num },
|
||||
/*{136, "symtag", emit_parm1_num }, */
|
||||
{123, "sysreq.c", emit_parm1_num },
|
||||
{135, "sysreq.n", emit_parm2_num },
|
||||
{122, "sysreq.pri", emit_parm0 },
|
||||
{ 76, "udiv", emit_parm0 },
|
||||
{ 77, "udiv.alt", emit_parm0 },
|
||||
{ 75, "umul", emit_parm0 },
|
||||
{ 35, "xchg", emit_parm0 },
|
||||
{ 83, "xor", emit_parm0 },
|
||||
{ 91, "zero", emit_parm1_gvar },
|
||||
{ 90, "zero.alt", emit_parm0 },
|
||||
{ 89, "zero.pri", emit_parm0 },
|
||||
{ 92, "zero.s", emit_parm1_num },
|
||||
};
|
||||
|
||||
static int asm_findopcode(char *instr,int maxlen)
|
||||
static int emit_findopcode(char *instr,int maxlen)
|
||||
{
|
||||
int low,high,mid,cmp;
|
||||
char str[MAX_INSTR_LEN];
|
||||
@ -6296,11 +6297,11 @@ static int asm_findopcode(char *instr,int maxlen)
|
||||
* to symbols)
|
||||
*/
|
||||
low=1; /* entry 0 is reserved (for "not found") */
|
||||
high=(sizeof asm_opcodelist / sizeof asm_opcodelist[0])-1;
|
||||
high=(sizeof emit_opcodelist / sizeof emit_opcodelist[0])-1;
|
||||
while (low<high) {
|
||||
mid=(low+high)/2;
|
||||
assert(asm_opcodelist[mid].name!=NULL);
|
||||
cmp=stricmp(str,asm_opcodelist[mid].name);
|
||||
assert(emit_opcodelist[mid].name!=NULL);
|
||||
cmp=stricmp(str,emit_opcodelist[mid].name);
|
||||
if (cmp>0)
|
||||
low=mid+1;
|
||||
else
|
||||
@ -6308,12 +6309,12 @@ static int asm_findopcode(char *instr,int maxlen)
|
||||
} /* while */
|
||||
|
||||
assert(low==high);
|
||||
if (stricmp(str,asm_opcodelist[low].name)==0)
|
||||
if (stricmp(str,emit_opcodelist[low].name)==0)
|
||||
return low; /* found */
|
||||
return 0; /* not found, return special index */
|
||||
}
|
||||
|
||||
SC_FUNC void asm_parse_line(void)
|
||||
SC_FUNC void emit_parse_line(void)
|
||||
{
|
||||
cell val;
|
||||
char* st;
|
||||
@ -6335,38 +6336,38 @@ SC_FUNC void asm_parse_line(void)
|
||||
name[i]=(char)tolower(*lptr);
|
||||
} /* for */
|
||||
name[i]='\0';
|
||||
i=asm_findopcode(name,strlen(name));
|
||||
if (asm_opcodelist[i].name==NULL && *name!='\0') {
|
||||
i=emit_findopcode(name,strlen(name));
|
||||
if (emit_opcodelist[i].name==NULL && *name!='\0') {
|
||||
error(104,name); /* invalid assembler instruction */
|
||||
} /* if */
|
||||
asm_opcodelist[i].func(name);
|
||||
emit_opcodelist[i].func(name);
|
||||
check_empty(lptr);
|
||||
} else if (tok==tLABEL) {
|
||||
if (!asm_block_parsing) {
|
||||
if (!emit_block_parsing) {
|
||||
error(38); /* extra characters on line */
|
||||
} /* if */
|
||||
sym=fetchlab(st);
|
||||
setlabel((int)sym->addr);
|
||||
sym->usage|=uDEFINE;
|
||||
} /* if */
|
||||
if ((asm_block_parsing && matchtoken('}')) || !asm_block_parsing) {
|
||||
if ((emit_block_parsing && matchtoken('}')) || !emit_block_parsing) {
|
||||
matchtoken(';');
|
||||
asm_block_parsing=FALSE;
|
||||
emit_block_parsing=FALSE;
|
||||
} /* if */
|
||||
}
|
||||
|
||||
static void doasm(void)
|
||||
static void doemit(void)
|
||||
{
|
||||
cell val;
|
||||
char *st;
|
||||
|
||||
asm_block_parsing=FALSE;
|
||||
emit_block_parsing=FALSE;
|
||||
if (matchtoken('{')) {
|
||||
lexpush();
|
||||
asm_block_parsing=TRUE;
|
||||
emit_block_parsing=TRUE;
|
||||
} else {
|
||||
lex(&val,&st);
|
||||
asm_parse_line();
|
||||
emit_parse_line();
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -2073,10 +2073,11 @@ char *sc_tokens[] = {
|
||||
"*=", "/=", "%=", "+=", "-=", "<<=", ">>>=", ">>=", "&=", "^=", "|=",
|
||||
"||", "&&", "==", "!=", "<=", ">=", "<<", ">>>", ">>", "++", "--",
|
||||
"...", "..", "::",
|
||||
"asm", "assert", "*begin", "break", "case", "char", "const", "continue",
|
||||
"default", "defined", "do", "else", "*end", "enum", "exit", "for", "forward",
|
||||
"goto", "if", "native", "new", "operator", "public", "return", "sizeof",
|
||||
"sleep", "state", "static", "stock", "switch", "tagof", "*then", "while",
|
||||
"assert", "*begin", "break", "case", "char", "const", "continue", "default",
|
||||
"defined", "do", "else", "emit", "__emit", "*end", "enum", "exit", "for",
|
||||
"forward", "goto", "if", "native", "new", "operator", "public", "return",
|
||||
"sizeof", "sleep", "state", "static", "stock", "switch", "tagof", "*then",
|
||||
"while",
|
||||
"#assert", "#define", "#else", "#elseif", "#emit", "#endif", "#endinput",
|
||||
"#endscript", "#error", "#file", "#if", "#include", "#line", "#pragma",
|
||||
"#tryinclude", "#undef", "#warning",
|
||||
|
@ -1448,18 +1448,19 @@ static int hier2(value *lval)
|
||||
} /* if */
|
||||
return FALSE;
|
||||
} /* case */
|
||||
case tASM: {
|
||||
case tEMIT:
|
||||
case t__EMIT: {
|
||||
cell val;
|
||||
char* st;
|
||||
if (!matchtoken('{'))
|
||||
error(38);
|
||||
lex(&val,&st);
|
||||
lval->ident=iEXPRESSION;
|
||||
asm_parse_line();
|
||||
emit_parse_line();
|
||||
if (!matchtoken('}'))
|
||||
error(38);
|
||||
return FALSE;
|
||||
} /* asm */
|
||||
} /* case */
|
||||
default:
|
||||
lexpush();
|
||||
lvalue=hier1(lval);
|
||||
|
@ -103,7 +103,7 @@ SC_VDEFINE FILE *outf = NULL; /* (intermediate) text file written to */
|
||||
|
||||
SC_VDEFINE jmp_buf errbuf;
|
||||
|
||||
SC_VDEFINE asm_block_parsing=FALSE;
|
||||
SC_VDEFINE emit_block_parsing=FALSE;
|
||||
|
||||
#if !defined SC_LIGHT
|
||||
SC_VDEFINE int sc_makereport=FALSE; /* generate a cross-reference report */
|
||||
|
Loading…
x
Reference in New Issue
Block a user