summaryrefslogtreecommitdiff
path: root/process.c
diff options
context:
space:
mode:
Diffstat (limited to 'process.c')
-rw-r--r--process.c444
1 files changed, 0 insertions, 444 deletions
diff --git a/process.c b/process.c
deleted file mode 100644
index e0a6fa2..0000000
--- a/process.c
+++ /dev/null
@@ -1,444 +0,0 @@
-/* MemProf -- memory profiler and leak detector
- * Copyright 1999, 2000, 2001, Red Hat, Inc.
- * Copyright 2002, Kristian Rietveld
- *
- * Sysprof -- Sampling, systemwide CPU profiler
- * Copyright 2004-2005 Soeren Sandmann
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- */
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <sys/stat.h>
-#include <errno.h>
-#include <unistd.h>
-
-#include "process.h"
-#include "binfile.h"
-
-#define PAGE_SIZE (getpagesize())
-
-static GHashTable *processes_by_cmdline;
-static GHashTable *processes_by_pid;
-
-typedef struct Map Map;
-struct Map
-{
- char * filename;
- gulong start;
- gulong end;
- gulong offset;
-#if 0
- gboolean do_offset;
-#endif
-
- BinFile * bin_file;
-};
-
-struct Process
-{
- char *cmdline;
-
- GList *maps;
- GList *bad_pages;
-
- int pid;
-};
-
-static void
-initialize (void)
-{
- if (!processes_by_cmdline)
- {
- processes_by_cmdline = g_hash_table_new (g_str_hash, g_str_equal);
- processes_by_pid = g_hash_table_new (g_direct_hash, g_direct_equal);
- }
-}
-
-static GList *
-read_maps (int pid)
-{
- char *name = g_strdup_printf ("/proc/%d/maps", pid);
- char buffer[1024];
- FILE *in;
- GList *result = NULL;
-
- in = fopen (name, "r");
- if (!in)
- {
-#if 0
- g_print ("could not open %d: %s\n", pid, g_strerror (errno));
-#endif
- g_free (name);
- return NULL;
- }
-
- while (fgets (buffer, sizeof (buffer) - 1, in))
- {
- char file[256];
- int count;
- gulong start;
- gulong end;
- gulong offset;
-
-#if 0
- g_print ("buffer: %s\n", buffer);
-#endif
-
- count = sscanf (
- buffer, "%lx-%lx %*15s %lx %*x:%*x %*u %255s",
- &start, &end, &offset, file);
- if (count == 4)
- {
- Map *map;
-
- map = g_new (Map, 1);
-
- map->filename = g_strdup (file);
- map->start = start;
- map->end = end;
-
- map->offset = offset;
-
- map->bin_file = NULL;
-
- result = g_list_prepend (result, map);
- }
-#if 0
- else
- {
- g_print ("scanf\n");
- }
-#endif
- }
-
- g_free (name);
- fclose (in);
- return result;
-}
-
-
-static Process *
-create_process (const char *cmdline, int pid)
-{
- Process *p;
-
- p = g_new (Process, 1);
-
- if (*cmdline != '\0')
- p->cmdline = g_strdup_printf ("[%s]", cmdline);
- else
- p->cmdline = g_strdup_printf ("[pid %d]", pid);
-
- p->bad_pages = NULL;
- p->maps = NULL;
- p->pid = pid;
-
- g_assert (!g_hash_table_lookup (processes_by_pid, GINT_TO_POINTER (pid)));
- g_assert (!g_hash_table_lookup (processes_by_cmdline, cmdline));
-
- g_hash_table_insert (processes_by_pid, GINT_TO_POINTER (pid), p);
- g_hash_table_insert (processes_by_cmdline, g_strdup (cmdline), p);
-
- return p;
-}
-
-static Map *
-process_locate_map (Process *process, gulong addr)
-{
- GList *list;
-
- for (list = process->maps; list != NULL; list = list->next)
- {
- Map *map = list->data;
-
- if ((addr >= map->start) &&
- (addr < map->end))
- {
- return map;
- }
- }
-
- return NULL;
-}
-
-static void
-process_free_maps (Process *process)
-{
- GList *list;
-
- for (list = process->maps; list != NULL; list = list->next)
- {
- Map *map = list->data;
-
- if (map->filename)
- g_free (map->filename);
-
- if (map->bin_file)
- bin_file_free (map->bin_file);
-
- g_free (map);
- }
-
- g_list_free (process->maps);
-}
-
-static gboolean
-process_has_page (Process *process, gulong addr)
-{
- if (process_locate_map (process, addr))
- return TRUE;
- else
- return FALSE;
-}
-
-void
-process_ensure_map (Process *process, int pid, gulong addr)
-{
- /* Round down to closest page */
-
- addr = (addr - addr % PAGE_SIZE);
-
- if (process_has_page (process, addr))
- return;
-
- if (g_list_find (process->bad_pages, (gpointer)addr))
- return;
-
- /* a map containing addr was not found */
- if (process->maps)
- process_free_maps (process);
-
- process->maps = read_maps (pid);
-
- if (!process_has_page (process, addr))
- {
-#if 0
- g_print ("Bad page: %p\n", addr);
-#endif
- process->bad_pages = g_list_prepend (process->bad_pages, (gpointer)addr);
- }
-}
-
-static gboolean
-do_idle_free (gpointer d)
-{
- g_free (d);
- return FALSE;
-}
-
-static char *
-idle_free (char *d)
-{
- g_idle_add (do_idle_free, d);
- return d;
-}
-
-static char *
-get_cmdline (int pid)
-{
- char *cmdline;
- char *filename = idle_free (g_strdup_printf ("/proc/%d/cmdline", pid));
-
- if (g_file_get_contents (filename, &cmdline, NULL, NULL))
- {
- if (*cmdline == '\0')
- {
- g_free (cmdline);
- return NULL;
- }
- return cmdline;
- }
-
- return NULL;
-}
-
-static char *
-get_statname (int pid)
-{
- char *stat;
- char *filename = idle_free (g_strdup_printf ("/proc/%d/stat", pid));
-
-#if 0
- g_print ("stat %d\n", pid);
-#endif
-
- if (g_file_get_contents (filename, &stat, NULL, NULL))
- {
- char result[200];
-
- idle_free (stat);
-
- if (sscanf (stat, "%*d %200s %*s", result) == 1)
- return g_strndup (result, 200);
- }
-#if 0
- g_print ("return null\n");
-#endif
-
- return NULL;
-}
-
-static char *
-get_pidname (int pid)
-{
- if (pid == -1)
- return g_strdup_printf ("kernel");
- else
- return g_strdup_printf ("pid %d", pid);
-}
-
-static char *
-get_name (int pid)
-{
- char *cmdline = NULL;
-
- if ((cmdline = get_cmdline (pid)))
- return cmdline;
-
- if ((cmdline = get_statname (pid)))
- return cmdline;
-
- return get_pidname (pid);
-}
-
-Process *
-process_get_from_pid (int pid)
-{
- Process *p;
- gchar *cmdline = NULL;
-
- initialize();
-
- p = g_hash_table_lookup (processes_by_pid, GINT_TO_POINTER (pid));
-
- if (p)
- return p;
-
- cmdline = get_name (pid);
-
- p = g_hash_table_lookup (processes_by_cmdline, cmdline);
- if (p)
- return p;
- else
- return create_process (idle_free (cmdline), pid);
-}
-
-const Symbol *
-process_lookup_symbol (Process *process, gulong address)
-{
- static Symbol undefined;
- const Symbol *result;
- static Symbol kernel;
- Map *map = process_locate_map (process, address);
-
-/* g_print ("addr: %x\n", address); */
-
- if (address == 0x1)
- {
- kernel.name = "in kernel";
- kernel.address = 0x0001337;
- return &kernel;
- }
- else if (!map)
- {
- if (undefined.name)
- g_free (undefined.name);
- undefined.name = g_strdup_printf ("??? %s", process->cmdline);
- undefined.address = 0xBABE0001;
-
-#if 0
- g_print ("no map for %p (%s)\n", address, process->cmdline);
-#endif
- return &undefined;
- }
-
-#if 0
- g_print ("has map: %s\n", process->cmdline);
-#endif
-
-#if 0
- g_print ("has map: %s\n", process->cmdline);
-#endif
-
-/* if (map->do_offset) */
-/* address -= map->start; */
-
-#if 0
- /* convert address to file coordinates */
- g_print ("looking up %p ", address);
-#endif
-
- address -= map->start;
- address += map->offset;
-
- if (!map->bin_file)
- map->bin_file = bin_file_new (map->filename);
-
-/* g_print ("%s: start: %p, load: %p\n", */
-/* map->filename, map->start, bin_file_get_load_address (map->bin_file)); */
-
- result = bin_file_lookup_symbol (map->bin_file, address);
-
-#if 0
- g_print (" ---> %s\n", result->name);
-#endif
-
-/* g_print ("(%x) %x %x name; %s\n", address, map->start, map->offset, result->name); */
-
- return result;
-}
-
-const char *
-process_get_cmdline (Process *process)
-{
- return process->cmdline;
-}
-
-static void
-free_process (gpointer key, gpointer value, gpointer data)
-{
- char *cmdline = key;
- Process *process = value;
-
-#if 0
- g_print ("freeing: %p\n", process);
- memset (process, '\0', sizeof (Process));
-#endif
- g_free (process->cmdline);
-#if 0
- process->cmdline = "You are using free()'d memory";
-#endif
- process_free_maps (process);
- g_list_free (process->bad_pages);
- g_free (cmdline);
-
- g_free (process);
-}
-
-void
-process_flush_caches (void)
-{
- if (!processes_by_cmdline)
- return;
- g_hash_table_foreach (processes_by_cmdline, free_process, NULL);
-
- g_hash_table_destroy (processes_by_cmdline);
- g_hash_table_destroy (processes_by_pid);
-
- processes_by_cmdline = NULL;
- processes_by_pid = NULL;
-}
generated by cgit v1.2.3 (git 2.39.1) at 2024-12-20 06:42:54 +0000