[fpc-devel] Troubles with FPDOC in 2.5.1 and 2.4.1

[Graeme Geldenhuys]

This never happened before when I generated fpdoc help for tiOPF. I tried
now with the latest fpdoc in Trunk (2.5.1) and I get the following errors.
I then tried with fpdoc from latest 2.4.1 branch and the same thing. The
last time I generated fpdoc help for the tiOPF project was 2009-05-28 and
then it worked fine.

Looking at the actual code, I cannot see what the problem is. FPC 2.4.1 and
FPC 2.5.1 compiles the tiOPF code without such errors.


---------[ fpdoc errors ]------------------
../Source/Core/tiVisitorDB.pas(160,16): Expected ";" at token "Identifier
deprecated"
../Source/Core/tiUtils.pas(1371,14): Expected ";" at token "of"
../Source/Core/tiStreams.pas(384,5): Syntax error at token "label"

----------------------------

Here are the actual code snippets. I marked the lines fpdoc reports the
errors on.

------------[ tiVisitorDB.pas ]-------------
  // alias class will be removed soon.
  TVisOwnedQrySelect = class(TtiVisitorSelect)
  end deprecated;        // <<-- error reported here
--------------------------------------------


------------[ tiUtils.pas ]-------------
function tiGetFileSize(AValue : string): longInt;
var f: file of Byte;     // <<-- error reported here
begin
  AssignFile(f, AValue);
  Reset(f);
  result := FileSize(f);
  closeFile(f);
end;
--------------------------------------------


------------[ tiStreams.pas ]-------------
function MimeEncodeString (const s: AnsiString): AnsiString;
label                     // <<-- error reported here
  NothingToDo;
var
  l: Cardinal;
begin
  if Pointer(s) = nil then
    goto NothingToDo;
  l := Cardinal (Pointer (Cardinal (Pointer (s)) - 4)^);
  SetLength (Result, (l + 2) div 3 * 4);
  if Pointer (Result) = nil then
    goto NothingToDo;
  MimeEncode (Pointer (s)^, l, Pointer (Result)^);
  Exit; //==>

  NothingToDo:
  Result := '';
end;
--------------------------------------------


Regards,
  - Graeme -

-- 
fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal
http://opensoft.homeip.net/fpgui/