![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
VisualBoyAdvance-1.8.0-beta3には嬉しいことにデバッグ用のコンソールがTools->Loggingについています。このコンソールを使えば処理の順番が正しく行われたかのチェックや、変数の値を見ることも可能になります。俗にいうprintfデバックです。
表示にはVBA方式とMappy方式の２種類あり、Mappy方式の方が優れているのでこちらを利用してください。VBA方式は「swi 0xff」を使用してエミュレータの独自処理にフックさせています。実機で動かすと素直にswi命令が動いてしまい、破綻しますので推奨されません。対するMappy方式はldr、andなどの無意味なシグネチャ処理によって実現しています。とても行儀が良いです。
void mappylog(char* buf)
{
asm("mov r2, %0; ldr r0,=0xc0ded00d; and r0,r0" :: "r"(buf) : "r2", "r0");
}
@ Functions available to be used with VBA
@ Compile with GAS
.file "vba.s"
.section .iwram,"ax",%progbits
.code 16
.text
.align 2
.global vbalog
.thumb_func
.type vbalog,function
@ log a message to VBA's output console or GDB console
@ r0=message to log
vbalog:
swi 0xff
bx lr
.data
テキスト出力できるということはprintf関数で%xや%dで表示しよう、と考えたくなるものです。しかし自分の胸に手を当てて少し考えてください。標準ライブラリを使うということは、文明の利器を使ってラクな道を選択しただけのように思えないでしょうか。GBAプログラミングの楽しみとは、大いなる無駄であることが醍醐味です。アウトドアキャンプを満喫したいのなら火起こしにライターを使うのではなく、自然に落ちているものだけで自作すべきです。つまりprintfを自作するべきだと私は考えています（ぉ。自然に帰りましょう。
typedef char* va_list;
#define __vasz(x) ((sizeof(x)+sizeof(int)-1) & ~(sizeof(int) -1))
#define va_start(ap, n) ((ap) = (va_list)&n + __vasz(n))
#define va_arg(ap, type) (*((type *)((va_list)((ap) = (void *)((va_list)(ap) + __vasz(type))) - __vasz(type))))
#define va_end(ap)
//---------------------------------------------------------------------------
IWRAM_CODE void _Printf(char* format, ...)
{
char sprintfBuf[100] ALIGN(4);
char* ap;
va_start(ap, format);
_DoSprintf(sprintfBuf, format, ap);
va_end(ap);
mappylog(sprintfBuf);
}
//---------------------------------------------------------------------------
IWRAM_CODE char* _Sprintf(char* buf, char* format, ...)
{
char* ap;
va_start(ap, format);
_DoSprintf(buf, format, ap);
va_end(ap);
return buf;
}
//---------------------------------------------------------------------------
IWRAM_CODE void _DoSprintf(char* str, char* fmt, char* ap)
{
s32 val;
char* val2;
char val3;
char c;
s32 col = 0;
char colChr = ' ';
bool isCol;
for(;;)
{
c = *fmt++;
if(c == '\0')
{
*str++ = '\0';
return;
}
if(c != '%')
{
*str++ = c;
continue;
}
c = *fmt++;
if(c == '0')
{
colChr = '0';
c = *fmt++;
}
if(_IsDigit(c) == TRUE)
{
col = c - '0';
isCol = TRUE;
c = *fmt++;
}
else
{
isCol = FALSE;
}
switch(c)
{
case 'd':
val = va_arg(ap, int);
if(val < 0)
{
val *= -1;
*str++ = '-';
}
str = (isCol == TRUE) ? _SprintfNumCol(val, 10, str, col, colChr, TRUE) : _SprintfNum(val, 10, str);
break;
case 'x':
val = va_arg(ap, int);
str = (isCol == TRUE) ? _SprintfHexCol((u32)val, str, col, colChr, TRUE, 'a') : _SprintfHex((u32)val, str, 'a');
break;
case 'X':
val = va_arg(ap, int);
str = (isCol == TRUE) ? _SprintfHexCol((u32)val, str, col, colChr, TRUE, 'A') : _SprintfHex((u32)val, str, 'A');
break;
case 's':
val2 = va_arg(ap, char*);
str = _SprintfString(val2, str);
break;
case 'c':
val3 = va_arg(ap, char);
*str++ = val3;
break;
case '\0':
default:
*str++ = '\0';
return;
}
}
}
//---------------------------------------------------------------------------
IWRAM_CODE char* _SprintfNum(s32 val, s32 base, char* s)
{
s32 c = Mod(val, base);
val = Div(val, base);
if(val > 0)
{
s = _SprintfNum(val, base, s);
}
*s++ = c+'0';
return s;
}
//---------------------------------------------------------------------------
IWRAM_CODE char* _SprintfNumCol(s32 val, s32 base, char* s, s32 col, char colChr, bool isTop)
{
s32 c = Mod(val, base);
val = Div(val, base);
if(col > 1)
{
s = _SprintfNumCol(val, base, s, col-1, colChr, FALSE);
}
if(c != 0 || val != 0 || isTop == TRUE)
{
*s++ = c+'0';
}
else
{
*s++ = colChr;
}
return s;
}
//---------------------------------------------------------------------------
IWRAM_CODE char* _SprintfHexCol(u32 val, char* s, s32 col, char colChr, bool isTop, char hex)
{
u32 c = val & 0xf;
val = val >> 4;
if(col > 1)
{
s = _SprintfHexCol(val, s, col-1, colChr, FALSE, hex);
}
if(c != 0 || val != 0 || isTop == TRUE)
{
*s++ = (c>9) ? c-10+hex : c+'0';
}
else
{
*s++ = colChr;
}
return s;
}
//---------------------------------------------------------------------------
IWRAM_CODE char* _SprintfHex(u32 val, char* s, char hex)
{
if(val >= 0x10)
{
s = _SprintfHex(val >> 4, s, hex);
}
u32 c = val & 0xf;
*s++ = (c>9) ? c-10+hex : c+'0';
return s;
}
//---------------------------------------------------------------------------
IWRAM_CODE char* _SprintfString(char* val, char* s)
{
while(*val != '\0')
{
*s++ = *val++;
}
return s;
}
//---------------------------------------------------------------------------
IWRAM_CODE void mappylog(char* buf)
{
asm("mov r2, %0; ldr r0,=0xc0ded00d; and r0,r0" :: "r"(buf) : "r2", "r0");
}
