From 4bbc3820705a89e230b2ab9262c5ad3400788c99 Mon Sep 17 00:00:00 2001
From: Scott Duensing <scott@duensing.com>
Date: Mon, 2 Mar 2026 18:25:16 -0600
Subject: [PATCH] Fix Ofs() call: use intermediate variable for typed pointer
 cast

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
---
 delphi/KPANSI.PAS | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/delphi/KPANSI.PAS b/delphi/KPANSI.PAS
index 78460f9..f2443ed 100644
--- a/delphi/KPANSI.PAS
+++ b/delphi/KPANSI.PAS
@@ -2139,8 +2139,9 @@ begin
   CellH  := FCellHeight;
 
   { Extract segments/offsets from far pointers -- pure Pascal, no register clobber }
-  GlyphSeg  := Seg(PPixelBuf(FGlyphBuf)^);
-  GlyphBase := Ofs(PPixelBuf(FGlyphBuf)^);
+  TabPtr    := PPixelBuf(FGlyphBuf);
+  GlyphSeg  := Seg(TabPtr^);
+  GlyphBase := Ofs(TabPtr^);
   PixSeg    := Seg(PPixelBuf(FRowBuf)^);
 
   { Determine which line to render (handles scrollback view) }