paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 04:29:17 +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 begin
AddInclude('validate.inc'); AddInclude('validate.inc');
AddInclude('platform.inc'); AddInclude('platform.inc');
AddUnit('fvcommon'); AddUnit('ufvcommon');
AddUnit('fvconsts'); AddUnit('fvconsts');
AddUnit('umsgbox'); AddUnit('umsgbox');
end; end;

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

@ -77,7 +77,13 @@ UNIT Validate;
{$V-} { Turn off strict VAR strings } {$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 } { PUBLIC CONSTANTS }