Commit d769677

Nick Faro committed on
Fix segfaulting on FPC 3.2.2
commit d769677adef3cf0c2e1815e749d7b64cbe1a41e8 parent 6e24c1c
2 changed files +34−1
Modifiedtrackergrid.pas +11−1
@@ -341,11 +341,21 @@ begin
341 end; 341 end;
342 342
343 destructor TTrackerGrid.Destroy; 343 destructor TTrackerGrid.Destroy;
344 var
345 Q: TUndoRedoAction;
344 begin 346 begin
345 inherited Destroy; 347 // There's an FPC version which includes a bugged destructor for TDeque, in
348 // which it will segfault when freeing an empty TDeque. To avoid this, we put
349 // an element in it first. TODO: Remove this ridiculous hack once the fix gets
350 // released to the stable channel.
351 Q.After := nil;
352 Q.Before := nil;
353 Performed.PushFront(Q);
346 354
347 Performed.Free; 355 Performed.Free;
348 Recall.Free; 356 Recall.Free;
357
358 inherited;
349 end; 359 end;
350 360
351 procedure TTrackerGrid.Paint; 361 procedure TTrackerGrid.Paint;
Modifiedvgm.pas +23−0
@@ -18,5 +18,28 @@ procedure VGMWait(Amount: Integer);
18 18
19 implementation 19 implementation
20 20
21 var
22 VGMFile: TFileStream;
23
24 procedure BeginRecordingVGM(F: String);
25 begin
26 VGMFile := TFileStream.Create(F, fmOpenWrite);
27 end;
28
29 procedure EndRecordingVGM;
30 begin
31
32 end;
33
34 procedure VGMWriteReg(Command: Integer; Param: Integer);
35 begin
36
37 end;
38
39 procedure VGMWait(Amount: Integer);
40 begin
41
42 end;
43
21 end. 44 end.
22 45