fixed luajit so name for gnu/linux

[d2df-sdl.git] / src / shared / BinEditor.pas

diff --git a/src/shared/BinEditor.pas b/src/shared/BinEditor.pas
index f59d4f3a5f2fb3c64fe748aecb963e133bf64441..251f07573646492e99edf75eb1669e3cb581dbe9 100644 (file)
--- a/src/shared/BinEditor.pas
+++ b/src/shared/BinEditor.pas
@@ -1,3 +1,19 @@
+(* Copyright (C)  DooM 2D:Forever Developers
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ *)
+{$MODE DELPHI}
 Unit BinEditor;
 
 Interface
@@ -118,7 +134,7 @@ procedure ZeroMemory(Dest: Pointer; Len: Cardinal);
 begin
   FillChar(Dest^, Len, 0);
 end;
-  
+
 { T B i n M e m o r y W r i t e r : }
 
 Constructor TBinMemoryWriter.Create(aSize: Cardinal);
@@ -141,7 +157,7 @@ begin
     FreeMem(FData);
     FData := nil;
   end;
-  
+
   Inherited;
 end;
 
@@ -405,7 +421,7 @@ begin
       CopyMemory(@len,
                  Pointer(Cardinal(FData) + FPosition),
                  SizeOf(Byte));
-         
+
       if (FPosition + SizeOf(Byte) + len) <= FSize then
         begin
           FPosition := FPosition + SizeOf(Byte);