fixed small memory leak in archive reader

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

diff --git a/src/shared/MAPWRITER.pas b/src/shared/MAPWRITER.pas
index 39ca417c001f98507a6dac9285f8b5a434613af7..6399330fcfb71bf08e9de22c0a92ca874d2fdd05 100644 (file)
--- a/src/shared/MAPWRITER.pas
+++ b/src/shared/MAPWRITER.pas
@@ -144,7 +144,7 @@ begin
   for a := 0 to High(Areas) do
    CopyMemory(Pointer(LongWord(Data)+a*Size), @Areas[a], size);
  end;
   for a := 0 to High(Areas) do
    CopyMemory(Pointer(LongWord(Data)+a*Size), @Areas[a], size);
  end;

- 
+

  Result := True;
 end;
 
  Result := True;
 end;
 


@@ -173,7 +173,7 @@ begin
   for a := 0 to High(Items) do
    CopyMemory(Pointer(LongWord(Data)+a*size), @Items[a], size);
  end;
   for a := 0 to High(Items) do
    CopyMemory(Pointer(LongWord(Data)+a*size), @Items[a], size);
  end;

- 
+

  Result := True;
 end;
 
  Result := True;
 end;
 


@@ -202,7 +202,7 @@ begin
   for a := 0 to High(Monsters) do
    CopyMemory(Pointer(LongWord(Data)+a*Size), @Monsters[a], size);
  end;
   for a := 0 to High(Monsters) do
    CopyMemory(Pointer(LongWord(Data)+a*Size), @Monsters[a], size);
  end;

- 
+

  Result := True;
 end;
 
  Result := True;
 end;
 


@@ -231,7 +231,7 @@ begin
   for a := 0 to High(Panels) do
    CopyMemory(Pointer(LongWord(Data)+a*size), @Panels[a], size);
  end;
   for a := 0 to High(Panels) do
    CopyMemory(Pointer(LongWord(Data)+a*size), @Panels[a], size);
  end;

- 
+

  Result := True;
 end;
 
  Result := True;
 end;
 


@@ -311,7 +311,7 @@ begin
 
   CopyMemory(Pointer(LongWord(Data)), @MapHeader, size);
  end;
 
   CopyMemory(Pointer(LongWord(Data)), @MapHeader, size);
  end;

- 
+

  Result := True;
 end;
 
  Result := True;
 end;