git-svn-id: https://spexeah.com:8443/svn/Asuro@286 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

This commit is contained in:
aaron 2017-10-28 14:14:40 +00:00
parent c6a6169a3b
commit 875ce244c3

View File

@ -316,12 +316,21 @@ var
begin begin
count := 0; count := 0;
if prog_if <> $FF then begin
for i:=0 to device_count do begin for i:=0 to device_count do begin
if (devices[i].class_code = class_code) and (devices[i].subclass_class = subclass_code) and (devices[i].prog_if = prog_if) then begin if (devices[i].class_code = class_code) and (devices[i].subclass_class = subclass_code) and (devices[i].prog_if = prog_if) then begin
devices_out[count] := devices[i]; //prog_if devices_out[count] := devices[i];
count := count + 1; count := count + 1;
end; end;
end; end;
end else begin
for i:=0 to device_count do begin
if (devices[i].class_code = class_code) and (devices[i].subclass_class = subclass_code) then begin
devices_out[count] := devices[i];
count := count + 1;
end;
end;
end;
getDeviceInfo := devices_out; getDeviceInfo := devices_out;