Parcourir la source

* use new expression store for rvalue of constant declarations. Patch by Anton, Mantis 19403

git-svn-id: trunk@17543 -
marco il y a 14 ans
Parent
commit
3d86949990
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  1. 1 1
      utils/fpdoc/dw_html.pp

+ 1 - 1
utils/fpdoc/dw_html.pp

@@ -2644,7 +2644,7 @@ begin
     AppendSym(CodeEl, ': ');
     AppendType(CodeEl, TableEl, AConst.VarType, False);
   end;
-  AppendPasSHFragment(CodeEl, ' = ' + AConst.Value + ';', 0);
+  AppendPasSHFragment(CodeEl, ' = ' + AConst.Expr.GetDeclaration(True) + ';', 0);
 
   FinishElementPage(AConst);
 end;