Changeset 79289

Timestamp:

06/08/11 03:09:18 (4 years ago)

Author:

cal@…

Message:

rev-uprgade: Cleanup, modeline

File:

• branches/gsoc11-rev-upgrade/base/src/cregistry/registry.c (modified) (3 diffs)

branches/gsoc11-rev-upgrade/base/src/cregistry/registry.c

@@ -2 +2 @@
  * registry.c
  * $Id$
+ * vim:expandtab:tw=80
  *
  * Copyright (c) 2007 Chris Pickel <sfiera@macports.org>
@@ -262 +263 @@
         int r;
         reg_entry* entry;
-        reg_file* file;
         Tcl_HashEntry* curr;
         Tcl_HashSearch search;
@@ -282 +282 @@
                     for (curr = Tcl_FirstHashEntry(&reg->open_files, &search);
                             curr != NULL; curr = Tcl_NextHashEntry(&search)) {
-                        file = Tcl_GetHashValue(curr);
-                        if (file->proc) {
-                            free(file->proc);
-                        }
-                        if (file->key.path) {
-                            free(file->key.path);
-                        }
+                        reg_file* file = Tcl_GetHashValue(curr);
+
+                        free(file->proc);
+                        free(file->key.path);
                         free(file);
                     }