c85eb7493abc169bf80d1c3c9f75aca075dd025e
3 interface
6 procedure g_ReadSubResource (wad, section0, name0, section1, name1: String; out data: PByte; out len: Integer);
8 implementation
13 var
17 begin
22 sfsGCDisable;
24 begin
28 begin
31 //stream.ReadBuffer(data, len); (* leads to segfault *)
34 stream.Destroy
35 end
37 sfsGCEnable
40 procedure g_ReadSubResource (wad, section0, name0, section1, name1: String; out data: PByte; out len: Integer);
41 var
45 begin
52 sfsGCDisable;
54 begin
58 begin
60 begin
64 begin
67 //stream1.ReadBuffer(data, len); (* leads to segfault *)
70 stream1.Destroy
71 end
73 //stream0.Destroy (* leads to memory corruption *)
74 end
76 sfsGCEnable;