From 40dabea161f443333211e75ab7576fc65d7c7efc Mon Sep 17 00:00:00 2001
From: Scott Duensing <scott@duensing.com>
Date: Mon, 2 Mar 2026 18:26:35 -0600
Subject: [PATCH] Fix Ofs() syntax: GMEM_FIXED offset is always 0

Delphi 1.0 Ofs() rejects dereferenced pointer expressions.
GMEM_FIXED allocations always have offset 0, so hardcode it.

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

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