snark13
46bd9ad0f1
gfx_wait_vsync() и sleep() раньше предполагали, что КАЖДОЕ прерывание на векторе 0xFF — кадровый тик; с CBL/клавиатурой на том же векторе это уже не так. gfx_wait_vsync(): вместо halt — polling бита 5 порта 0xFE (реальная позиция луча, см. MAME kbd_fe_r), доступного пока включён CBL bit7 порта 0x004E. Разделяемое владение портом с CBL через _cbl_port_ref/unref (тот же ref-counting паттерн, что у IM2-таблицы) — cbl_close() возвращает "немой" режим вместо полного выключения, если gfx ещё держит ссылку. Fallback на halt при таймауте. sleep()/delayms(): калиброванный busy-wait по духу delayms.asm вместо подсчёта halt-пробуждений. Калибровка одна на кадр (не на секунду — не переполняет uint16_t и не требует умножения/32-бит арифметики), общий движок libc/time/_sleep_calib.c для обеих функций. Fallback на старое поведение при EBUSY (фрейм-хук занят другим irq_install()). Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
70 lines
1.7 KiB
C
70 lines
1.7 KiB
C
#include <stdio.h>
|
|
#include <unistd.h>
|
|
#include <setjmp.h>
|
|
#include <sprinter_exit.h>
|
|
|
|
static void bye1(void) { puts("[atexit] bye1 (registered first, runs last)"); }
|
|
static void bye2(void) { puts("[atexit] bye2 (registered second)"); }
|
|
static void bye3(void) { puts("[atexit] bye3 (registered third, runs first)"); }
|
|
|
|
static jmp_buf env;
|
|
static int attempt;
|
|
|
|
static void might_fail(int n)
|
|
{
|
|
printf(" might_fail(%d) running...\n", n);
|
|
if (n == 2) {
|
|
puts(" -> longjmp(env, 42)");
|
|
longjmp(env, 42);
|
|
/* not reached */
|
|
}
|
|
printf(" might_fail(%d) returned normally\n", n);
|
|
}
|
|
|
|
int main(void)
|
|
{
|
|
puts("Sprinter runtime features test:");
|
|
puts("");
|
|
|
|
/* --- atexit registration --- */
|
|
atexit(bye1);
|
|
atexit(bye2);
|
|
atexit(bye3);
|
|
|
|
/* --- setjmp / longjmp --- */
|
|
puts("setjmp/longjmp:");
|
|
int r = setjmp(env);
|
|
if (r == 0) {
|
|
attempt = 1;
|
|
puts(" first arrival from setjmp (r=0)");
|
|
might_fail(attempt);
|
|
attempt = 2;
|
|
might_fail(attempt);
|
|
puts(" -- this line is NOT reached");
|
|
} else {
|
|
printf(" resumed via longjmp, setjmp returned %d (attempt=%d)\n",
|
|
r, attempt);
|
|
}
|
|
|
|
/* --- sleep --- */
|
|
puts("");
|
|
puts("sleep(5): pausing 5 seconds...");
|
|
sleep(5);
|
|
puts(" done.");
|
|
|
|
/* --- delayms --- */
|
|
puts("");
|
|
puts("delayms(500) x 6: pausing ~3 seconds...");
|
|
for (int i = 0; i < 6; i++) delayms(500);
|
|
puts(" done.");
|
|
|
|
puts("");
|
|
puts("Press any key, atexit chain will run after.");
|
|
(void)getchar();
|
|
|
|
/* Use exit() to drive the atexit chain (vs returning from main, which
|
|
* doesn't necessarily go through exit() under SDCC). */
|
|
exit(0);
|
|
return 0;
|
|
}
|