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

* use ufvcommon in unit uvalidate

Browse Source 
git-svn-id: branches/unicodekvm@48595 -
This commit is contained in:
nickysn 2021-02-10 13:38:44 +00:00
parent cb6a66fed0
commit 1ffb6c6fdf
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fv/fpmake.pp
View File

@ -352,7 +352,7 @@ begin
begin
AddInclude('validate.inc');
AddInclude('platform.inc');
AddUnit('fvcommon');
AddUnit('ufvcommon');
AddUnit('fvconsts');
AddUnit('umsgbox');
end;

8
packages/fv/src/validate.inc
View File

@ -77,7 +77,13 @@ UNIT Validate;
{$V-} { Turn off strict VAR strings }
{====================================================================}
USES FVCommon, Objects, fvconsts; { GFV standard units }
USES
{$ifdef FV_UNICODE}
UFVCommon,
{$else FV_UNICODE}
FVCommon,
{$endif FV_UNICODE}
Objects, fvconsts; { GFV standard units }
{***************************************************************************}
{ PUBLIC CONSTANTS }