Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-01-28 22:30:13 +00:00
Code Issues Projects Releases Wiki Activity

Correct a comment.

Browse Source
This commit is contained in:
Stephen Heumann 2024-03-04 19:03:13 -06:00
parent 34c5be5cab
commit 995885540b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Gen.pas
View File

@ -3696,7 +3696,7 @@ var
GenNative(m_inc_dirx, direct, 2, nil, 0); GenNative(m_inc_dirx, direct, 2, nil, 0);
GenLab(lab1); GenLab(lab1);
end {if} end {if}
else {if op in [pc_gdl,pc_gld] then} begin else {if op in [pc_ldl,pc_lld] then} begin
lab1 := GenLabel; lab1 := GenLabel;
if p = 1 then begin if p = 1 then begin
GenNative(m_lda_dirx, direct, 0, nil, 0); GenNative(m_lda_dirx, direct, 0, nil, 0);