projects
/
YACASL2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
「make check」「make clean」の修正
[YACASL2.git]
/
src
/
assemble.c
diff --git
a/src/assemble.c
b/src/assemble.c
index
3549c61
..
74a6a75
100644
(file)
--- a/
src/assemble.c
+++ b/
src/assemble.c
@@
-7,6
+7,9
@@
WORD ptr;
/* リテラル(=付きの値)を格納するポインタ */
WORD lptr;
/* リテラル(=付きの値)を格納するポインタ */
WORD lptr;
+/* 他のプログラムで参照する入口名 */
+char *prog;
+
/* 汎用レジスタを表す文字列「GR[0-7]」をWORD値に変換
is_xがtrueの場合は、指標レジスタとして用いる汎用レジスタ
文字列が汎用レジスタを表さない場合は、0xFFFFを返す */
/* 汎用レジスタを表す文字列「GR[0-7]」をWORD値に変換
is_xがtrueの場合は、指標レジスタとして用いる汎用レジスタ
文字列が汎用レジスタを表さない場合は、0xFFFFを返す */
@@
-79,7
+82,7
@@
WORD getadr(const char *str, PASS pass)
} else if(isdigit(*str) || *str == '-') {
adr = getint(str);
} else {
} else if(isdigit(*str) || *str == '-') {
adr = getint(str);
} else {
- if(pass == SECOND && (adr = getlabel(str)) == 0xFFFF) {
+ if(pass == SECOND && (adr = getlabel(str
, prog
)) == 0xFFFF) {
setcerr(103, str); /* label not found */
}
}
setcerr(103, str); /* label not found */
}
}
@@
-92,7
+95,7
@@
bool writememory(WORD word, WORD adr, PASS pass)
{
bool status = false;
/* COMET IIメモリオーバーの場合 */
{
bool status = false;
/* COMET IIメモリオーバーの場合 */
- if(adr >=
MEMSIZE
) {
+ if(adr >=
memsize
) {
setcerr(119, wtoa(adr)); /* out of COMET II memory */
}
if(cerrno == 0) {
setcerr(119, wtoa(adr)); /* out of COMET II memory */
}
if(cerrno == 0) {
@@
-153,7
+156,7
@@
void writestr(const char *str, bool literal, PASS pass)
void writeDC(const char *str, PASS pass)
{
WORD adr = 0x0;
void writeDC(const char *str, PASS pass)
{
WORD adr = 0x0;
- if(*str == '\''){
+ if(*str == '\'')
{
writestr(str, false, pass);
} else {
if(*str == '#') {
writestr(str, false, pass);
} else {
if(*str == '#') {
@@
-161,7
+164,7
@@
void writeDC(const char *str, PASS pass)
} else if(isdigit(*str) || *str == '-') {
adr = getint(str);
} else {
} else if(isdigit(*str) || *str == '-') {
adr = getint(str);
} else {
- if(pass == SECOND && (adr = getlabel(str)) == 0xFFFF) {
+ if(pass == SECOND && (adr = getlabel(str
, prog
)) == 0xFFFF) {
setcerr(103, str); /* label not found */
}
}
setcerr(103, str); /* label not found */
}
}
@@
-202,9
+205,11
@@
bool assemblecmd(const CMDLINE *cmdl, PASS pass)
setcerr(107, NULL); /* no label in START */
return false;
}
setcerr(107, NULL); /* no label in START */
return false;
}
- /* オペランドがある場合、実行開始番地を設定 */
+ /* プログラム名の設定 */
+ prog = strdup(cmdl->label);
+ /* オペランドがある場合、実行開始番地を設定 */
if(pass == SECOND && cmdl->opd->opdc == 1) {
if(pass == SECOND && cmdl->opd->opdc == 1) {
- if((startptr = getlabel(cmdl->opd->opdv[0])) == 0xFFFF) {
+ if((startptr = getlabel(cmdl->opd->opdv[0]
, prog
)) == 0xFFFF) {
setcerr(103, cmdl->opd->opdv[0]); /* label not found */
}
}
setcerr(103, cmdl->opd->opdv[0]); /* label not found */
}
}
@@
-219,6
+224,7
@@
bool assemblecmd(const CMDLINE *cmdl, PASS pass)
else if(pass == SECOND) {
endptr = lptr;
}
else if(pass == SECOND) {
endptr = lptr;
}
+ prog = NULL;
status = true;
break;
case DS:
status = true;
break;
case DS:
@@
-366,7
+372,7
@@
bool cometcmd(const CMDLINE *cmdl, PASS pass)
}
/* オペランド数1〜2。第1オペランドはアドレス */
else if(cmdl->opd->opdc == 1 || cmdl->opd->opdc == 2) {
}
/* オペランド数1〜2。第1オペランドはアドレス */
else if(cmdl->opd->opdc == 1 || cmdl->opd->opdc == 2) {
- if((cmd = getcmdcode(cmdl->cmd, ADR_X)) == 0xFFFF) {
+ if((cmd = getcmdcode(cmdl->cmd, ADR_X)) == 0xFFFF) {
setcerr(111, cmdl->cmd); /* not command of operand "adr[,x]" */
return false;
}
setcerr(111, cmdl->cmd); /* not command of operand "adr[,x]" */
return false;
}
@@
-430,7
+436,7
@@
bool assemble(const char *file, PASS pass)
CMDLINE *cmdl;
char *line;
FILE *fp;
CMDLINE *cmdl;
char *line;
FILE *fp;
-
+
if(create_cmdtype_code() == false) {
return false;
}
if(create_cmdtype_code() == false) {
return false;
}
@@
-446,11
+452,11
@@
bool assemble(const char *file, PASS pass)
}
lineno++;
if((pass == FIRST && srcmode == true) || (pass == SECOND && asdetailmode == true)) {
}
lineno++;
if((pass == FIRST && srcmode == true) || (pass == SECOND && asdetailmode == true)) {
- fprintf(stdout, "%s:%d:%s", file, lineno, line);
+ fprintf(stdout, "%s:%
5
d:%s", file, lineno, line);
}
if((cmdl = linetok(line)) != NULL) {
if(pass == FIRST && cmdl->label != NULL) {
}
if((cmdl = linetok(line)) != NULL) {
if(pass == FIRST && cmdl->label != NULL) {
- if(addlabel(cmdl->label, ptr) == false) {
+ if(addlabel(
prog,
cmdl->label, ptr) == false) {
break;
}
}
break;
}
}