I think I found another problem with the latest revision of fcl-passrc
in svn trunk.
Given this source file as input to the test_parser program:
===================================
unit timelib;
interface
implementation
procedure SortIndexHashTable;
begin
try
except
if (h <> nil) then begin
end;
end;
end;
end.
===================================
I get this output:
===================================
$ ./test_parser timelib.pas
Unit timelib;
Interface
Implementation
Procedure SortIndexHashTable;
begin
try
except
if (h<>nil) then
begin
end;
;
except
if (h<>nil) then
begin
end;
;
end;
end;
end.
===================================
I think it's going down through the except block twice... I don't know
if this is a problem with test_parser.pp itself, or with the package.
-SG
--
This email is fiction. Any resemblance to actual events
or persons living or dead is purely coincidental.
Seth Grover
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
