← Back to branch summary

~ubuntu-branches/ubuntu/natty/geany/natty

« back to all changes in this revision

Viewing changes to tagmanager/pascal.c

  • Committer: Bazaar Package Importer
  • Author(s): Chow Loong Jin
  • Date: 2010-08-07 03:23:12 UTC
  • mfrom: (1.4.3 upstream)
  • mto: This revision was merged to the branch mainline in revision 22.
  • Revision ID: james.westby@ubuntu.com-20100807032312-ot70ac9d50cn79we
Tags: upstream-0.19
Import upstream version 0.19

Show diffs side-by-side

added added

removed removed

Lines of Context:
tagmanager/pascal.c
1
1
/*
2
 
*   $Id: pascal.c 3860 2009-06-12 12:21:29Z ntrel $
 
2
*   $Id: pascal.c 4838 2010-04-19 20:42:23Z eht16 $
3
3
*
4
4
*   Copyright (c) 2001-2002, Darren Hiebert
5
5
*
285
285
            for (cp = dbp  ;  *cp != '\0' && !endtoken (*cp)  ;  cp++)
286
286
                continue;
287
287
            vStringNCopyS (name, (const char*) dbp,  cp - dbp);
288
 
            eFree(arglist);
289
 
            if (kind == K_FUNCTION)
 
288
            if (arglist != NULL)
 
289
                eFree(arglist);
 
290
            if (kind == K_FUNCTION && vartype != NULL)
290
291
                eFree(vartype);
291
292
            parseArglist((const char*) cp, &arglist, (kind == K_FUNCTION) ? &vartype : NULL);
292
293
            createPascalTag (&tag, name, kind, arglist, (kind == K_FUNCTION) ? vartype : NULL);
337
338
            }
338
339
        }  /* while not eof */
339
340
    }
340
 
    eFree(arglist);
341
 
    eFree(vartype);
 
341
    if (arglist != NULL)
 
342
        eFree(arglist);
 
343
    if (vartype != NULL)
 
344
        eFree(vartype);
342
345
    vStringDelete(name);
343
346
}
344
347