Commit 135adb9

Nick committed on
Fixing bugs, added warning for font files
commit 135adb955753f990de6f367d9cc7c7e5d9bfffd5 parent 8198950
5 changed files +52−4
ModifiedGBEmu.lpi +42−2
@@ -24,8 +24,48 @@
24 </XPManifest> 24 </XPManifest>
25 <Icon Value="0"/> 25 <Icon Value="0"/>
26 </General> 26 </General>
27 <BuildModes Count="1"> 27 <BuildModes Count="2">
28 <Item1 Name="Default" Default="True"/> 28 <Item1 Name="Development" Default="True"/>
29 <Item2 Name="Production">
30 <CompilerOptions>
31 <Version Value="11"/>
32 <PathDelim Value="\"/>
33 <SearchPaths>
34 <IncludeFiles Value="GPU;CPU;Sound;Global;$(ProjOutDir)"/>
35 <OtherUnitFiles Value="CPU;Sound;Global;SDL2_headers"/>
36 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
37 </SearchPaths>
38 <Parsing>
39 <SyntaxOptions>
40 <CStyleOperator Value="False"/>
41 <CPPInline Value="False"/>
42 </SyntaxOptions>
43 </Parsing>
44 <CodeGeneration>
45 <SmartLinkUnit Value="True"/>
46 <TargetCPU Value="i386"/>
47 <TargetOS Value="win32"/>
48 <Optimizations>
49 <OptimizationLevel Value="4"/>
50 </Optimizations>
51 </CodeGeneration>
52 <Linking>
53 <Debugging>
54 <UseLineInfoUnit Value="False"/>
55 <StripSymbols Value="True"/>
56 </Debugging>
57 <LinkSmart Value="True"/>
58 <Options>
59 <Win32>
60 <GraphicApplication Value="True"/>
61 </Win32>
62 </Options>
63 </Linking>
64 <Other>
65 <CustomOptions Value="-dBorland -dVer150 -dDelphi7 -dCompiler6_Up -dPUREPASCAL -CfAVX2 -CpCOREAVX2 OpCOREAVX2 -Si -Sv"/>
66 </Other>
67 </CompilerOptions>
68 </Item2>
29 </BuildModes> 69 </BuildModes>
30 <PublishOptions> 70 <PublishOptions>
31 <Version Value="2"/> 71 <Version Value="2"/>
Modifiedcodegen.pas +2−1
@@ -211,7 +211,8 @@ begin
211 211
212 OutSL := TStringList.Create; 212 OutSL := TStringList.Create;
213 Proc := TProcess.Create(nil); 213 Proc := TProcess.Create(nil);
214 Proc.Options := Proc.Options + [poWaitOnExit, poUsePipes, poStdErrToOutput]; 214 Proc.Options := Proc.Options + [poWaitOnExit, poUsePipes, poStdErrToOutput,
215 poNoConsole];
215 216
216 Proc.Executable := 'rgbasm'; 217 Proc.Executable := 'rgbasm';
217 Proc.Parameters.Clear; 218 Proc.Parameters.Clear;
ModifiedhUGEDriver +1−1
@@ -1 +1 @@
1 Subproject commit 160c12c1e3e709df05160b4904b93b882f432c84 1 Subproject commit 7f96aea503519f0643e400c94fb6e256f3e787d7
Modifiedtracker.pas +7−0
@@ -856,6 +856,11 @@ var
856 I: Integer; 856 I: Integer;
857 Section: TCollectionItem; 857 Section: TCollectionItem;
858 begin 858 begin
859 if Screen.Fonts.IndexOf('Pixelite') < 0 then
860 MessageDlg('Warning', 'You don''t have the Pixelite .FON file installed, '+
861 'which means the tracker view will be messed up. Please install the font and restart!',
862 mtWarning, [mbOk], 0);
863
859 ReturnNilIfGrowHeapFails := False; 864 ReturnNilIfGrowHeapFails := False;
860 PreviewingInstrument := -1; 865 PreviewingInstrument := -1;
861 866
@@ -1387,6 +1392,8 @@ var
1387 I: Integer; 1392 I: Integer;
1388 Samp: Integer; 1393 Samp: Integer;
1389 begin 1394 begin
1395 if not Playing then Exit;
1396
1390 Max1 := -1; 1397 Max1 := -1;
1391 Max2 := -1; 1398 Max2 := -1;
1392 for I := 0 to SAMPLE_BUFFER_SIZE do begin 1399 for I := 0 to SAMPLE_BUFFER_SIZE do begin