From 995885540bb8ef947e3488b335c0c2f769fb2ad6 Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Mon, 4 Mar 2024 19:03:13 -0600
Subject: [PATCH] Correct a comment.

---
 Gen.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Gen.pas b/Gen.pas
index 6229af6..b27d586 100644
--- a/Gen.pas
+++ b/Gen.pas
@@ -3696,7 +3696,7 @@ var
       GenNative(m_inc_dirx, direct, 2, nil, 0);
       GenLab(lab1);
       end {if}
-   else {if op in [pc_gdl,pc_gld] then} begin
+   else {if op in [pc_ldl,pc_lld] then} begin
       lab1 := GenLabel;
       if p = 1 then begin
 	 GenNative(m_lda_dirx, direct, 0, nil, 0);