[oprof-cvs] CVS: oprofile/gui oprofile,1.9,1.10

[John L. <mov...@us...>]

Update of /cvsroot/oprofile/oprofile/gui
In directory usw-pr-cvs1:/tmp/cvs-serv28096/gui

Modified Files:
	oprofile 
Log Message:
use op_dump



Index: oprofile
===================================================================
RCS file: /cvsroot/oprofile/oprofile/gui/oprofile,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- oprofile	2001/07/21 22:53:38	1.9
+++ oprofile	2001/08/16 02:23:01	1.10
@@ -706,19 +706,7 @@
     # the user can try to flush even if the driver is not loaded so check for
     # the file existence before attempting to make a flush.
     if { [file exists /proc/sys/dev/oprofile/dump] } then {
-
-	# FIXME : apparently there is no way actually to check if dumping has
-	# been done correctly.
-	set fd [open /proc/sys/dev/oprofile/dump w]
-	puts $fd "1"
-
-	#  Must be enclosed in a catch clause because the driver return a zero
-	# file length write (or an error ?), wish interpret this as a write
-	# error. Take care it is really needed to catch { flush $fd } instead 
-	# of  catch { close $fd } else the tcl/tk runtime leaks a file 
-	# descriptor each time this function is called.
-	catch { flush $fd }
-	close $fd
+	exec op_dump
     }
 }