anon/eaxhla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dumpster fire

Browse Source
This commit is contained in:
anon
2024-07-19 04:10:50 +02:00
parent bec336d276
commit 1b9acda87b
8 changed files with 152 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
tool/generators/instruction_parser_rules.tcl
View File

@ -13,7 +13,12 @@ proc make_parser_rules {is} {
dict set r enum "$$n.type"
dict set r value "$$n.value"
# XXX
dict set r size "32"
dict set r size "D32"
}
"relative" {
dict set r enum "REL"
dict set r value "$$n"
dict set r size "D32"
}
"memory" {
dict set r enum "MEM"
@ -25,10 +30,11 @@ proc make_parser_rules {is} {
return $r
}
proc make_parser_rule {i} {
set token_name [string toupper [lindex $i 0]]
if {[llength $i] == 1} {
set rule [format " | IT%s { append_instructions(%s); }" \
[string toupper [lindex $i 0]] \
[string toupper [lindex $i 0]] \
$token_name \
$token_name \
]
} elseif {[llength $i] == 2} {
set arg [init_iarg [lindex $i 1] 2]
@ -38,10 +44,10 @@ proc make_parser_rules {is} {
%s,\
%s\
); \}" \
[string toupper [lindex $i 0]] \
$token_name \
[lindex $i 1] \
\
[string toupper [lindex $i 0]] \
$token_name \
[dict get $arg size] \
[dict get $arg enum] \
[dict get $arg value] \
@ -57,11 +63,11 @@ proc make_parser_rules {is} {
%s,\
%s\
); \}" \
[string toupper [lindex $i 0]] \
$token_name \
[lindex $i 1] \
[lindex $i 2] \
\
[string toupper [lindex $i 0]] \
$token_name \
[dict get $arg1 size] \
[dict get $arg1 enum] \
[dict get $arg1 value] \

1
tool/generators/instructions.tcl
View File

@ -9,6 +9,7 @@ set instructions {
{pause}
{hlt}
{lock}
{jmp relative}
{inc register}
{dec register}
{not register}