aboutsummaryrefslogtreecommitdiff
path: root/cad/linuxcnc-devel/files/patch-scripts_latency-histogram
diff options
context:
space:
mode:
Diffstat (limited to 'cad/linuxcnc-devel/files/patch-scripts_latency-histogram')
-rw-r--r--cad/linuxcnc-devel/files/patch-scripts_latency-histogram90
1 files changed, 0 insertions, 90 deletions
diff --git a/cad/linuxcnc-devel/files/patch-scripts_latency-histogram b/cad/linuxcnc-devel/files/patch-scripts_latency-histogram
deleted file mode 100644
index f157629dab67..000000000000
--- a/cad/linuxcnc-devel/files/patch-scripts_latency-histogram
+++ /dev/null
@@ -1,90 +0,0 @@
---- scripts/latency-histogram.orig 2016-06-25 02:19:12 UTC
-+++ scripts/latency-histogram
-@@ -1,4 +1,4 @@
--#!/usr/bin/wish
-+#!/usr/bin/env wish8.6
- #
-
- # Usage:
-@@ -51,7 +51,7 @@ package require Tclx
- proc set_defaults {} {
- set ::LH(start) [clock seconds]
- # don't include glxgears, error suffices
-- program_check {halrun halcmd lsmod pgrep pkill hostname}
-+ program_check {halrun halcmd pgrep pkill hostname}
- if {[string first rtai [string tolower $::tcl_platform(osVersion)]] >=0} {
- set ::LH(rtai) rtai
- set ::LH(realtime) [exec linuxcnc_var REALTIME]
-@@ -234,25 +234,25 @@ $display \
- } ;# other_info
-
- proc processor_info {} {
-- set cmdline [exec cat /proc/cmdline]
-- set idx [string first isolcpus $cmdline]
-- if {$idx < 0} {
-+# set cmdline [exec cat /proc/cmdline]
-+# set idx [string first isolcpus $cmdline]
-+# if {$idx < 0} {
- set isolcpus no_isolcpus
-- } else {
-- set tmp [string range $cmdline $idx end]
-- set tmp "$tmp " ;# add trailing blank
-- set isolcpus [string range $tmp 0 [expr -1 + [string first " " $tmp]]]
-- }
-- set fd [open /proc/cpuinfo]
-- while {![eof $fd]} {
-- gets $fd newline
-- set s [split $newline :]
-- set key [string trim [lindex $s 0]]
-- set key [string map "\" \" _" $key]
-- set v [lindex $s 1]
-- set procinfo($key) $v
-- }
-- close $fd
-+# } else {
-+# set tmp [string range $cmdline $idx end]
-+# set tmp "$tmp " ;# add trailing blank
-+# set isolcpus [string range $tmp 0 [expr -1 + [string first " " $tmp]]]
-+# }
-+# set fd [open /proc/cpuinfo]
-+# while {![eof $fd]} {
-+# gets $fd newline
-+# set s [split $newline :]
-+# set key [string trim [lindex $s 0]]
-+# set key [string map "\" \" _" $key]
-+# set v [lindex $s 1]
-+# set procinfo($key) $v
-+# }
-+# close $fd
-
- set cores "1_core"
- catch {set cores "$procinfo(cpu_cores) cores"};# item may not exist
-@@ -297,17 +297,17 @@ proc load_packages {} {
- exit 1
- }
-
-- if [info exists ::LH(rtai)] {
-- if [catch {exec lsmod | grep rtai} msg] {
-- # puts ok_to_start_rtai
-- } else {
-- popup "RTAI is already running, (try: \$ halrun -U)"
-- exit 1
-- }
-- exec $::LH(realtime) start &
-- progress "Delay for realtime startup"
-- after 1000 ;# wait to load Hal package
-- }
-+# if [info exists ::LH(rtai)] {
-+# if [catch {exec | grep rtai} msg] {
-+# # puts ok_to_start_rtai
-+# } else {
-+# popup "RTAI is already running, (try: \$ halrun -U)"
-+# exit 1
-+# }
-+# exec $::LH(realtime) start &
-+# progress "Delay for realtime startup"
-+# after 1000 ;# wait to load Hal package
-+# }
-
- # augment ::auto_path for special case:
- # 1) RIP build (no install)