Revision: 3860 http://geany.svn.sourceforge.net/geany/?rev=3860&view=rev Author: ntrel Date: 2009-06-12 12:21:29 +0000 (Fri, 12 Jun 2009)
Log Message: ----------- Fix type definitions being parsed as functions.
Modified Paths: -------------- trunk/ChangeLog trunk/tagmanager/pascal.c
Modified: trunk/ChangeLog =================================================================== --- trunk/ChangeLog 2009-06-11 14:25:20 UTC (rev 3859) +++ trunk/ChangeLog 2009-06-12 12:21:29 UTC (rev 3860) @@ -1,3 +1,9 @@ +2009-06-12 Nick Treleaven <nick(dot)treleaven(at)btinternet(dot)com> + + * tagmanager/pascal.c: + Fix type definitions being parsed as functions. + + 2009-06-11 Nick Treleaven <nick(dot)treleaven(at)btinternet(dot)com>
* scintilla/LexPascal.cxx:
Modified: trunk/tagmanager/pascal.c =================================================================== --- trunk/tagmanager/pascal.c 2009-06-11 14:25:20 UTC (rev 3859) +++ trunk/tagmanager/pascal.c 2009-06-12 12:21:29 UTC (rev 3860) @@ -256,6 +256,14 @@ verify_tag = FALSE; } } + else if (tolower ((int) *dbp) == 't') + { + if (tail ("type")) /* check for forward reference */ + { + found_tag = FALSE; + verify_tag = FALSE; + } + } if (found_tag && verify_tag) /* not external proc, so make tag */ { found_tag = FALSE;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.