aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
authorjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-10-11 10:50:01 +0000
committerjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-10-11 10:50:01 +0000
commit0d997f8433e982584a0ab67a6d630d12f4314759 (patch)
treedc5ec28147f1b419d6513b5b30d253f905e9f966 /Game/Code/Classes
parent97a179d3ac5ce99d5e43406f2f66285576eefaf9 (diff)
downloadusdx-0d997f8433e982584a0ab67a6d630d12f4314759.tar.gz
usdx-0d997f8433e982584a0ab67a6d630d12f4314759.tar.xz
usdx-0d997f8433e982584a0ab67a6d630d12f4314759.zip
fixes so codebase builds in delphi now, after major FFMpeg changse for linux.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@503 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/ULCD.pas16
-rw-r--r--Game/Code/Classes/UVideo.pas4
2 files changed, 12 insertions, 8 deletions
diff --git a/Game/Code/Classes/ULCD.pas b/Game/Code/Classes/ULCD.pas
index 52b0f96a..50214ad0 100644
--- a/Game/Code/Classes/ULCD.pas
+++ b/Game/Code/Classes/ULCD.pas
@@ -46,6 +46,7 @@ uses
{$IFDEF UseSerialPort}
zlportio,
{$ENDIF}
+ SDL,
UTime;
procedure TLCD.WriteCommand(B: Byte);
@@ -64,7 +65,7 @@ begin
zlioportwrite(Data, 0, B and $F0);
zlioportwrite(Control, 0, $03);
- TimeSleep(0.1);
+ SDL_Delay( 100 );
zlioportwrite(Control, 0, $02);
zlioportwrite(Data, 0, (B * 16) and $F0);
@@ -74,7 +75,7 @@ begin
if (B=1) or (B=2) then
Sleep(2)
else
- TimeSleep(0.1);
+ SDL_Delay( 100 );
{$ENDIF}
end;
@@ -82,23 +83,26 @@ procedure TLCD.WriteData(B: Byte);
// Wysylanie danych
begin
{$IFDEF UseSerialPort}
- if not HalfInterface then begin
+ if not HalfInterface then
+ begin
zlioportwrite(Control, 0, $06);
zlioportwrite(Data, 0, B);
zlioportwrite(Control, 0, $07);
- end else begin
+ end
+ else
+ begin
zlioportwrite(Control, 0, $06);
zlioportwrite(Data, 0, B and $F0);
zlioportwrite(Control, 0, $07);
- TimeSleep(0.1);
+ SDL_Delay( 100 );
zlioportwrite(Control, 0, $06);
zlioportwrite(Data, 0, (B * 16) and $F0);
zlioportwrite(Control, 0, $07);
end;
- TimeSleep(0.1);
+ SDL_Delay( 100 );
Inc(Position);
{$ENDIF}
end;
diff --git a/Game/Code/Classes/UVideo.pas b/Game/Code/Classes/UVideo.pas
index d3cd4ac7..2dd745fd 100644
--- a/Game/Code/Classes/UVideo.pas
+++ b/Game/Code/Classes/UVideo.pas
@@ -89,14 +89,14 @@ var
implementation
{$ifdef DebugDisplay}
-{$ifNdef win32}
+//{$ifNdef win32}
procedure showmessage( aMessage : String );
begin
writeln( aMessage );
end;
-{$endif}
+//{$endif}
{$ENDIF}
{ ------------------------------------------------------------------------------