Martijn Laan 1 year ago
parent
commit
316935fa41
2 changed files with 7 additions and 7 deletions
  1. 6 6
      Projects/Src/Setup/LZMADecomp.pas
  2. 1 1
      Projects/Src/Setup/Lzma2Decode/compile.bat

+ 6 - 6
Projects/Src/Setup/LZMADecomp.pas

@@ -122,6 +122,12 @@ procedure LzmaDec_Init; cdecl; external name '_LzmaDec_Init';
 procedure LzmaDec_InitDicAndState; cdecl; external name '_LzmaDec_InitDicAndState';
 procedure LzmaProps_Decode; cdecl; external name '_LzmaProps_Decode';
 
+function _memcpy(dest, src: Pointer; n: Cardinal): Pointer; cdecl;
+begin
+  Move(src^, dest^, n);
+  Result := dest;
+end;
+
 procedure LZMADecompInternalError(const Msg: String);
 begin
   raise ECompressInternalError.CreateFmt('lzmadecomp: %s', [Msg]);
@@ -149,12 +155,6 @@ end;
 const
   LZMAAlloc: TLZMAISzAlloc = (Alloc: LZMAAllocFunc; Free: LZMAFreeFunc);
 
-function _memcpy(dest, src: Pointer; n: Cardinal): Pointer; cdecl;
-begin
-  Move(src^, dest^, n);
-  Result := dest;
-end;
-
 { TLZMACustomDecompressor }
 
 destructor TLZMACustomDecompressor.Destroy;

+ 1 - 1
Projects/Src/Setup/Lzma2Decode/compile.bat

@@ -35,7 +35,7 @@ if errorlevel 1 goto exit
 echo.
 
 echo - Compiling ISLzmaDec.c and ISLzma2Dec.c
-cl /c /O2 /Gd /GS- ISLzmaDec.c ISLzma2Dec.c
+cl.exe /c /O2 /Gd /GS- ISLzmaDec.c ISLzma2Dec.c
 if errorlevel 1 goto failed
 
 echo Success!