paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 17:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation with 1.0.10

Browse Source
This commit is contained in:
florian 2005-03-02 21:10:08 +00:00
parent 6f17e37fe4
commit ed174f891c
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/win32/sysutils.pp
View File

@ -994,6 +994,8 @@ end;
Target Dependent WideString stuff Target Dependent WideString stuff
****************************************************************************} ****************************************************************************}
{$ifdef HASWIDESTRING}
function Win32CompareWideString(const s1, s2 : WideString) : PtrInt; function Win32CompareWideString(const s1, s2 : WideString) : PtrInt;
begin begin
SetLastError(0); SetLastError(0);
@ -1022,9 +1024,13 @@ procedure InitWin32Widestrings;
widestringmanager.CompareTextWideStringProc:=@Win32CompareTextWideString; widestringmanager.CompareTextWideStringProc:=@Win32CompareTextWideString;
end; end;
{$endif HASWIDESTRING}
Initialization Initialization
{$ifdef HASWIDESTRING}
InitWin32Widestrings; InitWin32Widestrings;
{$endif HASWIDESTRING}
InitExceptions; { Initialize exceptions. OS independent } InitExceptions; { Initialize exceptions. OS independent }
InitInternational; { Initialize internationalization settings } InitInternational; { Initialize internationalization settings }
LoadVersionInfo; LoadVersionInfo;
@ -1039,7 +1045,10 @@ Finalization
end. end.
{ {
$Log$ $Log$
Revision 1.42 2005-02-26 20:43:52 florian Revision 1.43 2005-03-02 21:10:08 florian
* fixed compilation with 1.0.10
Revision 1.42 2005/02/26 20:43:52 florian
+ WideCompareString and WideCompareText for win32 implemented + WideCompareString and WideCompareText for win32 implemented
Revision 1.41 2005/02/26 14:38:14 florian Revision 1.41 2005/02/26 14:38:14 florian