SF.net SVN: geany:[3853] trunk

[eht16 at users.sourceforge.net]

Revision: 3853
          http://geany.svn.sourceforge.net/geany/?rev=3853&view=rev
Author:   eht16
Date:     2009-06-10 18:42:13 +0000 (Wed, 10 Jun 2009)

Log Message:
-----------
Fix wrongly set return values for procedures (closes #2803945.

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tagmanager/pascal.c

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog	2009-06-10 18:24:44 UTC (rev 3852)
+++ trunk/ChangeLog	2009-06-10 18:42:13 UTC (rev 3853)
@@ -1,9 +1,10 @@
 2009-06-10  Enrico Tröger  <enrico(dot)troeger(at)uvena(dot)de>
 
- * tagmanager/editor.c:
+ * src/editor.c:
    Display calltips for Pascal symbols in the Pascal way (#2803945).
+ * tagmanager/pascal.c:
+   Fix wrongly set return values for procedures (closes #2803945.
 
-
 2009-06-10  Nick Treleaven  <nick(dot)treleaven(at)btinternet(dot)com>
 
  * src/editor.c, tagmanager/include/tm_workspace.h,

Modified: trunk/tagmanager/pascal.c
===================================================================
--- trunk/tagmanager/pascal.c	2009-06-10 18:24:44 UTC (rev 3852)
+++ trunk/tagmanager/pascal.c	2009-06-10 18:42:13 UTC (rev 3853)
@@ -281,7 +281,7 @@
 	    if (kind == K_FUNCTION)
 		eFree(vartype);
 	    parseArglist((const char*) cp, &arglist, (kind == K_FUNCTION) ? &vartype : NULL);
-	    createPascalTag (&tag, name, kind, arglist, vartype);
+	    createPascalTag (&tag, name, kind, arglist, (kind == K_FUNCTION) ? vartype : NULL);
 	    dbp = cp;		/* set dbp to e-o-token */
 	    get_tagname = FALSE;
 	    found_tag = TRUE;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.