6502/acme
1
0
Fork 0
mirror of https://github.com/uffejakobsen/acme.git synced 2024-11-26 15:49:18 +00:00
Code Issues Projects Releases Wiki Activity

guess what, more refactoring. no change in functionality

Browse Source 
git-svn-id: https://svn.code.sf.net/p/acme-crossass/code-0/trunk@51 4df02467-bbd4-4a76-a152-e7ce94205b78
This commit is contained in:
marcobaye 2014-12-05 17:46:48 +00:00
parent 913d8cb005
commit cc2ddb9b42
2 changed files with 28 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/encoding.c
View File

@ -249,13 +249,6 @@ static enum eos po_scrxor(void)
return encode_string(&encoder_scr, num); return encode_string(&encoder_scr, num);
} }
// "!cbm" pseudo opcode (now obsolete)
static enum eos po_cbm(void)
{
Throw_error("\"!cbm\" is obsolete; use \"!ct pet\" instead.");
return ENSURE_EOS;
}
// Set current encoding ("!convtab" pseudo opcode) // Set current encoding ("!convtab" pseudo opcode)
static enum eos po_convtab(void) static enum eos po_convtab(void)
{ {
@ -271,7 +264,6 @@ static enum eos po_convtab(void)
// pseudo opcode table // pseudo opcode table
static struct ronode pseudo_opcodes[] = { static struct ronode pseudo_opcodes[] = {
PREDEFNODE(s_cbm, po_cbm),
PREDEFNODE("ct", po_convtab), PREDEFNODE("ct", po_convtab),
PREDEFNODE("convtab", po_convtab), PREDEFNODE("convtab", po_convtab),
PREDEFNODE(s_pet, po_pet), PREDEFNODE(s_pet, po_pet),

49
src/pseudoopcodes.c
View File

@ -134,14 +134,14 @@ static enum eos iterate(void (*fn)(intval_t))
// Insert 8-bit values ("!08" / "!8" / "!by" / "!byte" pseudo opcode) // Insert 8-bit values ("!08" / "!8" / "!by" / "!byte" pseudo opcode)
static enum eos po_8(void) static enum eos po_byte(void)
{ {
return iterate(output_8); return iterate(output_8);
} }
// Insert 16-bit values ("!16" / "!wo" / "!word" pseudo opcode) // Insert 16-bit values ("!16" / "!wo" / "!word" pseudo opcode)
static enum eos po_16(void) static enum eos po_word(void)
{ {
return iterate(output_le16); return iterate(output_le16);
} }
@ -237,7 +237,7 @@ static enum eos po_fill(void)
// force explicit label definitions to set "address" flag ("!addr"). Has to be re-entrant. // force explicit label definitions to set "address" flag ("!addr"). Has to be re-entrant.
static enum eos po_addr(void) // now GotByte = illegal char static enum eos po_address(void) // now GotByte = illegal char
{ {
SKIPSPACE(); SKIPSPACE();
if (GotByte == CHAR_SOB) { if (GotByte == CHAR_SOB) {
@ -283,7 +283,7 @@ static enum eos po_set(void) // now GotByte = illegal char
// set file name for symbol list // set file name for symbol list
static enum eos po_sl(void) static enum eos po_symbollist(void)
{ {
// bugfix: first read filename, *then* check for first pass. // bugfix: first read filename, *then* check for first pass.
// if skipping right away, quoted colons might be misinterpreted as EOS // if skipping right away, quoted colons might be misinterpreted as EOS
@ -356,13 +356,19 @@ static enum eos po_zone(void)
} }
// "!subzone" or "!sz" pseudo opcode (now obsolete) // "!subzone" or "!sz" pseudo opcode (now obsolete)
static enum eos po_subzone(void) static enum eos obsolete_po_subzone(void)
{ {
Throw_error("\"!subzone {}\" is obsolete; use \"!zone {}\" instead."); Throw_error("\"!subzone {}\" is obsolete; use \"!zone {}\" instead.");
// call "!zone" instead // call "!zone" instead
return po_zone(); return po_zone();
} }
// "!cbm" pseudo opcode (now obsolete)
static enum eos obsolete_po_cbm(void)
{
Throw_error("\"!cbm\" is obsolete; use \"!ct pet\" instead.");
return ENSURE_EOS;
}
// include source file ("!source" or "!src"). has to be re-entrant. // include source file ("!source" or "!src"). has to be re-entrant.
static enum eos po_source(void) // now GotByte = illegal char static enum eos po_source(void) // now GotByte = illegal char
@ -573,7 +579,7 @@ static enum eos po_serious(void)
// end of source file ("!endoffile" or "!eof") // end of source file ("!endoffile" or "!eof")
static enum eos po_eof(void) static enum eos po_endoffile(void)
{ {
// well, it doesn't end right here and now, but at end-of-line! :-) // well, it doesn't end right here and now, but at end-of-line! :-)
Input_ensure_EOS(); Input_ensure_EOS();
@ -585,29 +591,30 @@ static enum eos po_eof(void)
static struct ronode pseudo_opcode_list[] = { static struct ronode pseudo_opcode_list[] = {
PREDEFNODE("initmem", po_initmem), PREDEFNODE("initmem", po_initmem),
PREDEFNODE("to", po_to), PREDEFNODE("to", po_to),
PREDEFNODE(s_8, po_8), PREDEFNODE(s_8, po_byte),
PREDEFNODE(s_08, po_8), PREDEFNODE(s_08, po_byte),
PREDEFNODE("by", po_8), PREDEFNODE("by", po_byte),
PREDEFNODE("byte", po_8), PREDEFNODE("byte", po_byte),
PREDEFNODE(s_16, po_16), PREDEFNODE(s_16, po_word),
PREDEFNODE("wo", po_16), PREDEFNODE("wo", po_word),
PREDEFNODE("word", po_16), PREDEFNODE("word", po_word),
PREDEFNODE("24", po_24), PREDEFNODE("24", po_24),
PREDEFNODE("32", po_32), PREDEFNODE("32", po_32),
PREDEFNODE("bin", po_binary), PREDEFNODE("bin", po_binary),
PREDEFNODE("binary", po_binary), PREDEFNODE("binary", po_binary),
PREDEFNODE("fi", po_fill), PREDEFNODE("fi", po_fill),
PREDEFNODE("fill", po_fill), PREDEFNODE("fill", po_fill),
PREDEFNODE("addr", po_addr), PREDEFNODE("addr", po_address),
PREDEFNODE("address", po_addr), PREDEFNODE("address", po_address),
PREDEFNODE("set", po_set), PREDEFNODE("set", po_set),
PREDEFNODE(s_sl, po_sl), PREDEFNODE(s_sl, po_symbollist),
PREDEFNODE("symbollist", po_sl), PREDEFNODE("symbollist", po_symbollist),
// PREDEFNODE("skip", po_skip), // PREDEFNODE("skip", po_skip),
PREDEFNODE("zn", po_zone), PREDEFNODE("zn", po_zone),
PREDEFNODE(s_zone, po_zone), PREDEFNODE(s_zone, po_zone),
PREDEFNODE("sz", po_subzone), PREDEFNODE("sz", obsolete_po_subzone),
PREDEFNODE(s_subzone, po_subzone), PREDEFNODE(s_subzone, obsolete_po_subzone),
PREDEFNODE(s_cbm, obsolete_po_cbm),
PREDEFNODE("src", po_source), PREDEFNODE("src", po_source),
PREDEFNODE("source", po_source), PREDEFNODE("source", po_source),
PREDEFNODE("if", po_if), PREDEFNODE("if", po_if),
@ -619,8 +626,8 @@ static struct ronode pseudo_opcode_list[] = {
PREDEFNODE("warn", po_warn), PREDEFNODE("warn", po_warn),
PREDEFNODE(s_error, po_error), PREDEFNODE(s_error, po_error),
PREDEFNODE("serious", po_serious), PREDEFNODE("serious", po_serious),
PREDEFNODE("eof", po_eof), PREDEFNODE("eof", po_endoffile),
PREDEFLAST("endoffile", po_eof), PREDEFLAST("endoffile", po_endoffile),
// ^^^^ this marks the last element // ^^^^ this marks the last element
}; };