Apple-2gs-SW/ORCA-C
1
0
Fork 0
mirror of https://github.com/byteworksinc/ORCA-C.git synced 2025-02-11 07:30:24 +00:00
Code Issues Projects Releases Wiki Activity

Do not enter the editor with a negative file displacement.

Browse Source 
This could happen due to errors on the command line, e.g.:

cmpl +T +E file.c cc=(invalid)
This commit is contained in:
Stephen Heumann 2022-10-22 12:54:59 -05:00
parent 946c6c1d55
commit 859aa4a20a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CCommon.pas
View File

@ -816,6 +816,8 @@ var
msgGS: gsosInString; {message}
begin {ExitToEditor}
if disp < 0 then {sanity check disp}
disp := 0;
msgGS.size := length(msg^); {set up the error message}
msgGS.theString := msg^;
liDCBGS.org := disp; {mark the error}