mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Build with FPC 3.0.2

Browse source
This commit is contained in:
Alexander Koblov 2017-01-09 19:54:37 +00:00
commit cd1fccadd9
2 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/platform/uOleDragDrop.pas
View file

@ -998,13 +998,12 @@ var
tIID : PGuid;
hFile: THandle;
pvStrm: IStream;
i64Size: Int64;
i64Move: Int64;
dwSize: LongInt;
AnyPointer: PAnsiChar;
InnerFilename: String;
StgDocFile: WideString;
msStream: TMemoryStream;
i64Size, i64Move: {$IF FPC_FULLVERSION < 030002}Int64{$ELSE}QWord{$ENDIF};
begin
result:=FALSE;
InnerFilename:= ExtractFilepath(WantedFilename) + TEMPFILENAME;

4
src/udcutils.pas
View file

@ -953,8 +953,8 @@ var
begin
// Set up compare function
case CaseSensitivity of
cstNotSensitive: str_cmp:= WideStringManager.CompareTextWideStringProc;
cstLocale: str_cmp:= WideStringManager.CompareWideStringProc;
cstNotSensitive: str_cmp:= @WideCompareText;
cstLocale: str_cmp:= @WideCompareStr;
cstCharValue: str_cmp:= @WideStrComp;
else
raise Exception.Create('Invalid CaseSensitivity parameter');