SF.net SVN: geany:[3860] trunk

[ntrel at users.sourceforge.net]

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.