Added src/uxn-fast.c generator script
This commit is contained in:
Andrew Alderwick
parent
3b70b23703
commit
aeddd9e0f5
|
|
@ -0,0 +1,368 @@
|
||||||
|
local replacements = {
|
||||||
|
op_and16 = '{ Uint8 a = pop8(u->src), b = pop8(u->src), c = pop8(u->src), d = pop8(u->src); push8(u->src, d & b); push8(u->src, c & a); }',
|
||||||
|
op_ora16 = '{ Uint8 a = pop8(u->src), b = pop8(u->src), c = pop8(u->src), d = pop8(u->src); push8(u->src, d | b); push8(u->src, c | a); }',
|
||||||
|
op_eor16 = '{ Uint8 a = pop8(u->src), b = pop8(u->src), c = pop8(u->src), d = pop8(u->src); push8(u->src, d ^ b); push8(u->src, c ^ a); }',
|
||||||
|
op_lit16 = '{ push8(u->src, mempeek8(u->ram.dat, u->ram.ptr++)); push8(u->src, mempeek8(u->ram.dat, u->ram.ptr++)); }',
|
||||||
|
op_swp16 = '{ Uint8 a = pop8(u->src), b = pop8(u->src), c = pop8(u->src), d = pop8(u->src); push8(u->src, b); push8(u->src, a); push8(u->src, d); push8(u->src, c); }',
|
||||||
|
op_ovr16 = '{ Uint8 a = pop8(u->src), b = pop8(u->src), c = pop8(u->src), d = pop8(u->src); push8(u->src, d); push8(u->src, c); push8(u->src, b); push8(u->src, a); push8(u->src, d); push8(u->src, c); }',
|
||||||
|
op_dup16 = '{ Uint8 a = pop8(u->src), b = pop8(u->src); push8(u->src, b); push8(u->src, a); push8(u->src, b); push8(u->src, a); }',
|
||||||
|
op_rot16 = '{ Uint8 a = pop8(u->src), b = pop8(u->src), c = pop8(u->src), d = pop8(u->src), e = pop8(u->src), f = pop8(u->src); push8(u->src, d); push8(u->src, c); push8(u->src, b); push8(u->src, a); push8(u->src, f); push8(u->src, e); }',
|
||||||
|
op_sth16 = '{ Uint8 a = pop8(u->src), b = pop8(u->src); push8(u->dst, b); push8(u->dst, a); }'
|
||||||
|
}
|
||||||
|
local top, bottom, pushtop
|
||||||
|
local offset
|
||||||
|
offset = function(n, s)
|
||||||
|
if s == nil then
|
||||||
|
s = ''
|
||||||
|
end
|
||||||
|
if n < 0 then
|
||||||
|
return (' -%s %d'):format(s, -n)
|
||||||
|
elseif n > 0 then
|
||||||
|
return (' +%s %d'):format(s, n)
|
||||||
|
elseif s ~= '' then
|
||||||
|
return (' +%s 0'):format(s)
|
||||||
|
else
|
||||||
|
return ''
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local pop_push
|
||||||
|
pop_push = function(k, n, s)
|
||||||
|
local _exp_0 = k
|
||||||
|
if 'pop' == _exp_0 then
|
||||||
|
s = s:match('^%((%S+)%)$')
|
||||||
|
assert(s == 'src')
|
||||||
|
local _exp_1 = n
|
||||||
|
if '8' == _exp_1 then
|
||||||
|
top[s] = top[s] - 1
|
||||||
|
if bottom[s] > top[s] then
|
||||||
|
bottom[s] = top[s]
|
||||||
|
end
|
||||||
|
return ('%s.dat[%s.ptr%s]'):format(s, s, offset(top[s]))
|
||||||
|
elseif '16' == _exp_1 then
|
||||||
|
top[s] = top[s] - 2
|
||||||
|
if bottom[s] > top[s] then
|
||||||
|
bottom[s] = top[s]
|
||||||
|
end
|
||||||
|
return ('(%s.dat[%s.ptr%s] | (%s.dat[%s.ptr%s] << 8))'):format(s, s, offset(top[s] + 1), s, s, offset(top[s]))
|
||||||
|
end
|
||||||
|
elseif 'push' == _exp_0 then
|
||||||
|
local v
|
||||||
|
s, v = s:match('^%((%S+), (.*)%)$')
|
||||||
|
assert(s == 'src' or s == 'dst', s)
|
||||||
|
local _exp_1 = n
|
||||||
|
if '8' == _exp_1 then
|
||||||
|
pushtop[s] = pushtop[s] + 1
|
||||||
|
return ('%s.dat[%s.ptr%s] = %s'):format(s, s, offset(pushtop[s] - 1), v)
|
||||||
|
elseif '16' == _exp_1 then
|
||||||
|
if v:match('%+%+') or v:match('%-%-') then
|
||||||
|
error('push16 has side effects: ' .. v)
|
||||||
|
end
|
||||||
|
local peek, args = v:match('^([md]e[mv]peek)16(%b())$')
|
||||||
|
if peek then
|
||||||
|
args = args:sub(2, -2)
|
||||||
|
return pop_push('push', '8', ('(%s, %s8(%s))'):format(s, peek, args)) .. ';\n' .. pop_push('push', '8', ('(%s, %s8(%s + 1))'):format(s, peek, args))
|
||||||
|
end
|
||||||
|
pushtop[s] = pushtop[s] + 2
|
||||||
|
if v:match(' ') then
|
||||||
|
v = '(' .. v .. ')'
|
||||||
|
end
|
||||||
|
return ('%s.dat[%s.ptr%s] = %s >> 8;\n%s.dat[%s.ptr%s] = %s & 0xff'):format(s, s, offset(pushtop[s] - 2), v, s, s, offset(pushtop[s] - 1), v)
|
||||||
|
end
|
||||||
|
else
|
||||||
|
return nil
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local process
|
||||||
|
process = function(body)
|
||||||
|
local out_body = body:gsub('^%{ *', ''):gsub(' *%}$', ''):gsub('; ', ';\n'):gsub('(%a+)(%d+)(%b())', pop_push)
|
||||||
|
local in_ifdef = false
|
||||||
|
local _list_0 = {
|
||||||
|
'src',
|
||||||
|
'dst'
|
||||||
|
}
|
||||||
|
for _index_0 = 1, #_list_0 do
|
||||||
|
local k = _list_0[_index_0]
|
||||||
|
if bottom[k] ~= 0 then
|
||||||
|
if not in_ifdef then
|
||||||
|
out_body = out_body .. '\n#ifndef NO_STACK_CHECKS'
|
||||||
|
in_ifdef = true
|
||||||
|
end
|
||||||
|
out_body = out_body .. ('\nif(__builtin_expect(%s.ptr < %d, 0)) {\n\t%s.error = 1;\n\tgoto error;\n}'):format(k, -bottom[k], k)
|
||||||
|
end
|
||||||
|
if pushtop[k] ~= 0 then
|
||||||
|
if pushtop[k] > 0 then
|
||||||
|
if not in_ifdef then
|
||||||
|
out_body = out_body .. '\n#ifndef NO_STACK_CHECKS'
|
||||||
|
in_ifdef = true
|
||||||
|
end
|
||||||
|
out_body = out_body .. ('\nif(__builtin_expect(%s.ptr > %d, 0)) {\n\t%s.error = 2;\n\tgoto error;\n}'):format(k, 255 - pushtop[k], k)
|
||||||
|
end
|
||||||
|
if in_ifdef then
|
||||||
|
out_body = out_body .. '\n#endif'
|
||||||
|
in_ifdef = false
|
||||||
|
end
|
||||||
|
out_body = out_body .. ('\n%s.ptr %s= %d;'):format(k, pushtop[k] < 0 and '-' or '+', math.abs(pushtop[k]))
|
||||||
|
end
|
||||||
|
end
|
||||||
|
if in_ifdef then
|
||||||
|
out_body = out_body .. '\n#endif'
|
||||||
|
in_ifdef = false
|
||||||
|
end
|
||||||
|
local t = { }
|
||||||
|
out_body:gsub('[^%w_]([a-f]) = (src%.dat%[[^]]+%])[,;]', function(v, k)
|
||||||
|
t[k] = v
|
||||||
|
end)
|
||||||
|
out_body = out_body:gsub('(src%.dat%[[^]]+%]) = ([a-f]);\n', function(k, v)
|
||||||
|
if t[k] and t[k] == v then
|
||||||
|
return ''
|
||||||
|
end
|
||||||
|
return nil
|
||||||
|
end)
|
||||||
|
return out_body
|
||||||
|
end
|
||||||
|
local ops = { }
|
||||||
|
for l in assert(io.lines('src/uxn.c')) do
|
||||||
|
local _continue_0 = false
|
||||||
|
repeat
|
||||||
|
local name, body = l:match('void (op_%S*)%(Uxn %*u%) (%b{})')
|
||||||
|
if not name then
|
||||||
|
_continue_0 = true
|
||||||
|
break
|
||||||
|
end
|
||||||
|
if replacements[name] then
|
||||||
|
body = replacements[name]
|
||||||
|
end
|
||||||
|
body = body:gsub('u%-%>src', 'src')
|
||||||
|
body = body:gsub('u%-%>dst', 'dst')
|
||||||
|
top = {
|
||||||
|
src = 0,
|
||||||
|
dst = 0
|
||||||
|
}
|
||||||
|
bottom = {
|
||||||
|
src = 0,
|
||||||
|
dst = 0
|
||||||
|
}
|
||||||
|
pushtop = top
|
||||||
|
ops[name] = process(body)
|
||||||
|
top = {
|
||||||
|
src = 0,
|
||||||
|
dst = 0
|
||||||
|
}
|
||||||
|
bottom = {
|
||||||
|
src = 0,
|
||||||
|
dst = 0
|
||||||
|
}
|
||||||
|
pushtop = {
|
||||||
|
src = 0,
|
||||||
|
dst = 0
|
||||||
|
}
|
||||||
|
ops['keep_' .. name] = process(body)
|
||||||
|
_continue_0 = true
|
||||||
|
until true
|
||||||
|
if not _continue_0 then
|
||||||
|
break
|
||||||
|
end
|
||||||
|
end
|
||||||
|
local dump
|
||||||
|
dump = function(s, src, dst)
|
||||||
|
local ret = '\t\t\t{\n'
|
||||||
|
for l in s:gmatch('[^\n]+') do
|
||||||
|
if not l:match('^%#') then
|
||||||
|
ret = ret .. '\t\t\t\t'
|
||||||
|
end
|
||||||
|
ret = ret .. ('%s\n'):format(l)
|
||||||
|
end
|
||||||
|
ret = ret .. '\t\t\t}\n\t\t\tbreak;\n'
|
||||||
|
return (ret:gsub('src', src):gsub('dst', dst))
|
||||||
|
end
|
||||||
|
local i = 0
|
||||||
|
local allops = { }
|
||||||
|
local wanted = false
|
||||||
|
for l in assert(io.lines('src/uxn.c')) do
|
||||||
|
if l == 'void (*ops[])(Uxn *u) = {' then
|
||||||
|
wanted = true
|
||||||
|
elseif l == '};' then
|
||||||
|
wanted = false
|
||||||
|
elseif wanted then
|
||||||
|
l = l:gsub('%/%b**%/', '')
|
||||||
|
for op in l:gmatch('[%w_]+') do
|
||||||
|
if not ops[op] then
|
||||||
|
error('missing ' .. op)
|
||||||
|
end
|
||||||
|
allops[i + 0x00 + 1] = {
|
||||||
|
n = {
|
||||||
|
i + 0x00
|
||||||
|
},
|
||||||
|
body = dump(ops[op], 'u->wst', 'u->rst')
|
||||||
|
}
|
||||||
|
allops[i + 0x40 + 1] = {
|
||||||
|
n = {
|
||||||
|
i + 0x40
|
||||||
|
},
|
||||||
|
body = dump(ops[op], 'u->rst', 'u->wst')
|
||||||
|
}
|
||||||
|
allops[i + 0x80 + 1] = {
|
||||||
|
n = {
|
||||||
|
i + 0x80
|
||||||
|
},
|
||||||
|
body = dump(ops['keep_' .. op], 'u->wst', 'u->rst')
|
||||||
|
}
|
||||||
|
allops[i + 0xc0 + 1] = {
|
||||||
|
n = {
|
||||||
|
i + 0xc0
|
||||||
|
},
|
||||||
|
body = dump(ops['keep_' .. op], 'u->rst', 'u->wst')
|
||||||
|
}
|
||||||
|
i = i + 1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
i = 0
|
||||||
|
wanted = false
|
||||||
|
for l in assert(io.lines('src/assembler.c')) do
|
||||||
|
if l == 'char ops[][4] = {' then
|
||||||
|
wanted = true
|
||||||
|
elseif l == '};' then
|
||||||
|
wanted = false
|
||||||
|
elseif wanted then
|
||||||
|
for op in l:gmatch('"(...)"') do
|
||||||
|
i = i + 1
|
||||||
|
allops[i + 0x00].name = op
|
||||||
|
allops[i + 0x20].name = op .. '2'
|
||||||
|
allops[i + 0x40].name = op .. 'r'
|
||||||
|
allops[i + 0x60].name = op .. '2r'
|
||||||
|
allops[i + 0x80].name = op .. 'k'
|
||||||
|
allops[i + 0xa0].name = op .. '2k'
|
||||||
|
allops[i + 0xc0].name = op .. 'kr'
|
||||||
|
allops[i + 0xe0].name = op .. '2kr'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
for i = 1, 256 do
|
||||||
|
local _continue_0 = false
|
||||||
|
repeat
|
||||||
|
if not allops[i] then
|
||||||
|
_continue_0 = true
|
||||||
|
break
|
||||||
|
end
|
||||||
|
for j = i + 1, 256 do
|
||||||
|
if allops[i].body == allops[j].body then
|
||||||
|
table.insert(allops[i].n, (table.remove(allops[j].n)))
|
||||||
|
allops[j].body = nil
|
||||||
|
end
|
||||||
|
end
|
||||||
|
_continue_0 = true
|
||||||
|
until true
|
||||||
|
if not _continue_0 then
|
||||||
|
break
|
||||||
|
end
|
||||||
|
end
|
||||||
|
do
|
||||||
|
local _with_0 = assert(io.open('src/uxn-fast.c', 'w'))
|
||||||
|
local f = assert(io.open('src/uxn.c'))
|
||||||
|
while true do
|
||||||
|
local l = f:read('*l')
|
||||||
|
_with_0:write(('%s\n'):format(l))
|
||||||
|
if l == '*/' then
|
||||||
|
break
|
||||||
|
end
|
||||||
|
end
|
||||||
|
_with_0:write('\n')
|
||||||
|
_with_0:write([[/*
|
||||||
|
^
|
||||||
|
/!\ THIS FILE IS AUTOMATICALLY GENERATED
|
||||||
|
---
|
||||||
|
|
||||||
|
Its contents can get overwritten with the processed contents of src/uxn.c.
|
||||||
|
See etc/mkuxn-fast.moon for instructions.
|
||||||
|
|
||||||
|
*/
|
||||||
|
]])
|
||||||
|
while true do
|
||||||
|
local _continue_0 = false
|
||||||
|
repeat
|
||||||
|
local l = f:read('*l')
|
||||||
|
if l:match(' push') or l:match('[ *]pop') then
|
||||||
|
_continue_0 = true
|
||||||
|
break
|
||||||
|
end
|
||||||
|
if l == '/* Stack */' then
|
||||||
|
break
|
||||||
|
end
|
||||||
|
_with_0:write(('%s\n'):format(l))
|
||||||
|
_continue_0 = true
|
||||||
|
until true
|
||||||
|
if not _continue_0 then
|
||||||
|
break
|
||||||
|
end
|
||||||
|
end
|
||||||
|
_with_0:write([[/* clang-format on */
|
||||||
|
|
||||||
|
#pragma mark - Core
|
||||||
|
|
||||||
|
int
|
||||||
|
evaluxn(Uxn *u, Uint16 vec)
|
||||||
|
{
|
||||||
|
Uint8 instr;
|
||||||
|
u->ram.ptr = vec;
|
||||||
|
while(u->ram.ptr) {
|
||||||
|
instr = u->ram.dat[u->ram.ptr++];
|
||||||
|
switch(instr) {
|
||||||
|
#pragma GCC diagnostic push
|
||||||
|
#pragma GCC diagnostic ignored "-Wunused-value"
|
||||||
|
#pragma GCC diagnostic ignored "-Wunused-variable"
|
||||||
|
]])
|
||||||
|
for i = 1, 256 do
|
||||||
|
local _continue_0 = false
|
||||||
|
repeat
|
||||||
|
if not allops[i].body then
|
||||||
|
_continue_0 = true
|
||||||
|
break
|
||||||
|
end
|
||||||
|
local _list_0 = allops[i].n
|
||||||
|
for _index_0 = 1, #_list_0 do
|
||||||
|
local n = _list_0[_index_0]
|
||||||
|
_with_0:write(('\t\tcase 0x%02x: /* %s */\n'):format(n, allops[n + 1].name))
|
||||||
|
end
|
||||||
|
_with_0:write(('\t\t\t__asm__( "evaluxn_%02x_%s:" );\n'):format(allops[i].n[1], allops[i].name))
|
||||||
|
_with_0:write(allops[i].body)
|
||||||
|
_continue_0 = true
|
||||||
|
until true
|
||||||
|
if not _continue_0 then
|
||||||
|
break
|
||||||
|
end
|
||||||
|
end
|
||||||
|
_with_0:write([[#pragma GCC diagnostic pop
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return 1;
|
||||||
|
#ifndef NO_STACK_CHECKS
|
||||||
|
error:
|
||||||
|
printf("Halted: %s-stack %sflow#%04x, at 0x%04x\n",
|
||||||
|
u->wst.error ? "Working" : "Return",
|
||||||
|
((u->wst.error | u->rst.error) & 2) ? "over" : "under",
|
||||||
|
instr,
|
||||||
|
u->ram.ptr);
|
||||||
|
return 0;
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
]])
|
||||||
|
wanted = false
|
||||||
|
while true do
|
||||||
|
local l = f:read('*l')
|
||||||
|
if not l then
|
||||||
|
break
|
||||||
|
end
|
||||||
|
if l:match('^bootuxn') then
|
||||||
|
wanted = true
|
||||||
|
end
|
||||||
|
if wanted then
|
||||||
|
_with_0:write(('%s\n'):format(l))
|
||||||
|
end
|
||||||
|
end
|
||||||
|
f:close()
|
||||||
|
_with_0:close()
|
||||||
|
return _with_0
|
||||||
|
end
|
||||||
|
|
@ -0,0 +1,263 @@
|
||||||
|
--
|
||||||
|
-- Uxn core unroller script
|
||||||
|
--
|
||||||
|
-- This script updates src/uxn-fast.c when Uxn's opcode set changes, so that
|
||||||
|
-- updates in the human-readable src/uxn.c core can be easily converted into
|
||||||
|
-- high-performance code.
|
||||||
|
--
|
||||||
|
-- To run, you need Lua or LuaJIT, and just run etc/mkuxn-fast.lua from the top
|
||||||
|
-- directory of Uxn's git repository:
|
||||||
|
--
|
||||||
|
-- lua etc/mkuxn-fast.lua
|
||||||
|
--
|
||||||
|
-- This file is written in MoonScript, which is a language that compiles to
|
||||||
|
-- Lua, the same way as e.g. CoffeeScript compiles to JavaScript. Since
|
||||||
|
-- installing MoonScript has more dependencies than Lua, the compiled
|
||||||
|
-- etc/mkuxn-fast.lua is kept in Uxn's repository and will be kept updated as
|
||||||
|
-- this file changes.
|
||||||
|
--
|
||||||
|
|
||||||
|
replacements =
|
||||||
|
op_and16: '{ Uint8 a = pop8(u->src), b = pop8(u->src), c = pop8(u->src), d = pop8(u->src); push8(u->src, d & b); push8(u->src, c & a); }'
|
||||||
|
op_ora16: '{ Uint8 a = pop8(u->src), b = pop8(u->src), c = pop8(u->src), d = pop8(u->src); push8(u->src, d | b); push8(u->src, c | a); }'
|
||||||
|
op_eor16: '{ Uint8 a = pop8(u->src), b = pop8(u->src), c = pop8(u->src), d = pop8(u->src); push8(u->src, d ^ b); push8(u->src, c ^ a); }'
|
||||||
|
op_lit16: '{ push8(u->src, mempeek8(u->ram.dat, u->ram.ptr++)); push8(u->src, mempeek8(u->ram.dat, u->ram.ptr++)); }'
|
||||||
|
op_swp16: '{ Uint8 a = pop8(u->src), b = pop8(u->src), c = pop8(u->src), d = pop8(u->src); push8(u->src, b); push8(u->src, a); push8(u->src, d); push8(u->src, c); }'
|
||||||
|
op_ovr16: '{ Uint8 a = pop8(u->src), b = pop8(u->src), c = pop8(u->src), d = pop8(u->src); push8(u->src, d); push8(u->src, c); push8(u->src, b); push8(u->src, a); push8(u->src, d); push8(u->src, c); }'
|
||||||
|
op_dup16: '{ Uint8 a = pop8(u->src), b = pop8(u->src); push8(u->src, b); push8(u->src, a); push8(u->src, b); push8(u->src, a); }'
|
||||||
|
op_rot16: '{ Uint8 a = pop8(u->src), b = pop8(u->src), c = pop8(u->src), d = pop8(u->src), e = pop8(u->src), f = pop8(u->src); push8(u->src, d); push8(u->src, c); push8(u->src, b); push8(u->src, a); push8(u->src, f); push8(u->src, e); }'
|
||||||
|
op_sth16: '{ Uint8 a = pop8(u->src), b = pop8(u->src); push8(u->dst, b); push8(u->dst, a); }'
|
||||||
|
|
||||||
|
local top, bottom, pushtop
|
||||||
|
|
||||||
|
offset = (n, s = '') ->
|
||||||
|
if n < 0
|
||||||
|
' -%s %d'\format s, -n
|
||||||
|
elseif n > 0
|
||||||
|
' +%s %d'\format s, n
|
||||||
|
elseif s != ''
|
||||||
|
' +%s 0'\format s
|
||||||
|
else
|
||||||
|
''
|
||||||
|
|
||||||
|
pop_push = (k, n, s) ->
|
||||||
|
switch k
|
||||||
|
when 'pop'
|
||||||
|
s = s\match '^%((%S+)%)$'
|
||||||
|
assert s == 'src'
|
||||||
|
switch n
|
||||||
|
when '8'
|
||||||
|
top[s] -= 1
|
||||||
|
if bottom[s] > top[s]
|
||||||
|
bottom[s] = top[s]
|
||||||
|
'%s.dat[%s.ptr%s]'\format s, s, offset(top[s])
|
||||||
|
when '16'
|
||||||
|
top[s] -= 2
|
||||||
|
if bottom[s] > top[s]
|
||||||
|
bottom[s] = top[s]
|
||||||
|
'(%s.dat[%s.ptr%s] | (%s.dat[%s.ptr%s] << 8))'\format s, s, offset(top[s] + 1), s, s, offset(top[s])
|
||||||
|
when 'push'
|
||||||
|
s, v = s\match '^%((%S+), (.*)%)$'
|
||||||
|
assert s == 'src' or s == 'dst', s
|
||||||
|
switch n
|
||||||
|
when '8'
|
||||||
|
pushtop[s] += 1
|
||||||
|
'%s.dat[%s.ptr%s] = %s'\format s, s, offset(pushtop[s] - 1), v
|
||||||
|
when '16'
|
||||||
|
if v\match'%+%+' or v\match'%-%-'
|
||||||
|
error 'push16 has side effects: ' .. v
|
||||||
|
peek, args = v\match '^([md]e[mv]peek)16(%b())$'
|
||||||
|
if peek
|
||||||
|
args = args\sub 2, -2
|
||||||
|
return pop_push('push', '8', '(%s, %s8(%s))'\format s, peek, args) .. ';\n' .. pop_push('push', '8', '(%s, %s8(%s + 1))'\format s, peek, args)
|
||||||
|
pushtop[s] += 2
|
||||||
|
if v\match ' '
|
||||||
|
v = '(' .. v .. ')'
|
||||||
|
'%s.dat[%s.ptr%s] = %s >> 8;\n%s.dat[%s.ptr%s] = %s & 0xff'\format s, s, offset(pushtop[s] - 2), v, s, s, offset(pushtop[s] - 1), v
|
||||||
|
else
|
||||||
|
nil
|
||||||
|
|
||||||
|
process = (body) ->
|
||||||
|
out_body = body\gsub('^%{ *', '')\gsub(' *%}$', '')\gsub('; ', ';\n')\gsub '(%a+)(%d+)(%b())', pop_push
|
||||||
|
in_ifdef = false
|
||||||
|
for k in *{'src', 'dst'}
|
||||||
|
if bottom[k] != 0
|
||||||
|
if not in_ifdef
|
||||||
|
out_body ..= '\n#ifndef NO_STACK_CHECKS'
|
||||||
|
in_ifdef = true
|
||||||
|
out_body ..= '\nif(__builtin_expect(%s.ptr < %d, 0)) {\n\t%s.error = 1;\n\tgoto error;\n}'\format k, -bottom[k], k
|
||||||
|
if pushtop[k] != 0
|
||||||
|
if pushtop[k] > 0
|
||||||
|
if not in_ifdef
|
||||||
|
out_body ..= '\n#ifndef NO_STACK_CHECKS'
|
||||||
|
in_ifdef = true
|
||||||
|
out_body ..= '\nif(__builtin_expect(%s.ptr > %d, 0)) {\n\t%s.error = 2;\n\tgoto error;\n}'\format k, 255 - pushtop[k], k
|
||||||
|
if in_ifdef
|
||||||
|
out_body ..= '\n#endif'
|
||||||
|
in_ifdef = false
|
||||||
|
out_body ..= '\n%s.ptr %s= %d;'\format k, pushtop[k] < 0 and '-' or '+', math.abs pushtop[k]
|
||||||
|
if in_ifdef
|
||||||
|
out_body ..= '\n#endif'
|
||||||
|
in_ifdef = false
|
||||||
|
t = {}
|
||||||
|
out_body\gsub '[^%w_]([a-f]) = (src%.dat%[[^]]+%])[,;]', (v, k) -> t[k] = v
|
||||||
|
out_body = out_body\gsub '(src%.dat%[[^]]+%]) = ([a-f]);\n', (k, v) ->
|
||||||
|
if t[k] and t[k] == v
|
||||||
|
return ''
|
||||||
|
return nil
|
||||||
|
out_body
|
||||||
|
|
||||||
|
ops = {}
|
||||||
|
|
||||||
|
for l in assert io.lines 'src/uxn.c'
|
||||||
|
name, body = l\match 'void (op_%S*)%(Uxn %*u%) (%b{})'
|
||||||
|
if not name
|
||||||
|
continue
|
||||||
|
if replacements[name]
|
||||||
|
body = replacements[name]
|
||||||
|
body = body\gsub 'u%-%>src', 'src'
|
||||||
|
body = body\gsub 'u%-%>dst', 'dst'
|
||||||
|
top = { src: 0, dst: 0 }
|
||||||
|
bottom = { src: 0, dst: 0 }
|
||||||
|
pushtop = top
|
||||||
|
ops[name] = process body
|
||||||
|
top = { src: 0, dst: 0 }
|
||||||
|
bottom = { src: 0, dst: 0 }
|
||||||
|
pushtop = { src: 0, dst: 0 }
|
||||||
|
ops['keep_' .. name] = process body
|
||||||
|
|
||||||
|
dump = (s, src, dst) ->
|
||||||
|
ret = '\t\t\t{\n'
|
||||||
|
for l in s\gmatch '[^\n]+'
|
||||||
|
if not l\match '^%#'
|
||||||
|
ret ..= '\t\t\t\t'
|
||||||
|
ret ..= '%s\n'\format l
|
||||||
|
ret ..= '\t\t\t}\n\t\t\tbreak;\n'
|
||||||
|
(ret\gsub('src', src)\gsub('dst', dst))
|
||||||
|
|
||||||
|
i = 0
|
||||||
|
allops = {}
|
||||||
|
wanted = false
|
||||||
|
for l in assert io.lines 'src/uxn.c'
|
||||||
|
if l == 'void (*ops[])(Uxn *u) = {'
|
||||||
|
wanted = true
|
||||||
|
elseif l == '};'
|
||||||
|
wanted = false
|
||||||
|
elseif wanted
|
||||||
|
l = l\gsub '%/%b**%/', ''
|
||||||
|
for op in l\gmatch '[%w_]+'
|
||||||
|
if not ops[op]
|
||||||
|
error 'missing ' .. op
|
||||||
|
allops[i + 0x00 + 1] = { n: { i + 0x00 }, body: dump ops[op], 'u->wst', 'u->rst' }
|
||||||
|
allops[i + 0x40 + 1] = { n: { i + 0x40 }, body: dump ops[op], 'u->rst', 'u->wst' }
|
||||||
|
allops[i + 0x80 + 1] = { n: { i + 0x80 }, body: dump ops['keep_' .. op], 'u->wst', 'u->rst' }
|
||||||
|
allops[i + 0xc0 + 1] = { n: { i + 0xc0 }, body: dump ops['keep_' .. op], 'u->rst', 'u->wst' }
|
||||||
|
i += 1
|
||||||
|
|
||||||
|
i = 0
|
||||||
|
wanted = false
|
||||||
|
for l in assert io.lines 'src/assembler.c'
|
||||||
|
if l == 'char ops[][4] = {'
|
||||||
|
wanted = true
|
||||||
|
elseif l == '};'
|
||||||
|
wanted = false
|
||||||
|
elseif wanted
|
||||||
|
for op in l\gmatch '"(...)"'
|
||||||
|
i += 1
|
||||||
|
allops[i + 0x00].name = op
|
||||||
|
allops[i + 0x20].name = op .. '2'
|
||||||
|
allops[i + 0x40].name = op .. 'r'
|
||||||
|
allops[i + 0x60].name = op .. '2r'
|
||||||
|
allops[i + 0x80].name = op .. 'k'
|
||||||
|
allops[i + 0xa0].name = op .. '2k'
|
||||||
|
allops[i + 0xc0].name = op .. 'kr'
|
||||||
|
allops[i + 0xe0].name = op .. '2kr'
|
||||||
|
|
||||||
|
for i = 1, 256
|
||||||
|
if not allops[i]
|
||||||
|
continue
|
||||||
|
for j = i + 1, 256
|
||||||
|
if allops[i].body == allops[j].body
|
||||||
|
table.insert allops[i].n, (table.remove allops[j].n)
|
||||||
|
allops[j].body = nil
|
||||||
|
|
||||||
|
with assert io.open 'src/uxn-fast.c', 'w'
|
||||||
|
f = assert io.open 'src/uxn.c'
|
||||||
|
while true
|
||||||
|
l = f\read '*l'
|
||||||
|
\write '%s\n'\format l
|
||||||
|
if l == '*/'
|
||||||
|
break
|
||||||
|
\write '\n'
|
||||||
|
\write [[
|
||||||
|
/*
|
||||||
|
^
|
||||||
|
/!\ THIS FILE IS AUTOMATICALLY GENERATED
|
||||||
|
---
|
||||||
|
|
||||||
|
Its contents can get overwritten with the processed contents of src/uxn.c.
|
||||||
|
See etc/mkuxn-fast.moon for instructions.
|
||||||
|
|
||||||
|
*/
|
||||||
|
]]
|
||||||
|
while true
|
||||||
|
l = f\read '*l'
|
||||||
|
if l\match' push' or l\match'[ *]pop'
|
||||||
|
continue
|
||||||
|
if l == '/* Stack */'
|
||||||
|
break
|
||||||
|
\write '%s\n'\format l
|
||||||
|
\write [[
|
||||||
|
/* clang-format on */
|
||||||
|
|
||||||
|
#pragma mark - Core
|
||||||
|
|
||||||
|
int
|
||||||
|
evaluxn(Uxn *u, Uint16 vec)
|
||||||
|
{
|
||||||
|
Uint8 instr;
|
||||||
|
u->ram.ptr = vec;
|
||||||
|
while(u->ram.ptr) {
|
||||||
|
instr = u->ram.dat[u->ram.ptr++];
|
||||||
|
switch(instr) {
|
||||||
|
#pragma GCC diagnostic push
|
||||||
|
#pragma GCC diagnostic ignored "-Wunused-value"
|
||||||
|
#pragma GCC diagnostic ignored "-Wunused-variable"
|
||||||
|
]]
|
||||||
|
for i = 1, 256
|
||||||
|
if not allops[i].body
|
||||||
|
continue
|
||||||
|
for n in *allops[i].n
|
||||||
|
\write '\t\tcase 0x%02x: /* %s */\n'\format n, allops[n + 1].name
|
||||||
|
\write '\t\t\t__asm__( "evaluxn_%02x_%s:" );\n'\format allops[i].n[1], allops[i].name
|
||||||
|
\write allops[i].body
|
||||||
|
\write [[
|
||||||
|
#pragma GCC diagnostic pop
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return 1;
|
||||||
|
#ifndef NO_STACK_CHECKS
|
||||||
|
error:
|
||||||
|
printf("Halted: %s-stack %sflow#%04x, at 0x%04x\n",
|
||||||
|
u->wst.error ? "Working" : "Return",
|
||||||
|
((u->wst.error | u->rst.error) & 2) ? "over" : "under",
|
||||||
|
instr,
|
||||||
|
u->ram.ptr);
|
||||||
|
return 0;
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
int
|
||||||
|
]]
|
||||||
|
wanted = false
|
||||||
|
while true
|
||||||
|
l = f\read '*l'
|
||||||
|
if not l
|
||||||
|
break
|
||||||
|
if l\match '^bootuxn'
|
||||||
|
wanted = true
|
||||||
|
if wanted
|
||||||
|
\write '%s\n'\format l
|
||||||
|
f\close!
|
||||||
|
\close!
|
||||||
|
|
||||||
|
|
@ -13,6 +13,18 @@ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
||||||
WITH REGARD TO THIS SOFTWARE.
|
WITH REGARD TO THIS SOFTWARE.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
/*
|
||||||
|
^
|
||||||
|
/!\ THIS FILE IS AUTOMATICALLY GENERATED
|
||||||
|
---
|
||||||
|
|
||||||
|
Its contents can get overwritten with the processed contents of src/uxn.c.
|
||||||
|
See etc/mkuxn-fast.moon for instructions.
|
||||||
|
|
||||||
|
*/
|
||||||
|
|
||||||
|
#pragma mark - Operations
|
||||||
|
|
||||||
/* clang-format off */
|
/* clang-format off */
|
||||||
void mempoke8(Uint8 *m, Uint16 a, Uint8 b) { m[a] = b; }
|
void mempoke8(Uint8 *m, Uint16 a, Uint8 b) { m[a] = b; }
|
||||||
Uint8 mempeek8(Uint8 *m, Uint16 a) { return m[a]; }
|
Uint8 mempeek8(Uint8 *m, Uint16 a) { return m[a]; }
|
||||||
|
|
@ -24,6 +36,8 @@ void devpoke16(Device *d, Uint8 a, Uint16 b) { devpoke8(d, a, b >> 8); devpoke
|
||||||
Uint16 devpeek16(Device *d, Uint16 a) { return (devpeek8(d, a) << 8) + devpeek8(d, a + 1); }
|
Uint16 devpeek16(Device *d, Uint16 a) { return (devpeek8(d, a) << 8) + devpeek8(d, a + 1); }
|
||||||
/* clang-format on */
|
/* clang-format on */
|
||||||
|
|
||||||
|
#pragma mark - Core
|
||||||
|
|
||||||
int
|
int
|
||||||
evaluxn(Uxn *u, Uint16 vec)
|
evaluxn(Uxn *u, Uint16 vec)
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -3,6 +3,7 @@
|
||||||
|
|
||||||
/*
|
/*
|
||||||
Copyright (u) 2021 Devine Lu Linvega
|
Copyright (u) 2021 Devine Lu Linvega
|
||||||
|
Copyright (u) 2021 Andrew Alderwick
|
||||||
|
|
||||||
Permission to use, copy, modify, and distribute this software for any
|
Permission to use, copy, modify, and distribute this software for any
|
||||||
purpose with or without fee is hereby granted, provided that the above
|
purpose with or without fee is hereby granted, provided that the above
|
||||||
|
|
@ -176,8 +177,10 @@ int
|
||||||
loaduxn(Uxn *u, char *filepath)
|
loaduxn(Uxn *u, char *filepath)
|
||||||
{
|
{
|
||||||
FILE *f;
|
FILE *f;
|
||||||
if(!(f = fopen(filepath, "rb")))
|
if(!(f = fopen(filepath, "rb"))) {
|
||||||
return haltuxn(u, "Missing input rom.", 0);
|
printf("Halted: Missing input rom.\n");
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
fread(u->ram.dat + PAGE_PROGRAM, sizeof(u->ram.dat) - PAGE_PROGRAM, 1, f);
|
fread(u->ram.dat + PAGE_PROGRAM, sizeof(u->ram.dat) - PAGE_PROGRAM, 1, f);
|
||||||
printf("Uxn loaded[%s].\n", filepath);
|
printf("Uxn loaded[%s].\n", filepath);
|
||||||
return 1;
|
return 1;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue