From 3096103682304690d58970e41e1832d3acc34c0f Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 8 Aug 2008 12:10:55 +0000
Subject: warnings suppressed

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

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

diff --git a/Game/Code/Classes/UCommon.pas b/Game/Code/Classes/UCommon.pas
index 7eefedac..89b5623f 100644
--- a/Game/Code/Classes/UCommon.pas
+++ b/Game/Code/Classes/UCommon.pas
@@ -736,6 +736,7 @@ type
  * supports an alignment "x" of up to 8 bytes only whereas FPC supports
  * alignments on 16 and 32 byte boundaries too.
  *)
+{$WARNINGS OFF}
 function GetAlignedMem(Size: cardinal; Alignment: integer): Pointer;
 var
   OrigPtr: Pointer;
@@ -766,12 +767,15 @@ begin
   // set header with info on old pointer for FreeMem
   PMemAlignHeader(PtrUInt(Result) - SizeOf(TMemAlignHeader))^ := OrigPtr;
 end;
+{$WARNINGS ON}
 
+{$WARNINGS OFF}
 procedure FreeAlignedMem(P: Pointer);
 begin
   if (P <> nil) then
     FreeMem(PMemAlignHeader(PtrUInt(P) - SizeOf(TMemAlignHeader))^);
 end;
+{$WARNINGS ON}
 
 
 initialization
-- 
cgit v1.2.3