diff options
Diffstat (limited to 'rts/FrontPanel.c')
| -rw-r--r-- | rts/FrontPanel.c | 796 |
1 files changed, 0 insertions, 796 deletions
diff --git a/rts/FrontPanel.c b/rts/FrontPanel.c deleted file mode 100644 index b0b9bced4a..0000000000 --- a/rts/FrontPanel.c +++ /dev/null @@ -1,796 +0,0 @@ -/* ----------------------------------------------------------------------------- - * - * (c) The GHC Team 2000 - * - * RTS GTK Front Panel - * - * ---------------------------------------------------------------------------*/ - -#ifdef RTS_GTK_FRONTPANEL - -/* Alas, not Posix. */ -/* #include "PosixSource.h" */ - -#include "Rts.h" - -#include "RtsUtils.h" -#include "FrontPanel.h" -#include "Stats.h" -#include "Schedule.h" - -#include <gtk/gtk.h> -#include <unistd.h> -#include <string.h> - -#include "VisSupport.h" -#include "VisWindow.h" - -static GtkWidget *window, *map_drawing_area, *gen_drawing_area; -static GtkWidget *res_drawing_area; -static GtkWidget *continue_but, *stop_but, *quit_but; -static GtkWidget *statusbar; -static GtkWidget *live_label, *allocated_label; -static GtkWidget *footprint_label, *alloc_rate_label; -static GtkWidget *map_ruler, *gen_ruler; -static GtkWidget *res_vruler, *res_hruler; -static GtkWidget *running_label, *b_read_label, *b_write_label, *total_label; -static GtkWidget *b_mvar_label, *b_bh_label, *b_throwto_label, *sleeping_label; - -static guint status_context_id; - -gboolean continue_now = FALSE, stop_now = FALSE, quit = FALSE; -UpdateMode update_mode = Continuous; - -static GdkPixmap *map_pixmap = NULL; -static GdkPixmap *gen_pixmap = NULL; -static GdkPixmap *res_pixmap = NULL; - -#define N_GENS 10 - -static GdkColor - bdescr_color = { 0, 0xffff, 0, 0 }, /* red */ - free_color = { 0, 0, 0, 0xffff }, /* blue */ - gen_colors[N_GENS] = { - { 0, 0, 0xffff, 0 }, - { 0, 0, 0xf000, 0 }, - { 0, 0, 0xe000, 0 }, - { 0, 0, 0xd000, 0 }, - { 0, 0, 0xc000, 0 }, - { 0, 0, 0xb000, 0 }, - { 0, 0, 0xa000, 0 }, - { 0, 0, 0x9000, 0 }, - { 0, 0, 0x8000, 0 }, - { 0, 0, 0x7000, 0 } - }; - -GdkGC *my_gc = NULL; - -static void *mem_start = (void *) 0x50000000; - -static void colorBlock( void *addr, GdkColor *color, - nat block_width, nat block_height, - nat blocks_per_line ); - -static void residencyCensus( void ); -static void updateResidencyGraph( void ); -static void updateThreadsPanel( void ); - -/* Some code pinched from examples/scribble-simple in the GTK+ - * distribution. - */ - -/* Create a new backing pixmap of the appropriate size */ -static gint -configure_event( GtkWidget *widget, GdkEventConfigure *event STG_UNUSED, - GdkPixmap **pixmap ) -{ - if (*pixmap) - gdk_pixmap_unref(*pixmap); - - *pixmap = gdk_pixmap_new(widget->window, - widget->allocation.width, - widget->allocation.height, - -1); - - gdk_draw_rectangle (*pixmap, - widget->style->white_gc, - TRUE, - 0, 0, - widget->allocation.width, - widget->allocation.height); - - debugBelch("configure!\n"); - updateFrontPanel(); - return TRUE; -} - -/* Redraw the screen from the backing pixmap */ -static gint -expose_event( GtkWidget *widget, GdkEventExpose *event, GdkPixmap **pixmap ) -{ - gdk_draw_pixmap(widget->window, - widget->style->fg_gc[GTK_WIDGET_STATE (widget)], - *pixmap, - event->area.x, event->area.y, - event->area.x, event->area.y, - event->area.width, event->area.height); - - return FALSE; -} - -void -initFrontPanel( void ) -{ - GdkColormap *colormap; - GtkWidget *gen_hbox; - - gtk_init( &prog_argc, &prog_argv ); - - window = create_GHC_Front_Panel(); - map_drawing_area = lookup_widget(window, "memmap"); - gen_drawing_area = lookup_widget(window, "generations"); - res_drawing_area = lookup_widget(window, "res_drawingarea"); - stop_but = lookup_widget(window, "stop_but"); - continue_but = lookup_widget(window, "continue_but"); - quit_but = lookup_widget(window, "quit_but"); - statusbar = lookup_widget(window, "statusbar"); - live_label = lookup_widget(window, "live_label"); - footprint_label = lookup_widget(window, "footprint_label"); - allocated_label = lookup_widget(window, "allocated_label"); - alloc_rate_label = lookup_widget(window, "alloc_rate_label"); - gen_hbox = lookup_widget(window, "gen_hbox"); - gen_ruler = lookup_widget(window, "gen_ruler"); - map_ruler = lookup_widget(window, "map_ruler"); - res_vruler = lookup_widget(window, "res_vruler"); - res_hruler = lookup_widget(window, "res_hruler"); - running_label = lookup_widget(window, "running_label"); - b_read_label = lookup_widget(window, "blockread_label"); - b_write_label = lookup_widget(window, "blockwrite_label"); - b_mvar_label = lookup_widget(window, "blockmvar_label"); - b_bh_label = lookup_widget(window, "blockbh_label"); - b_throwto_label = lookup_widget(window, "blockthrowto_label"); - sleeping_label = lookup_widget(window, "sleeping_label"); - total_label = lookup_widget(window, "total_label"); - - status_context_id = - gtk_statusbar_get_context_id( GTK_STATUSBAR(statusbar), "context" ); - - /* hook up some signals for the mem map drawing area */ - gtk_signal_connect (GTK_OBJECT(map_drawing_area), "expose_event", - (GtkSignalFunc)expose_event, &map_pixmap); - gtk_signal_connect (GTK_OBJECT(map_drawing_area), "configure_event", - (GtkSignalFunc)configure_event, &map_pixmap); - - gtk_widget_set_events(map_drawing_area, GDK_EXPOSURE_MASK); - - /* hook up some signals for the gen drawing area */ - gtk_signal_connect (GTK_OBJECT(gen_drawing_area), "expose_event", - (GtkSignalFunc)expose_event, &gen_pixmap); - gtk_signal_connect (GTK_OBJECT(gen_drawing_area), "configure_event", - (GtkSignalFunc)configure_event, &gen_pixmap); - - gtk_widget_set_events(gen_drawing_area, GDK_EXPOSURE_MASK); - - /* hook up some signals for the res drawing area */ - gtk_signal_connect (GTK_OBJECT(res_drawing_area), "expose_event", - (GtkSignalFunc)expose_event, &res_pixmap); - gtk_signal_connect (GTK_OBJECT(res_drawing_area), "configure_event", - (GtkSignalFunc)configure_event, &res_pixmap); - - gtk_widget_set_events(res_drawing_area, GDK_EXPOSURE_MASK); - - /* allocate our colors */ - colormap = gdk_colormap_get_system(); - gdk_colormap_alloc_color(colormap, &bdescr_color, TRUE, TRUE); - gdk_colormap_alloc_color(colormap, &free_color, TRUE, TRUE); - - { - gboolean success[N_GENS]; - gdk_colormap_alloc_colors(colormap, gen_colors, N_GENS, TRUE, - TRUE, success); - if (!success) { barf("can't allocate colors"); } - } - - /* set the labels on the generation histogram */ - { - char buf[64]; - nat g, s; - GtkWidget *label; - - for(g = 0; g < RtsFlags.GcFlags.generations; g++) { - for(s = 0; s < generations[g].n_steps; s++) { - g_snprintf( buf, 64, "%d.%d", g, s ); - label = gtk_label_new( buf ); - gtk_box_pack_start( GTK_BOX(gen_hbox), label, - TRUE, TRUE, 5 ); - gtk_widget_show(label); - } - } - } - - gtk_widget_show(window); - - /* wait for the user to press "Continue" before getting going... */ - gtk_statusbar_push( GTK_STATUSBAR(statusbar), status_context_id, - "Program start"); - gtk_widget_set_sensitive( stop_but, FALSE ); - continue_now = FALSE; - while (continue_now == FALSE) { - gtk_main_iteration(); - } - gtk_statusbar_pop( GTK_STATUSBAR(statusbar), status_context_id ); - gtk_statusbar_push( GTK_STATUSBAR(statusbar), status_context_id, - "Running"); - - gtk_widget_set_sensitive( continue_but, FALSE ); - gtk_widget_set_sensitive( stop_but, TRUE ); - gtk_widget_set_sensitive( quit_but, FALSE ); - - while (gtk_events_pending()) { - gtk_main_iteration(); - } -} - -void -stopFrontPanel( void ) -{ - gtk_widget_set_sensitive( quit_but, TRUE ); - gtk_widget_set_sensitive( continue_but, FALSE ); - gtk_widget_set_sensitive( stop_but, FALSE ); - - updateFrontPanel(); - - gtk_statusbar_push( GTK_STATUSBAR(statusbar), status_context_id, - "Program finished"); - - quit = FALSE; - while (quit == FALSE) { - gtk_main_iteration(); - } -} - -static void -waitForContinue( void ) -{ - gtk_widget_set_sensitive( continue_but, TRUE ); - gtk_widget_set_sensitive( stop_but, FALSE ); - stop_now = FALSE; - continue_now = FALSE; - while (continue_now == FALSE) { - gtk_main_iteration(); - } - gtk_widget_set_sensitive( continue_but, FALSE ); - gtk_widget_set_sensitive( stop_but, TRUE ); -} - -void -updateFrontPanelBeforeGC( nat N ) -{ - char buf[1000]; - - updateFrontPanel(); - - if (update_mode == BeforeGC - || update_mode == BeforeAfterGC - || stop_now == TRUE) { - g_snprintf( buf, 1000, "Stopped (before GC, generation %d)", N ); - gtk_statusbar_push( GTK_STATUSBAR(statusbar), status_context_id, buf ); - waitForContinue(); - gtk_statusbar_pop( GTK_STATUSBAR(statusbar), status_context_id ); - } - - g_snprintf( buf, 1000, "Garbage collecting (generation %d)", N ); - gtk_statusbar_push( GTK_STATUSBAR(statusbar), status_context_id, buf); - - while (gtk_events_pending()) { - gtk_main_iteration(); - } -} - -static void -numLabel( GtkWidget *lbl, nat n ) -{ - char buf[64]; - g_snprintf(buf, 64, "%d", n); - gtk_label_set_text( GTK_LABEL(lbl), buf ); -} - -void -updateFrontPanelAfterGC( nat N, W_ live ) -{ - char buf[1000]; - - gtk_statusbar_pop( GTK_STATUSBAR(statusbar), status_context_id ); - - /* is a major GC? */ - if (N == RtsFlags.GcFlags.generations-1) { - residencyCensus(); - } - - updateFrontPanel(); - - if (update_mode == AfterGC - || update_mode == BeforeAfterGC - || stop_now == TRUE) { - snprintf( buf, 1000, "Stopped (after GC, generation %d)", N ); - gtk_statusbar_push( GTK_STATUSBAR(statusbar), status_context_id, buf ); - waitForContinue(); - gtk_statusbar_pop( GTK_STATUSBAR(statusbar), status_context_id ); - } - - { - double words_to_megs = (1024 * 1024) / sizeof(W_); - double time = mut_user_time(); - - snprintf( buf, 1000, "%.2f", (double)live / words_to_megs ); - gtk_label_set_text( GTK_LABEL(live_label), buf ); - - snprintf( buf, 1000, "%.2f", (double)total_allocated / words_to_megs ); - gtk_label_set_text( GTK_LABEL(allocated_label), buf ); - - snprintf( buf, 1000, "%.2f", - (double)(mblocks_allocated * MBLOCK_SIZE_W) / words_to_megs ); - gtk_label_set_text( GTK_LABEL(footprint_label), buf ); - - if ( time == 0.0 ) - snprintf( buf, 1000, "%.2f", time ); - else - snprintf( buf, 1000, "%.2f", - (double)(total_allocated / words_to_megs) / time ); - gtk_label_set_text( GTK_LABEL(alloc_rate_label), buf ); - } - - while (gtk_events_pending()) { - gtk_main_iteration(); - } -} - -void -updateFrontPanel( void ) -{ - void *m, *a; - bdescr *bd; - - updateThreadsPanel(); - - if (my_gc == NULL) { - my_gc = gdk_gc_new( window->window ); - } - - if (map_pixmap != NULL) { - nat height, width, blocks_per_line, - block_height, block_width, mblock_height; - - height = map_drawing_area->allocation.height; - width = map_drawing_area->allocation.width; - - mblock_height = height / mblocks_allocated; - blocks_per_line = 16; - block_height = mblock_height / - ((MBLOCK_SIZE/BLOCK_SIZE) / blocks_per_line); - while (block_height == 0) { - blocks_per_line *= 2; - block_height = mblock_height / - ((MBLOCK_SIZE/BLOCK_SIZE) / blocks_per_line); - } - block_width = width / blocks_per_line; - - gdk_draw_rectangle (map_pixmap, - map_drawing_area->style->bg_gc[GTK_STATE_NORMAL], - TRUE, - 0, 0, - map_drawing_area->allocation.width, - map_drawing_area->allocation.height); - - for ( m = mem_start; - (char *)m < (char *)mem_start + - (mblocks_allocated * MBLOCK_SIZE); - (char *)m += MBLOCK_SIZE ) { - - /* color the bdescr area first */ - for (a = m; a < FIRST_BLOCK(m); (char *)a += BLOCK_SIZE) { - colorBlock( a, &bdescr_color, - block_width, block_height, blocks_per_line ); - } - -#if 0 /* Segfaults because bd appears to be bogus but != NULL. stolz, 2003-06-24 */ - /* color each block */ - for (; a <= LAST_BLOCK(m); (char *)a += BLOCK_SIZE) { - bd = Bdescr((P_)a); - ASSERT(bd->start == a); - if (bd->flags & BF_FREE) { - colorBlock( a, &free_color, - block_width, block_height, blocks_per_line ); - } else { - colorBlock( a, &gen_colors[bd->gen_no], - block_width, block_height, blocks_per_line ); - } - } -#endif - } - - - { - nat height = map_drawing_area->allocation.height, - block_height, mblock_height; - - block_height = (height / mblocks_allocated) / - ((MBLOCK_SIZE/BLOCK_SIZE) / blocks_per_line); - if (block_height < 1) block_height = 1; - mblock_height = block_height * - ((MBLOCK_SIZE/BLOCK_SIZE) / blocks_per_line); - - gtk_ruler_set_range( GTK_RULER(map_ruler), 0, - (double)(height * mblocks_allocated) / - (double)((mblock_height * mblocks_allocated)), - 0, - (double)(height * mblocks_allocated) / - (double)((mblock_height * mblocks_allocated)) - ); - } - - gtk_widget_draw( map_drawing_area, NULL ); - } - - if (gen_pixmap != NULL) { - - GdkRectangle rect; - nat g, s, columns, column, max_blocks, height_blocks, - width, height; - - gdk_draw_rectangle (gen_pixmap, - gen_drawing_area->style->white_gc, - TRUE, - 0, 0, - gen_drawing_area->allocation.width, - gen_drawing_area->allocation.height); - - height = gen_drawing_area->allocation.height; - width = gen_drawing_area->allocation.width; - - columns = 0; max_blocks = 0; - for(g = 0; g < RtsFlags.GcFlags.generations; g++) { - columns += generations[g].n_steps; - for(s = 0; s < generations[g].n_steps; s++) { - if (generations[g].steps[s].n_blocks > max_blocks) { - max_blocks = generations[g].steps[s].n_blocks; - } - } - } - - /* find a reasonable height value larger than max_blocks */ - { - nat n = 0; - while (max_blocks != 0) { - max_blocks >>= 1; n++; - } - height_blocks = 1 << n; - } - - column = 0; - for(g = 0; g < RtsFlags.GcFlags.generations; g++) { - for(s = 0; s < generations[g].n_steps; s++, column++) { - gdk_gc_set_foreground(my_gc, &gen_colors[g]); - - rect.x = column * (width / columns); - - if (generations[g].steps[s].n_blocks == 0) - rect.y = height; - else - rect.y = height - - (height * generations[g].steps[s].n_blocks - / height_blocks); - - rect.width = (width / columns); - rect.height = height - rect.y; - - gdk_draw_rectangle( gen_pixmap, my_gc, TRUE/*filled*/, - rect.x, rect.y, rect.width, - rect.height ); - } - } - - gtk_ruler_set_range( GTK_RULER(gen_ruler), - height_blocks * BLOCK_SIZE / (1024 * 1024), - 0, 0, - height_blocks * BLOCK_SIZE / (1024 * 1024) - ); - - gtk_widget_draw( gen_drawing_area, NULL ); - } - - if (res_pixmap != NULL) { - updateResidencyGraph(); - } - - while (gtk_events_pending()) { - gtk_main_iteration_do(FALSE/*don't block*/); - } -} - -static void -colorBlock( void *addr, GdkColor *color, - nat block_width, nat block_height, nat blocks_per_line ) -{ - GdkRectangle rect; - nat block_no; - - gdk_gc_set_foreground(my_gc, color); - - block_no = ((char *)addr - (char *)mem_start) / BLOCK_SIZE; - - rect.x = (block_no % blocks_per_line) * block_width; - rect.y = block_no / blocks_per_line * block_height; - rect.width = block_width; - rect.height = block_height; - gdk_draw_rectangle( map_pixmap, my_gc, TRUE/*filled*/, - rect.x, rect.y, rect.width, rect.height ); -} - -static void -updateThreadsPanel( void ) -{ - nat running = 0, - b_read = 0, - b_write = 0, - b_mvar = 0, - b_throwto = 0, - b_bh = 0, - sleeping = 0, - total = 0; - - StgTSO *t; - - for (t = all_threads; t != END_TSO_QUEUE; t = t->global_link) { - switch (t->what_next) { - case ThreadKilled: break; - case ThreadComplete: break; - default: - switch (t->why_blocked) { - case BlockedOnRead: b_read++; break; - case BlockedOnWrite: b_write++; break; - case BlockedOnDelay: sleeping++; break; - case BlockedOnMVar: b_mvar++; break; - case BlockedOnException: b_throwto++; break; - case BlockedOnBlackHole: b_bh++; break; - case NotBlocked: running++; break; - } - } - } - total = running + b_read + b_write + b_mvar + b_throwto + b_bh + sleeping; - numLabel(running_label, running); - numLabel(b_read_label, b_read); - numLabel(b_write_label, b_write); - numLabel(b_mvar_label, b_mvar); - numLabel(b_bh_label, b_bh); - numLabel(b_throwto_label, b_throwto); - numLabel(sleeping_label, sleeping); - numLabel(total_label, total); -} - -typedef enum { Thunk, Fun, Constr, BlackHole, - Array, Thread, Other, N_Cats } ClosureCategory; - -#define N_SLICES 100 - -static nat *res_prof[N_SLICES]; -static double res_time[N_SLICES]; -static nat next_slice = 0; - -static void -residencyCensus( void ) -{ - nat slice = next_slice++, *prof; - bdescr *bd; - nat g, s, size, type; - StgPtr p; - StgInfoTable *info; - - if (slice >= N_SLICES) { - barf("too many slices"); - } - res_prof[slice] = stgMallocBytes(N_Cats * sizeof(nat), "residencyCensus"); - prof = res_prof[slice]; - memset(prof, 0, N_Cats * sizeof(nat)); - - res_time[slice] = mut_user_time(); - - for(g = 0; g < RtsFlags.GcFlags.generations; g++) { - for(s = 0; s < generations[g].n_steps; s++) { - - /* skip over g0s0 if multi-generational */ - if (RtsFlags.GcFlags.generations > 1 && - g == 0 && s == 0) continue; - - if (RtsFlags.GcFlags.generations == 1) { -/* bd = generations[g].steps[s].to_blocks; FIXME to_blocks does not exist */ - } else { - bd = generations[g].steps[s].blocks; - } - - for (; bd != NULL; bd = bd->link) { - - p = bd->start; - - while (p < bd->free) { - info = get_itbl((StgClosure *)p); - type = Other; - - switch (info->type) { - - case CONSTR: - case BCO: - if (((StgClosure *)p)->header.info == &stg_DEAD_WEAK_info) { - size = sizeofW(StgWeak); - type = Other; - break; - } - /* else, fall through... */ - case CONSTR_1_0: - case CONSTR_0_1: - case CONSTR_1_1: - case CONSTR_0_2: - case CONSTR_2_0: - size = sizeW_fromITBL(info); - type = Constr; - break; - - case FUN_1_0: - case FUN_0_1: - size = sizeofW(StgHeader) + 1; - goto fun; - case FUN_1_1: - case FUN_0_2: - case FUN_2_0: - case FUN: - size = sizeW_fromITBL(info); - fun: - type = Fun; - break; - - case THUNK_1_0: - case THUNK_0_1: - case THUNK_SELECTOR: - size = sizeofW(StgHeader) + 2; - goto thunk; - case THUNK_1_1: - case THUNK_0_2: - case THUNK_2_0: - case THUNK: - size = sizeW_fromITBL(info); - thunk: - type = Thunk; - break; - - case BLACKHOLE: -/* case BLACKHOLE_BQ: FIXME: case does not exist */ - size = sizeW_fromITBL(info); - type = BlackHole; - break; - - case AP: - size = pap_sizeW((StgPAP *)p); - type = Thunk; - break; - - case PAP: - size = pap_sizeW((StgPAP *)p); - type = Fun; - break; - - case ARR_WORDS: - size = arr_words_sizeW(stgCast(StgArrWords*,p)); - type = Array; - break; - - case MUT_ARR_PTRS: - case MUT_ARR_PTRS_FROZEN: - size = mut_arr_ptrs_sizeW((StgMutArrPtrs *)p); - type = Array; - break; - - case TSO: - size = tso_sizeW((StgTSO *)p); - type = Thread; - break; - - case WEAK: - case PRIM: - case MVAR: - case MUT_VAR: -/* case MUT_CONS: FIXME: case does not exist */ - case IND_PERM: - size = sizeW_fromITBL(info); - type = Other; - break; - - default: - barf("updateResidencyGraph: strange closure " - "%d", info->type ); - } - - prof[type] += size; - p += size; - } - } - } - } - -} - -static void -updateResidencyGraph( void ) -{ - nat total, prev_total, i, max_res; - double time; - double time_scale = 1; - nat last_slice = next_slice-1; - double res_scale = 1; /* in megabytes, doubles */ - nat *prof; - nat width, height; - GdkPoint points[4]; - - gdk_draw_rectangle (res_pixmap, - res_drawing_area->style->bg_gc[GTK_STATE_NORMAL], - TRUE, - 0, 0, - res_drawing_area->allocation.width, - res_drawing_area->allocation.height); - - if (next_slice == 0) return; - - time = res_time[last_slice]; - while (time > time_scale) { - time_scale *= 2; - } - - max_res = 0; - for (i = 0; i < next_slice; i++) { - prof = res_prof[i]; - total = prof[Thunk] + prof[Fun] + prof[Constr] + - prof[BlackHole] + prof[Array] + prof[Other]; - if (total > max_res) { - max_res = total; - } - } - while (max_res > res_scale) { - res_scale *= 2; - } - - height = res_drawing_area->allocation.height; - width = res_drawing_area->allocation.width; - - points[0].x = 0; - points[0].y = height; - points[1].y = height; - points[3].x = 0; - points[3].y = height; - - gdk_gc_set_foreground(my_gc, &free_color); - - prev_total = 0; - for (i = 0; i < next_slice; i++) { - prof = res_prof[i]; - total = prof[Thunk] + prof[Fun] + prof[Constr] + - prof[BlackHole] + prof[Array] + prof[Other]; - points[1].x = width * res_time[i] / time_scale; - points[2].x = points[1].x; - points[2].y = height - ((height * total) / res_scale); - gdk_draw_polygon(res_pixmap, my_gc, TRUE/*filled*/, points, 4); - points[3] = points[2]; - points[0] = points[1]; - } - - gtk_ruler_set_range( GTK_RULER(res_vruler), - res_scale / ((1024*1024)/sizeof(W_)), - 0, 0, - res_scale / ((1024*1024)/sizeof(W_)) ); - - gtk_ruler_set_range( GTK_RULER(res_hruler), - 0, time_scale, 0, time_scale ); - - - gtk_widget_draw( res_drawing_area, NULL ); -} - -#endif /* RTS_GTK_FRONTPANEL */ |