3 interface
6 procedure g_ReadSubResource (wad, section0, name0, section1, name1: String; out data: PByte; out len: Integer);
8 implementation
13 var
17 begin
23 begin
27 begin
30 //stream.ReadBuffer(data, len); (* leads to segfault *)
33 stream.Destroy
34 end
38 procedure g_ReadSubResource (wad, section0, name0, section1, name1: String; out data: PByte; out len: Integer);
39 var
44 begin
53 begin
57 begin
59 begin
63 begin
66 //stream1.ReadBuffer(data, len); (* leads to segfault *)
69 stream1.Destroy
70 end
71 end
72 end
73 else
74 begin
75 stream0.Destroy
76 end
77 end