|
@@ -48,10 +48,12 @@ uses
|
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
{$ELSE}
|
|
{$ELSE}
|
|
|
|
|
+ {$IfNDef WIN64} // если будет добавление объектников 64-х битных для Delphi, то эту часть надо проверять.
|
|
|
procedure _llmul; cdecl;
|
|
procedure _llmul; cdecl;
|
|
|
procedure errno; cdecl; external 'msvcrt.dll' name '_errno';
|
|
procedure errno; cdecl; external 'msvcrt.dll' name '_errno';
|
|
|
procedure fstat; cdecl; external 'msvcrt.dll' name '_fstat';
|
|
procedure fstat; cdecl; external 'msvcrt.dll' name '_fstat';
|
|
|
procedure dup; cdecl; external 'msvcrt.dll' name '_dup';
|
|
procedure dup; cdecl; external 'msvcrt.dll' name '_dup';
|
|
|
|
|
+ {$EndIf}
|
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
function MoveFileExA(lpExistingFileName: PAnsiChar; lpNewFileName: PAnsiChar; dwFlags: DWORD): Boolean; stdcall; external 'kernel32.dll';
|
|
function MoveFileExA(lpExistingFileName: PAnsiChar; lpNewFileName: PAnsiChar; dwFlags: DWORD): Boolean; stdcall; external 'kernel32.dll';
|
|
@@ -133,7 +135,7 @@ end;
|
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
{$ELSE}
|
|
{$ELSE}
|
|
|
-
|
|
|
|
|
|
|
+{$IfNDef WIN64}
|
|
|
procedure _llmul; cdecl;
|
|
procedure _llmul; cdecl;
|
|
|
asm
|
|
asm
|
|
|
push edx
|
|
push edx
|
|
@@ -156,7 +158,7 @@ asm
|
|
|
|
|
|
|
|
ret 8
|
|
ret 8
|
|
|
end;
|
|
end;
|
|
|
-
|
|
|
|
|
|
|
+{$EndIf}
|
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
end.
|
|
end.
|
Seenkao