From 739ad9a6dee57375f05dcd20dc59ba2d619f11fa Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 24 Sep 2007 13:31:43 +0000
Subject: fixed song loading in Lazarus..

cant assume variables are initialized as 0 :)
in UFile "Done: byte;" was no initialized on lazarus compiler.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@431 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/USingScores.pas | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

(limited to 'Game/Code/Classes/USingScores.pas')

diff --git a/Game/Code/Classes/USingScores.pas b/Game/Code/Classes/USingScores.pas
index 27a65b32..881a5515 100644
--- a/Game/Code/Classes/USingScores.pas
+++ b/Game/Code/Classes/USingScores.pas
@@ -1,7 +1,14 @@
 unit USingScores;
 
 interface
-uses UThemes, OpenGl12, UTexture;
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+uses UThemes,
+     OpenGl12,
+     UTexture;
 
 //Some Constances containing Options that could change by time
 const
@@ -158,7 +165,12 @@ type
 
 
 implementation
-uses SDL, SysUtils, ULog, UGraphic, TextGL;
+
+uses SDL,
+     SysUtils,
+     ULog,
+     UGraphic,
+     TextGL;
 
 //-----------
 //Constructor just sets some standard Settings
-- 
cgit v1.2.3