Browse Source

* use ufvcommon in uhistlist

git-svn-id: branches/unicodekvm@48598 -
nickysn 4 years ago
parent
commit
f5005e4646
2 changed files with 8 additions and 2 deletions
  1. 1 1
      packages/fv/fpmake.pp
  2. 7 1
      packages/fv/src/histlist.inc

+ 1 - 1
packages/fv/fpmake.pp

@@ -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

+ 7 - 1
packages/fv/src/histlist.inc

@@ -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                             }