Commit 0d394f1

Nick committed on
Removing unused stuff
commit 0d394f1a9c4d5398647608e33eda3f1eb8039614 parent 032e81f
5 changed files +8−21
ModifiedCpu/machine.pas +2−2
@@ -70,8 +70,8 @@ const
70 (code: $1801; Name: 'Hudson Soft')); 70 (code: $1801; Name: 'Hudson Soft'));
71 71
72 72
73 {+ Wichtig !! die beiden Speicherfunktionen müssen 73 {+ Important!! the two memory functions must
74 unbedingt CDECL deklariert sein !!! +} 74 be declared CDECL!!! +}
75 75
76 function speekb(address: word): byte; cdecl; 76 function speekb(address: word): byte; cdecl;
77 procedure spokeb(address: word; Data: byte); cdecl; 77 procedure spokeb(address: word; Data: byte); cdecl;
ModifiedCpu/z80cpu.pas +1−3
@@ -16,7 +16,7 @@ var
16 16
17 implementation 17 implementation
18 18
19 uses vars, machine, Windows; 19 uses vars, machine;
20 20
21 // temporäre Variablen 21 // temporäre Variablen
22 var 22 var
@@ -595,8 +595,6 @@ begin
595 MOV af.l,AH 595 MOV af.l,AH
596 end; 596 end;
597 597
598
599
600 Result := 4; 598 Result := 4;
601 end; 599 end;
602 600
ModifiedGBEmu.lpi +1−1
@@ -26,7 +26,7 @@
26 <RunParams> 26 <RunParams>
27 <local> 27 <local>
28 <FormatVersion Value="1"/> 28 <FormatVersion Value="1"/>
29 <CommandLineParams Value="C:\Projects\GB-Stuff\sml.gb"/> 29 <CommandLineParams Value="C:\Projects\GB-Stuff\gb-test-roms-master\gb-test-roms-master\cpu_instrs\cpu_instrs.gb"/>
30 </local> 30 </local>
31 </RunParams> 31 </RunParams>
32 <RequiredPackages Count="2"> 32 <RequiredPackages Count="2">
ModifiedGlobal/vars.pas +2−2
@@ -9,7 +9,7 @@ interface
9 9
10 const 10 const
11 thr_f: integer = 1; 11 thr_f: integer = 1;
12 cart: pointer = nil; // Cartdridge 12 cart: pointer = nil; // Cartridge
13 isddraw: boolean = True; // DirectDraw; 13 isddraw: boolean = True; // DirectDraw;
14 14
15 var 15 var
@@ -20,7 +20,7 @@ var
20 th: integer; 20 th: integer;
21 dw, dh, tid: DWORD; 21 dw, dh, tid: DWORD;
22 22
23 // Grafik 23 // Graphics
24 dx_buffer: array[0..(160 * 160 * 4 * 10) - 1] of byte; 24 dx_buffer: array[0..(160 * 160 * 4 * 10) - 1] of byte;
25 25
26 const 26 const
ModifiedUnitMain.pas +2−13
@@ -15,8 +15,7 @@ interface
15 15
16 uses 16 uses
17 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 17 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
18 lcl_out, vars, z80cpu, 18 lcl_out, vars, z80cpu, mainloop, machine, debugger, sound,
19 gfx, mainloop, machine, debugger, sound,
20 StdCtrls, ExtCtrls, ComCtrls, Menus; 19 StdCtrls, ExtCtrls, ComCtrls, Menus;
21 20
22 type 21 type
@@ -147,7 +146,7 @@ var
147 146
148 implementation 147 implementation
149 148
150 uses UnitDebug, UnitMapview; 149 uses UnitMapview;
151 150
152 {$R *.lfm} 151 {$R *.lfm}
153 152
@@ -206,18 +205,12 @@ const
206 205
207 procedure TfrmGameboy.Emulation(var Msg: TMessage); 206 procedure TfrmGameboy.Emulation(var Msg: TMessage);
208 var 207 var
209 Count: DWord;
210 i: byte;
211 idx: integer;
212 li: Large_Integer; 208 li: Large_Integer;
213 tickFreq, cycles: Integer; 209 tickFreq, cycles: Integer;
214 frameStart, frameEnd: Integer; 210 frameStart, frameEnd: Integer;
215 frameElapsedInSec: Double; 211 frameElapsedInSec: Double;
216 begin 212 begin
217 idx := 0;
218 lastTime := 0; 213 lastTime := 0;
219 Count := 0;
220 i := 0;
221 214
222 cycles := 0; 215 cycles := 0;
223 216
@@ -266,9 +259,6 @@ begin
266 end; 259 end;
267 260
268 procedure TfrmGameboy.FileOpenClick(Sender: TObject); 261 procedure TfrmGameboy.FileOpenClick(Sender: TObject);
269 var
270 i: integer;
271 s: string;
272 begin 262 begin
273 loadstat.Enabled := False; 263 loadstat.Enabled := False;
274 savestat.Enabled := False; 264 savestat.Enabled := False;
@@ -400,7 +390,6 @@ procedure TfrmGameboy.setPriority(Sender: TObject);
400 var 390 var
401 ProcessID: DWORD; 391 ProcessID: DWORD;
402 ProcessHandle: THandle; 392 ProcessHandle: THandle;
403 ThreadHandle: THandle;
404 Priority: integer; 393 Priority: integer;
405 begin 394 begin
406 { HIGH_PRIORITY_CLASS, 395 { HIGH_PRIORITY_CLASS,