Apple-2-SW/merlin-utils
1
0
Fork 0
mirror of https://github.com/ksherlock/merlin-utils.git synced 2025-01-02 20:29:15 +00:00
Code Issues Projects Releases Wiki Activity

add SEG command (does nothing, yet)

Browse Source
This commit is contained in:
Kelvin Sherlock 2019-12-14 16:16:05 -05:00
parent 50822a7dea
commit b6e397b959
3 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
link.cpp
View File

@ -816,6 +816,12 @@ void evaluate(label_t label, opcode_t opcode, const char *cursor) {
define(label, number_operand(cursor, local_symbol_table), LBL_GEQ); define(label, number_operand(cursor, local_symbol_table), LBL_GEQ);
break; break;
case OP_SEG: {
/* OMF object file linker - set the object file seg name */
std::string name = label_operand(cursor);
break;
}
case OP_FAS: case OP_FAS:
/* fast linker, only 1 file allowed */ /* fast linker, only 1 file allowed */
fas = true; fas = true;

1
ops.h
View File

@ -36,3 +36,4 @@ x(CMD)
x(ZIP) x(ZIP)
x(IMP) x(IMP)
x(PFX) x(PFX)
x(SEG)

2
script.re2c
View File

@ -222,7 +222,7 @@ std::string path_operand(const char *YYCURSOR, int flags) {
} }
// don't allow leading quotes, eof, or comment chars // don't allow leading quotes, eof, or comment chars
. [^ \t]* { [^ \t\x00;*'"][^ \t\x00]* {
rv = std::string(iter, YYCURSOR); rv = std::string(iter, YYCURSOR);
goto exit; goto exit;
} }