diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-08 12:10:55 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-08 12:10:55 +0000 |
| commit | 3096103682304690d58970e41e1832d3acc34c0f (patch) | |
| tree | 0dc5e3c62db0449509daa5734eaa7d42d1a2fb43 /Game/Code/Classes/UCommon.pas | |
| parent | f6622f87d45686ab6ab740d1d7fdbf4394a28932 (diff) | |
| download | usdx-3096103682304690d58970e41e1832d3acc34c0f.tar.gz usdx-3096103682304690d58970e41e1832d3acc34c0f.tar.xz usdx-3096103682304690d58970e41e1832d3acc34c0f.zip | |
warnings suppressed
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1235 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/Classes/UCommon.pas')
| -rw-r--r-- | Game/Code/Classes/UCommon.pas | 4 |
1 files changed, 4 insertions, 0 deletions
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 |