Commit eafeffb

Nick Faro committed on
Instrument value finding bug
commit eafeffbb7ec1f47c4508df67945c219d4ff28e64 parent 7f52be6
1 changed files +8−2
Modifiedsrc/codegen.pas +8−2
@@ -47,6 +47,7 @@ var
47 I, J: Integer; 47 I, J: Integer;
48 Pat: PPattern; 48 Pat: PPattern;
49 Cell: TCell; 49 Cell: TCell;
50 InstValue: Integer;
50 Highest: ^Integer; 51 Highest: ^Integer;
51 Waveform: Integer; 52 Waveform: Integer;
52 begin 53 begin
@@ -72,8 +73,13 @@ begin
72 for Cell in Pat^ do begin 73 for Cell in Pat^ do begin
73 if Cell.Instrument = 0 then Continue; 74 if Cell.Instrument = 0 then Continue;
74 75
75 if Cell.Instrument > Highest^ then 76 if InRange(Cell.Instrument, 0, 15) then
76 Highest^ := Cell.Instrument; 77 InstValue := Cell.Instrument
78 else
79 InstValue := 0;
80
81 if InstValue > Highest^ then
82 Highest^ := InstValue;
77 83
78 if (I = 2) then begin // Wave channel 84 if (I = 2) then begin // Wave channel
79 Waveform := Song.Instruments.Wave[Cell.Instrument].Waveform; 85 Waveform := Song.Instruments.Wave[Cell.Instrument].Waveform;