Commit b78d1b4

Nick Faro committed on
tweak tracker to output correct amount of bytes
commit b78d1b4f2a9e8a738c85dca8c2d2259ee71a3b06 parent 13720ac
5 changed files +6−7
Modifiedcodegen.pas +2−2
@@ -278,8 +278,8 @@ begin
278 if Instruments[I].SubpatternEnabled then 278 if Instruments[I].SubpatternEnabled then
279 ResultSL.Insert(ResultSL.Count-1, Format('dw %sSP%d', [TypePrefix, I])) 279 ResultSL.Insert(ResultSL.Count-1, Format('dw %sSP%d', [TypePrefix, I]))
280 else 280 else
281 ResultSL.Insert(ResultSL.Count-1, 'db 0'); 281 ResultSL.Insert(ResultSL.Count-1, 'dw 0');
282 ResultSL.Add('ds '+IfThen(Instruments[I].Type_ = itNoise, '5', '3')); 282 ResultSL.Add('ds '+IfThen(Instruments[I].Type_ = itNoise, '4', '2'));
283 ResultSL.Add(''); 283 ResultSL.Add('');
284 end; 284 end;
285 285
ModifiedhUGEDriver +1−1
@@ -1 +1 @@
1 Subproject commit daf226f7885512e623c3ffe02f3b7215a3deecad 1 Subproject commit bce1d3951bf089416c33676b130d3f4756a6c876
ModifiedhUGETracker.lpi +1−1
@@ -396,8 +396,8 @@
396 <Other> 396 <Other>
397 <Verbosity> 397 <Verbosity>
398 <ShoLineNum Value="True"/> 398 <ShoLineNum Value="True"/>
399 <ShowAll Value="True"/>
400 </Verbosity> 399 </Verbosity>
400 <WriteFPCLogo Value="False"/>
401 <CustomOptions Value="-dBorland -dVer150 -dDelphi7 -dCompiler6_Up -dPUREPASCAL -dDEVELOPMENT"/> 401 <CustomOptions Value="-dBorland -dVer150 -dDelphi7 -dCompiler6_Up -dPUREPASCAL -dDEVELOPMENT"/>
402 </Other> 402 </Other>
403 </CompilerOptions> 403 </CompilerOptions>
ModifiedhUGETracker.lpr +0−1
@@ -76,7 +76,6 @@ begin
76 {$endif} 76 {$endif}
77 77
78 Application.Scaled:=True; 78 Application.Scaled:=True;
79 Application.Title:='hUGETracker';
80 Application.Initialize; 79 Application.Initialize;
81 Application.CreateForm(TfrmTracker, frmTracker); 80 Application.CreateForm(TfrmTracker, frmTracker);
82 Application.CreateForm(TfrmAboutHugeTracker, frmAboutHugetracker); 81 Application.CreateForm(TfrmAboutHugeTracker, frmAboutHugetracker);
Modifiedtracker.lfm +2−2
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 1294 2 Left = 99
3 Height = 857 3 Height = 857
4 Top = 208 4 Top = 487
5 Width = 1318 5 Width = 1318
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'