Apple-2gs-SW
/
rlint
mirror of https://github.com/ksherlock/rlint.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

NewWindow2 checks for null title/color/control lists.

This commit is contained in:
Kelvin Sherlock 2018-07-27 08:42:53 -04:00
parent aac93fc859
commit dc658f8533
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
control.c
View File

@ -173,16 +173,18 @@ void check_rWindParam1(Handle h) {
unsigned desc = ptr->p1InDesc;
ref = (Ref)ptr->p1Title;
if (desc & 0x0200) check(rPString, ref);
if (ref && (desc & 0x0200)) check(rPString, ref);
ref = (Ref)ptr->p1ColorTable;
if (desc & 0x0800) check(rWindColor, ref);
if (ref && (desc & 0x0800)) check(rWindColor, ref);
ref = (Ref)ptr->p1ControlList;
switch(desc & 0xff) {
case singleResource: check(rControlTemplate, ref); break;
case resourceToResource: check(rControlList, ref); break;
default: break; /* warn about invalid value ? */
if (ref) {
switch(desc & 0xff) {
case singleResource: check(rControlTemplate, ref); break;
case resourceToResource: check(rControlList, ref); break;
default: break; /* warn about invalid value ? */
}
}
}