Commit 4ad942d

Nick committed on
Happy, toxa?
commit 4ad942d92c458d16c2874ad2f3217c68cb2ef0d1 parent cd1e0c4
2 changed files +1−128
DeletedGameboy.lpi +0−127
@@ -1,127 +0,0 @@
1 <?xml version="1.0" encoding="UTF-8"?>
2 <CONFIG>
3 <ProjectOptions>
4 <Version Value="10"/>
5 <PathDelim Value="\"/>
6 <General>
7 <Flags>
8 <MainUnitHasUsesSectionForAllUnits Value="False"/>
9 <MainUnitHasCreateFormStatements Value="False"/>
10 <MainUnitHasTitleStatement Value="False"/>
11 <MainUnitHasScaledStatement Value="False"/>
12 </Flags>
13 <SessionStorage Value="InProjectDir"/>
14 <MainUnit Value="0"/>
15 <Title Value="Gameboy"/>
16 <UseAppBundle Value="False"/>
17 <ResourceType Value="res"/>
18 </General>
19 <VersionInfo>
20 <StringTable ProductVersion=""/>
21 </VersionInfo>
22 <BuildModes Count="1">
23 <Item1 Name="Default" Default="True"/>
24 </BuildModes>
25 <PublishOptions>
26 <Version Value="2"/>
27 </PublishOptions>
28 <RunParams>
29 <local>
30 <FormatVersion Value="1"/>
31 </local>
32 </RunParams>
33 <RequiredPackages Count="1">
34 <Item1>
35 <PackageName Value="LCL"/>
36 </Item1>
37 </RequiredPackages>
38 <Units Count="12">
39 <Unit0>
40 <Filename Value="Gameboy.lpr"/>
41 <IsPartOfProject Value="True"/>
42 </Unit0>
43 <Unit1>
44 <Filename Value="DirectX\DirectDraw.pas"/>
45 <IsPartOfProject Value="True"/>
46 </Unit1>
47 <Unit2>
48 <Filename Value="DirectX\DXCommon.pas"/>
49 <IsPartOfProject Value="True"/>
50 </Unit2>
51 <Unit3>
52 <Filename Value="Gpu\ddraw_out.pas"/>
53 <IsPartOfProject Value="True"/>
54 </Unit3>
55 <Unit4>
56 <Filename Value="Gpu\dib_out.pas"/>
57 <IsPartOfProject Value="True"/>
58 </Unit4>
59 <Unit5>
60 <Filename Value="Global\vars.pas"/>
61 <IsPartOfProject Value="True"/>
62 </Unit5>
63 <Unit6>
64 <Filename Value="Gpu\gfx.pas"/>
65 <IsPartOfProject Value="True"/>
66 </Unit6>
67 <Unit7>
68 <Filename Value="Cpu\z80cpu.pas"/>
69 <IsPartOfProject Value="True"/>
70 <UnitName Value="Z80CPU"/>
71 </Unit7>
72 <Unit8>
73 <Filename Value="Cpu\machine.pas"/>
74 <IsPartOfProject Value="True"/>
75 </Unit8>
76 <Unit9>
77 <Filename Value="Debugger\debugger.pas"/>
78 <IsPartOfProject Value="True"/>
79 </Unit9>
80 <Unit10>
81 <Filename Value="Sound\sound.pas"/>
82 <IsPartOfProject Value="True"/>
83 </Unit10>
84 <Unit11>
85 <Filename Value="mainloop.pas"/>
86 <IsPartOfProject Value="True"/>
87 </Unit11>
88 </Units>
89 </ProjectOptions>
90 <CompilerOptions>
91 <Version Value="11"/>
92 <PathDelim Value="\"/>
93 <SearchPaths>
94 <IncludeFiles Value="DirectX;GPU;Global;CPU;Debugger;Sound"/>
95 <OtherUnitFiles Value="DirectX;GPU;Global;CPU;Debugger;Sound"/>
96 <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
97 </SearchPaths>
98 <Parsing>
99 <SyntaxOptions>
100 <SyntaxMode Value="delphi"/>
101 </SyntaxOptions>
102 </Parsing>
103 <Linking>
104 <Options>
105 <Win32>
106 <GraphicApplication Value="True"/>
107 </Win32>
108 </Options>
109 </Linking>
110 <Other>
111 <CustomOptions Value="-dBorland -dVer150 -dDelphi7 -dCompiler6_Up -dPUREPASCAL"/>
112 </Other>
113 </CompilerOptions>
114 <Debugging>
115 <Exceptions Count="3">
116 <Item1>
117 <Name Value="EAbort"/>
118 </Item1>
119 <Item2>
120 <Name Value="ECodetoolError"/>
121 </Item2>
122 <Item3>
123 <Name Value="EFOpenError"/>
124 </Item3>
125 </Exceptions>
126 </Debugging>
127 </CONFIG>
Modifiedcodegen.pas +1−1
@@ -240,7 +240,7 @@ begin
240 AssignFile(OutFile, './hUGEDriver/pattern.htt'); 240 AssignFile(OutFile, './hUGEDriver/pattern.htt');
241 Rewrite(OutFile); 241 Rewrite(OutFile);
242 242
243 // Are keys and data defined to be aligned? Seems like they are but 243 // TODO: Are keys and data defined to be aligned? Seems like they are but
244 // should probably find out if that's just an implementation detail... 244 // should probably find out if that's just an implementation detail...
245 for I := 0 to Song.Patterns.Count-1 do 245 for I := 0 to Song.Patterns.Count-1 do
246 Write(OutFile, RenderPattern('P'+IntToStr(Song.Patterns.Keys[I]), 246 Write(OutFile, RenderPattern('P'+IntToStr(Song.Patterns.Keys[I]),