libbgi: funcptr-диспетч clip/noclip спрайтовых ядер + снятие src[0]-фикса

Диспетчеризация clip/noclip через указатели _gfx_blit_fn/_gfx_heal_fn
(common/_gfx_sprite_fns.c, дефолт clip): gfx_sprite_clip() — теперь
модуль, переключает указатели один раз; sprite_update/putsprite/
movesprite зовут через указатель — ветка if(clip) из горячего цикла
убрана (съедала половину выигрыша noclip). Программа без вызова
gfx_sprite_clip() noclip-ядра не линкует.

Замер dev-MAME (16 шаров, uncapped): clip 50 → noclip 60-61 fps
(+20-22%). Регресс tests/sprites (A/B PASS), size-check OK
(balls −237 Б, sprites −3177 Б — отвязались лишние ядра).

Фикс CPU-байта write-триггера (preread + EX AF,AF') снят: точная
dev-MAME эмулирует ПЛМ, подавляющую CPU-байт при активном burst'е —
подтверждено по байтам VRAM (tests/blitw col0 = GREEN через
read_vram MCP-моста). Для heal фикс был избыточен всегда (банк 0x50
перезаписывает dst[0]). Строки фикса оставлены закомментированными
в трёх leaf'ах на случай отличий реального железа; шапки и §9а/§9б
дизайна обновлены. НА ЖЕЛЕЗЕ ПЕРЕПРОВЕРИТЬ.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

libbgi/common/_gfx_blit_sprite.c

@@ -35,7 +35,6 @@
  *                    умножения: обычно sy == 0).
  */
 #include "../_bgi.h"
-#include <stdio.h>
 
 void _gfx_blit_sprite(int x, int y, const void *img,
                       int sx, int sy, uint8_t w, uint8_t h)

libbgi/common/_gfx_sprite_fns.c

@@ -0,0 +1,16 @@
+/*
+ * _gfx_sprite_fns — указатели диспетчеризации clip/noclip спрайтовых ядер
+ * (data-модуль).  Дефолт — clip-ядра (безопасно); gfx_sprite_clip()
+ * перенаправляет на noclip и обратно.  Горячие call-site'ы
+ * (sprite_update/putsprite/movesprite) зовут через указатель — один
+ * call-site без if в цикле → тесный codegen (ветка if(clip) в
+ * sprite_update съедала половину выигрыша noclip: 52 вместо 57 fps).
+ *
+ * Программа, не зовущая gfx_sprite_clip(), тянет только clip-ядра
+ * (noclip-ядра referenced лишь из модуля gfx_sprite_clip.c — DCE).
+ * Ненулевой дефолт → в _INITIALIZED (как _gfx_bank).
+ */
+#include "../_bgi.h"
+
+_gfx_blit_fp _gfx_blit_fn = _gfx_blit_sprite;
+_gfx_heal_fp _gfx_heal_fn = _gfx_heal_sprite;

libbgi/common/gfx_sprite_clip.c

@@ -0,0 +1,25 @@
+/*
+ * gfx_sprite_clip — включить/выключить клип спрайтов по экрану.
+ * on=1 (дефолт) — clip-ядра; on=0 — noclip-ядра (приложение ГАРАНТИРУЕТ,
+ * что спрайты целиком на экране; ~+19% на анимации — клип-кода в noclip
+ * нет физически, см. _gfx_blit_sprite_noclip.c).
+ *
+ * Переключение — перенаправлением указателей _gfx_blit_fn/_gfx_heal_fn
+ * (ОДИН раз здесь, не ветка в горячем цикле).  Флаг _gfx_sprite_clip
+ * остаётся для gfx_get_sprite_clip().  Настоящая функция (не inline):
+ * только этот модуль ссылается на noclip-ядра — программа без вызова
+ * gfx_sprite_clip() их не линкует.
+ */
+#include "../_bgi.h"
+
+void gfx_sprite_clip(uint8_t on)
+{
+    _gfx_sprite_clip = on;
+    if (on) {
+        _gfx_blit_fn = _gfx_blit_sprite;
+        _gfx_heal_fn = _gfx_heal_sprite;
+    } else {
+        _gfx_blit_fn = _gfx_blit_sprite_noclip;
+        _gfx_heal_fn = _gfx_heal_sprite_noclip;
+    }
+}

libbgi/common/movesprite.c

@@ -22,8 +22,7 @@ void movesprite(int oldx, int oldy, int x, int y, const void *img)
 
     gfx_set_bank(GFX_BANK_NORMAL);
     _bgi_begin();
-    if (_gfx_sprite_clip) _gfx_heal_sprite(oldx, oldy, p[0], p[2]);
-    else                  _gfx_heal_sprite_noclip(oldx, oldy, p[0], p[2]);
+    (*_gfx_heal_fn)(oldx, oldy, p[0], p[2]);
     _bgi_end();
     gfx_set_bank(saved);
 

libbgi/common/putsprite.c

@@ -18,8 +18,7 @@ void putsprite(int x, int y, const void *img)
 
     gfx_set_bank(GFX_BANK_SPRITE);
     _bgi_begin();
-    if (_gfx_sprite_clip) _gfx_blit_sprite(x, y, img, 0, 0, p[0], p[2]);
-    else                  _gfx_blit_sprite_noclip(x, y, img, 0, 0, p[0], p[2]);
+    (*_gfx_blit_fn)(x, y, img, 0, 0, p[0], p[2]);
     _bgi_end();
     gfx_set_bank(saved);
 }

libbgi/common/sprite_update.c

@@ -31,7 +31,6 @@ void sprite_update(sprite_t *arr, uint8_t count)
     uint8_t p     = gfx_get_draw_page();               /* 0 / 1        */
     uint8_t dbit  = p ? _SPR_DIRTY1 : _SPR_DIRTY0;
     uint8_t saved = gfx_get_bank();
-    uint8_t clip  = _gfx_sprite_clip;   /* раз на кадр: clip- или noclip-ядро */
     uint8_t i;
     sprite_t *s;
 
@@ -40,8 +39,7 @@ void sprite_update(sprite_t *arr, uint8_t count)
     _bgi_begin();
     for (i = 0, s = arr; i < count; i++, s++) {
         if (s->drawn[p].on && (s->flags & (dbit | SPR_ALWAYS))) {
-            if (clip) _gfx_heal_sprite(s->drawn[p].x, s->drawn[p].y, s->w, s->h);
-            else      _gfx_heal_sprite_noclip(s->drawn[p].x, s->drawn[p].y, s->w, s->h);
+            (*_gfx_heal_fn)(s->drawn[p].x, s->drawn[p].y, s->w, s->h);
             s->drawn[p].on = 0;
         }
     }
@@ -53,8 +51,7 @@ void sprite_update(sprite_t *arr, uint8_t count)
     for (i = 0, s = arr; i < count; i++, s++) {
         if (s->flags & (dbit | SPR_ALWAYS)) {
             if (s->flags & SPR_VISIBLE) {
-                if (clip) _gfx_blit_sprite(s->x, s->y, s->img, s->sx, s->sy, s->w, s->h);
-                else      _gfx_blit_sprite_noclip(s->x, s->y, s->img, s->sx, s->sy, s->w, s->h);
+                (*_gfx_blit_fn)(s->x, s->y, s->img, s->sx, s->sy, s->w, s->h);
                 s->drawn[p].x  = s->x;
                 s->drawn[p].y  = s->y;
                 s->drawn[p].on = 1;