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

Avoid null pointer dereferences when generating code for initializers.

Browse Source 
These should have been harmless under ORCA/Pascal on the IIgs, assuming the code is otherwise functioning properly.
This commit is contained in:
Stephen Heumann 2019-12-22 19:12:05 -06:00
parent 2190b7e7ed
commit 095060ca70
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Parser.pas
View File

@ -3971,7 +3971,8 @@ var
count := count - long(elements).lsw;
if count = 0 then begin
iPtr := iPtr^.next;
count := iPtr^.count;
if iPtr <> nil then
count := iPtr^.count;
end; {if}
end {if}
else begin
@ -3981,7 +3982,8 @@ var
count := count-1;
if count = 0 then begin
iPtr := iPtr^.next;
count := iPtr^.count;
if iPtr <> nil then
count := iPtr^.count;
end; {if}
end; {if}
disp := disp+itype^.size;
@ -4043,9 +4045,11 @@ var
count := count-1;
if count = 0 then begin
iPtr := iPtr^.next;
count := iPtr^.count;
bitsize := iPtr^.bitsize;
bitdisp := iPtr^.bitdisp;
if iPtr <> nil then begin
count := iPtr^.count;
bitsize := iPtr^.bitsize;
bitdisp := iPtr^.bitdisp;
end; {if}
end; {if}
end; {if}
if union then