paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-23 01:01:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: remove legacy code for the 2.6.0 compiler.

Browse Source 
git-svn-id: trunk@50496 -
This commit is contained in:
bart 2015-11-24 14:06:50 +00:00
parent 45d9a68904
commit 094b14ce22
2 changed files with 0 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/lazutils/winlazfileutils.inc
View File

@ -656,21 +656,6 @@ begin
Result := Integer(GetLastError); Result := Integer(GetLastError);
end; end;
//fpc 2.6.0 does not have StrLen for WideChar.
//Remove this when we have 2.6.4 or higher
{$if FPC_FULLVERSION < 20602}
function StrLen(PW: PWideChar): SizeInt; overload;
var
i: SizeInt;
begin
i:=0;
if assigned(PW) then
while (PW[i] <> #0) do inc(i);
Result := i;
end;
{$endif}
{$IFDEF WINCE} {$IFDEF WINCE}
// In WinCE these API calls are in Windows unit // In WinCE these API calls are in Windows unit
function GetWindowsSpecialDirW(ID : Integer) : String; function GetWindowsSpecialDirW(ID : Integer) : String;

13
components/lazutils/winlazutf8.inc
View File

@ -37,19 +37,6 @@ end;
//*************** START WideString impementations //*************** START WideString impementations
//fpc 2.6.0 does not have StrLen for WideChar.
//Remove this when we have 2.6.4 or higher
{$if FPC_FULLVERSION < 20602}
function StrLen(PW: PWideChar): SizeInt; overload;
var
i: SizeInt;
begin
i:=0;
if assigned(PW) then
while (PW[i] <> #0) do inc(i);
Result := i;
end;
{$endif}
{$IF (FPC_FULLVERSION >= 30000) AND NOT DEFINED(DisableUTF8RTL) AND NOT DEFINED(WINCE)} {$IF (FPC_FULLVERSION >= 30000) AND NOT DEFINED(DisableUTF8RTL) AND NOT DEFINED(WINCE)}
procedure SetupArgvAsUtf8; procedure SetupArgvAsUtf8;