Fix native code function pointer
This commit is contained in:
parent
7927df6d41
commit
00c59ce6a4
|
@ -173,6 +173,9 @@ bcode:
|
|||
|
||||
__asm bcexec
|
||||
{
|
||||
#ifdef OSCAR_NATIVE_ALL
|
||||
jmp (accu)
|
||||
#else
|
||||
lda ip
|
||||
pha
|
||||
lda ip + 1
|
||||
|
@ -197,9 +200,16 @@ bdone: nop
|
|||
pla
|
||||
sta ip
|
||||
rts
|
||||
#endif
|
||||
}
|
||||
|
||||
__asm jmpaddr
|
||||
{
|
||||
jmp (addr)
|
||||
}
|
||||
|
||||
#pragma runtime(bcexec, bcexec)
|
||||
#pragma runtime(jmpaddr, jmpaddr)
|
||||
|
||||
__asm negaccu
|
||||
{
|
||||
|
|
|
@ -206,6 +206,7 @@ bool Compiler::GenerateCode(void)
|
|||
RegisterRuntime(loc, Ident::Unique("ffromi"));
|
||||
RegisterRuntime(loc, Ident::Unique("fcmp"));
|
||||
RegisterRuntime(loc, Ident::Unique("bcexec"));
|
||||
RegisterRuntime(loc, Ident::Unique("jmpaddr"));
|
||||
RegisterRuntime(loc, Ident::Unique("mul32"));
|
||||
RegisterRuntime(loc, Ident::Unique("divs32"));
|
||||
RegisterRuntime(loc, Ident::Unique("mods32"));
|
||||
|
|
Loading…
Reference in New Issue