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

* use ufvcommon in uhistlist

Browse Source 
git-svn-id: branches/unicodekvm@48598 -
This commit is contained in:
nickysn 2021-02-10 13:44:05 +00:00
parent 88e960cd00
commit f5005e4646
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

@ -207,7 +207,7 @@ begin
begin begin
AddInclude('histlist.inc'); AddInclude('histlist.inc');
AddInclude('platform.inc'); AddInclude('platform.inc');
AddUnit('fvcommon'); AddUnit('ufvcommon');
end; end;
T:=P.Targets.AddUnit('inplong.pas'); T:=P.Targets.AddUnit('inplong.pas');
with T.Dependencies do with T.Dependencies do

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

@ -79,7 +79,13 @@ UNIT HistList;
{$V-} { Turn off strict VAR strings } {$V-} { Turn off strict VAR strings }
{====================================================================} {====================================================================}
USES FVCommon, Objects; { Standard GFV units } USES
{$ifdef FV_UNICODE}
UFVCommon,
{$else FV_UNICODE}
FVCommon,
{$endif FV_UNICODE}
Objects; { Standard GFV units }
{***************************************************************************} {***************************************************************************}
{ INTERFACE ROUTINES } { INTERFACE ROUTINES }