From 62c82114318ed04ce42617fa9ce2e179834dbda4 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 19 Sep 2007 11:44:10 +0000
Subject: added UCommon ( in classes ) for lazarus... common functions needed
 for lazarus ( and others ) can be put in here.

also this now compiles on lazarus..
( dosnt link yet... but I dont get any critical compiler errors )

tested to compile in my delphi, and basic functionality is fine.

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

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

diff --git a/Game/Code/Classes/UFiles.pas b/Game/Code/Classes/UFiles.pas
index 008061a4..bbb22136 100644
--- a/Game/Code/Classes/UFiles.pas
+++ b/Game/Code/Classes/UFiles.pas
@@ -2,6 +2,10 @@ unit UFiles;
 
 interface
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 uses SysUtils,
      ULog,
      UMusic,
@@ -108,7 +112,12 @@ begin
 
   //Required Information
   Song.Mp3    := '';
+  {$IFDEF FPC}
+  Song.BPM    := NULL;
+  {$ELSE}
   Song.BPM    := 0;
+  {$ENDIF}
+
   Song.GAP    := 0;
   Song.Start  := 0;
   Song.Finish := 0;
-- 
cgit v1.2.3