AI_Slop/WinComm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix Ofs() syntax: GMEM_FIXED offset is always 0

Browse source 
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>
This commit is contained in:
Scott Duensing 2026-03-02 18:26:35 -06:00
parent 4bbc382070
commit 40dabea161
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
delphi/KPANSI.PAS
View file

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