LazUtils: Add LazUTF8SysUtils with "deprecated" warnings. The unit was renamed earlier.

git-svn-id: trunk@59436 -
This commit is contained in:
juha 2018-11-03 12:45:54 +00:00
parent 49c0a5e4a2
commit 93fbbb0db7
4 changed files with 44 additions and 2 deletions

1
.gitattributes vendored
View File

@ -3355,6 +3355,7 @@ components/lazutils/lazunicode.pas svneol=native#text/plain
components/lazutils/lazutf16.pas svneol=native#text/pascal
components/lazutils/lazutf8.pas svneol=native#text/pascal
components/lazutils/lazutf8classes.pas svneol=native#text/pascal
components/lazutils/lazutf8sysutils.pas svneol=native#text/pascal
components/lazutils/lazutilities.pas svneol=native#text/plain
components/lazutils/lazutils.lpk svneol=native#text/plain
components/lazutils/lazutils.pas svneol=native#text/pascal

View File

@ -0,0 +1,37 @@
{
*****************************************************************************
This file is part of LazUtils.
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
This unit was renamed to LazSysUtils.
Now just give "deprecated" warnings. Will be removed later.
}
unit LazUTF8SysUtils;
{$mode objfpc}{$H+}
interface
uses
LazSysUtils;
function NowUTC: TDateTime; deprecated 'Use the function from unit LazSysUtils.';
function GetTickCount64: QWord; deprecated 'Use the function from unit LazSysUtils.';
implementation
function NowUTC: TDateTime;
begin
result := LazSysUtils.NowUTC;
end;
function GetTickCount64: QWord;
begin
Result := LazSysUtils.GetTickCount64;
end;
end.

View File

@ -16,7 +16,7 @@
<Description Value="Useful units for Lazarus packages."/>
<License Value="Modified LGPL-2"/>
<Version Major="1"/>
<Files Count="101">
<Files Count="102">
<Item1>
<Filename Value="LazLoggerImpl.inc"/>
<Type Value="Include"/>
@ -421,6 +421,10 @@
<Filename Value="lazstringutils.pas"/>
<UnitName Value="LazStringUtils"/>
</Item101>
<Item102>
<Filename Value="lazutf8sysutils.pas"/>
<UnitName Value="LazUTF8SysUtils"/>
</Item102>
</Files>
<LazDoc Paths="../../docs/xml/lazutils"/>
<i18n>

View File

@ -22,7 +22,7 @@ uses
TTFile, TTGLoad, TTInterp, TTLoad, TTMemory, TTObjs, TTProfile, TTRASTER,
TTTables, TTTypes, UTF8Process, HTML2TextRender, Laz_AVL_Tree,
CompWriterPas, LazPasReadUtil, IntegerList, LazVersion, UITypes, GraphType,
LazTracer, LazStringUtils, LazarusPackageIntf;
LazTracer, LazStringUtils, LazUTF8SysUtils, LazarusPackageIntf;
implementation