Menu
▾
▴
[openocd-svn] Main OpenOCD repository branch, master, updated. v0.3.0-464-g5e229bb
|
From: Zach W. <zw...@us...> - 2009-11-18 16:41:38
|
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Main OpenOCD repository".
The branch, master has been updated
via 5e229bbf87fbb5a809553526edf0186dd3dd5cf8 (commit)
via cb7dbc1af41068f826246beb53870c01d8973bb8 (commit)
via 903daa796a226152fe56245758c8388b79d12988 (commit)
from 59f32cbe53ccd8725e01968fcbc716cc5768a36b (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
commit 5e229bbf87fbb5a809553526edf0186dd3dd5cf8
Author: Zachary T Welch <zw...@su...>
Date: Tue Nov 17 09:15:09 2009 -0800
pass startup_tcl to command_init
Removes external linkage from helper module, making the startup
code a parameter to a new command context's initialization routine.
diff --git a/src/Makefile.am b/src/Makefile.am
index 7a88681..8f96b05 100644
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -116,7 +116,7 @@ BIN2C = $(builddir)/helper/bin2char$(EXEEXT_FOR_BUILD)
# Convert .tcl to cfile
startup_tcl.c: startup.tcl $(BIN2C)
- $(BIN2C) startup_tcl < $< > $@ || rm -f $@
+ $(BIN2C) openocd_startup_tcl < $< > $@ || rm -f $@
# add startup_tcl.c to make clean list
CLEANFILES = startup.tcl startup_tcl.c
diff --git a/src/helper/command.c b/src/helper/command.c
index ad09e3d..708a802 100644
--- a/src/helper/command.c
+++ b/src/helper/command.c
@@ -766,10 +766,9 @@ COMMAND_HANDLER(handle_fast_command)
}
-struct command_context* command_init()
+struct command_context* command_init(const char *startup_tcl)
{
struct command_context* context = malloc(sizeof(struct command_context));
- extern const char startup_tcl[];
const char *HostOs;
context->mode = COMMAND_EXEC;
diff --git a/src/helper/command.h b/src/helper/command.h
index 62231fc..05088b5 100644
--- a/src/helper/command.h
+++ b/src/helper/command.h
@@ -190,7 +190,10 @@ struct command_context* copy_command_context(struct command_context* context);
int command_context_mode(struct command_context *context, enum command_mode mode);
-struct command_context* command_init(void);
+/**
+ * Creates a new command context using the startup TCL provided.
+ */
+struct command_context* command_init(const char *startup_tcl);
int command_done(struct command_context *context);
void command_print(struct command_context *context, const char *format, ...)
diff --git a/src/openocd.c b/src/openocd.c
index 9edd611..b7781a6 100644
--- a/src/openocd.c
+++ b/src/openocd.c
@@ -28,6 +28,7 @@
#include "config.h"
#endif
+#include "openocd.h"
#include "jtag.h"
#include "configuration.h"
#include "xsvf.h"
@@ -168,7 +169,7 @@ struct command_context *setup_command_handler(void)
{
struct command_context *cmd_ctx;
- global_cmd_ctx = cmd_ctx = command_init();
+ global_cmd_ctx = cmd_ctx = command_init(openocd_startup_tcl);
register_command(cmd_ctx, NULL, "version", handle_version_command,
COMMAND_EXEC, "show OpenOCD version");
diff --git a/src/openocd.h b/src/openocd.h
index 1bf6b7e..70e3ee0 100644
--- a/src/openocd.h
+++ b/src/openocd.h
@@ -36,4 +36,7 @@ void openocd_sleep_prelude(void);
/// used by the server_loop() function in src/server/server.c
void openocd_sleep_postlude(void);
+/// provides a hard-coded command environment setup
+extern const char *openocd_startup_tcl;
+
#endif
commit cb7dbc1af41068f826246beb53870c01d8973bb8
Author: Zachary T Welch <zw...@su...>
Date: Tue Nov 17 08:29:20 2009 -0800
split startup.tcl file across modules
Moves definitions for each layer into their own file, eliminating
layering violations in the built-in TCL code. Updates src/Makefile.am
rules to include all files in the final startup.tcl input file, and
others Makefile.am rules to distribute the new files in our packages.
diff --git a/src/Makefile.am b/src/Makefile.am
index 2f17ba4..7a88681 100644
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -99,7 +99,11 @@ libopenocd_la_LIBADD += -lmicrohttpd
endif
STARTUP_TCL_SRCS = \
- $(srcdir)/helper/startup.tcl
+ $(srcdir)/helper/startup.tcl \
+ $(srcdir)/jtag/startup.tcl \
+ $(srcdir)/target/startup.tcl \
+ $(srcdir)/flash/startup.tcl \
+ $(srcdir)/server/startup.tcl
EXTRA_DIST = $(STARTUP_TCL_SRCS)
diff --git a/src/flash/Makefile.am b/src/flash/Makefile.am
index bbcc34c..b687182 100644
--- a/src/flash/Makefile.am
+++ b/src/flash/Makefile.am
@@ -79,4 +79,6 @@ noinst_HEADERS = \
s3c24xx_nand.h \
s3c24xx_regs_nand.h
+EXTRA_DIST = startup.tcl
+
MAINTAINERCLEANFILES = $(srcdir)/Makefile.in
diff --git a/src/flash/startup.tcl b/src/flash/startup.tcl
new file mode 100644
index 0000000..fcebbe0
--- /dev/null
+++ b/src/flash/startup.tcl
@@ -0,0 +1,16 @@
+# Defines basic Tcl procs for OpenOCD flash module
+
+# Show flash in human readable form
+# This is an example of a human readable form of a low level fn
+proc flash_banks {} {
+ set i 0
+ set result ""
+ foreach {a} [ocd_flash_banks] {
+ if {$i > 0} {
+ set result "$result\n"
+ }
+ set result [format "$result#%d: %s at 0x%08x, size 0x%08x, buswidth %d, chipwidth %d" $i $a(name) $a(base) $a(size) $a(bus_width) $a(chip_width)]
+ set i [expr $i+1]
+ }
+ return $result
+}
diff --git a/src/helper/Makefile.am b/src/helper/Makefile.am
index 9557f5b..22b3c33 100644
--- a/src/helper/Makefile.am
+++ b/src/helper/Makefile.am
@@ -50,6 +50,8 @@ noinst_HEADERS = \
system.h \
bin2char.c
+EXTRA_DIST = startup.tcl
+
BIN2C = bin2char$(EXEEXT_FOR_BUILD)
BUILT_SOURCES = $(BIN2C)
diff --git a/src/helper/startup.tcl b/src/helper/startup.tcl
index 096f03a..eefb690 100644
--- a/src/helper/startup.tcl
+++ b/src/helper/startup.tcl
@@ -1,11 +1,8 @@
-#
-# Defines basic Tcl procs that must be there for
-# OpenOCD to work.
+# Defines basic Tcl procs that must exist for OpenOCD scripts to work.
#
# Embedded into OpenOCD executable
#
-
# Help text list. A list of command + help text pairs.
#
# Commands can be more than one word and they are stored
@@ -22,21 +19,6 @@ proc get_help_text {} {
}
-# Show flash in human readable form
-# This is an example of a human readable form of a low level fn
-proc flash_banks {} {
- set i 0
- set result ""
- foreach {a} [ocd_flash_banks] {
- if {$i > 0} {
- set result "$result\n"
- }
- set result [format "$result#%d: %s at 0x%08x, size 0x%08x, buswidth %d, chipwidth %d" $i $a(name) $a(base) $a(size) $a(bus_width) $a(chip_width)]
- set i [expr $i+1]
- }
- return $result
-}
-
# We need to explicitly redirect this to the OpenOCD command
# as Tcl defines the exit proc
proc exit {} {
@@ -133,207 +115,6 @@ proc script {filename} {
add_help_text script "<filename> - filename of OpenOCD script (tcl) to run"
-# Handle GDB 'R' packet. Can be overriden by configuration script,
-# but it's not something one would expect target scripts to do
-# normally
-proc ocd_gdb_restart {target_id} {
- # Fix!!! we're resetting all targets here! Really we should reset only
- # one target
- reset halt
-}
-
-#########
-
-# Temporary migration aid. May be removed starting in January 2011.
-proc armv4_5 params {
- echo "DEPRECATED! use 'arm $params' not 'armv4_5 $params'"
- arm $params
-}
-
-#########
-
-# This reset logic may be overridden by board/target/... scripts as needed
-# to provide a reset that, if possible, is close to a power-up reset.
-#
-# Exit requirements include: (a) JTAG must be working, (b) the scan
-# chain was validated with "jtag arp_init" (or equivalent), (c) nothing
-# stays in reset. No TAP-specific scans were performed. It's OK if
-# some targets haven't been reset yet; they may need TAP-specific scans.
-#
-# The "mode" values include: halt, init, run (from "reset" command);
-# startup (at OpenOCD server startup, when JTAG may not yet work); and
-# potentially more (for reset types like cold, warm, etc)
-proc init_reset { mode } {
- jtag arp_init-reset
-}
-
-
-global in_process_reset
-set in_process_reset 0
-
-# Catch reset recursion
-proc ocd_process_reset { MODE } {
- global in_process_reset
- if {$in_process_reset} {
- set in_process_reset 0
- return -code error "'reset' can not be invoked recursively"
- }
-
- set in_process_reset 1
- set success [expr [catch {ocd_process_reset_inner $MODE} result]==0]
- set in_process_reset 0
-
- if {$success} {
- return $result
- } else {
- return -code error $result
- }
-}
-
-proc ocd_process_reset_inner { MODE } {
- set targets [target names]
-
- # If this target must be halted...
- set halt -1
- if { 0 == [string compare $MODE halt] } {
- set halt 1
- }
- if { 0 == [string compare $MODE init] } {
- set halt 1;
- }
- if { 0 == [string compare $MODE run ] } {
- set halt 0;
- }
- if { $halt < 0 } {
- return -error "Invalid mode: $MODE, must be one of: halt, init, or run";
- }
-
- # Target event handlers *might* change which TAPs are enabled
- # or disabled, so we fire all of them. But don't issue any
- # target "arp_*" commands, which may issue JTAG transactions,
- # unless we know the underlying TAP is active.
- #
- # NOTE: ARP == "Advanced Reset Process" ... "advanced" is
- # relative to a previous restrictive scheme
-
- foreach t $targets {
- # New event script.
- $t invoke-event reset-start
- }
-
- # Use TRST or TMS/TCK operations to reset all the tap controllers.
- # TAP reset events get reported; they might enable some taps.
- init_reset $MODE
-
- # Examine all targets on enabled taps.
- foreach t $targets {
- if {[jtag tapisenabled [$t cget -chain-position]]} {
- $t arp_examine
- }
- }
-
- # Assert SRST, and report the pre/post events.
- # Note: no target sees SRST before "pre" or after "post".
- foreach t $targets {
- $t invoke-event reset-assert-pre
- }
- foreach t $targets {
- # C code needs to know if we expect to 'halt'
- if {[jtag tapisenabled [$t cget -chain-position]]} {
- $t arp_reset assert $halt
- }
- }
- foreach t $targets {
- $t invoke-event reset-assert-post
- }
-
- # Now de-assert SRST, and report the pre/post events.
- # Note: no target sees !SRST before "pre" or after "post".
- foreach t $targets {
- $t invoke-event reset-deassert-pre
- }
- foreach t $targets {
- # Again, de-assert code needs to know if we 'halt'
- if {[jtag tapisenabled [$t cget -chain-position]]} {
- $t arp_reset deassert $halt
- }
- }
- foreach t $targets {
- $t invoke-event reset-deassert-post
- }
-
- # Pass 1 - Now wait for any halt (requested as part of reset
- # assert/deassert) to happen. Ideally it takes effect without
- # first executing any instructions.
- if { $halt } {
- foreach t $targets {
- if {[jtag tapisenabled [$t cget -chain-position]] == 0} {
- continue
- }
-
- # Wait upto 1 second for target to halt. Why 1sec? Cause
- # the JTAG tap reset signal might be hooked to a slow
- # resistor/capacitor circuit - and it might take a while
- # to charge
-
- # Catch, but ignore any errors.
- catch { $t arp_waitstate halted 1000 }
-
- # Did we succeed?
- set s [$t curstate]
-
- if { 0 != [string compare $s "halted" ] } {
- return -error [format "TARGET: %s - Not halted" $t]
- }
- }
- }
-
- #Pass 2 - if needed "init"
- if { 0 == [string compare init $MODE] } {
- foreach t $targets {
- if {[jtag tapisenabled [$t cget -chain-position]] == 0} {
- continue
- }
-
- set err [catch "$t arp_waitstate halted 5000"]
- # Did it halt?
- if { $err == 0 } {
- $t invoke-event reset-init
- }
- }
- }
-
- foreach t $targets {
- $t invoke-event reset-end
- }
-}
-
-#########
-
-# REVISIT power_restore, power_dropout, srst_deasserted, srst_asserted
-# are currently neither documented nor supported except on ZY1000.
-
-proc power_restore {} {
- puts "Sensed power restore."
- reset init
-}
-
-add_help_text power_restore "Overridable procedure run when power restore is detected. Runs 'reset init' by default."
-
-proc power_dropout {} {
- puts "Sensed power dropout."
-}
-
-proc srst_deasserted {} {
- puts "Sensed nSRST deasserted."
- reset init
-}
-add_help_text srst_deasserted "Overridable procedure run when srst deassert is detected. Runs 'reset init' by default."
-
-proc srst_asserted {} {
- puts "Sensed nSRST asserted."
-}
-
#########
# catch any exceptions, capture output and return output
@@ -343,13 +124,3 @@ proc capture_catch {a} {
} result
return $result
}
-
-
-# Executed during "init". Can be overridden
-# by board/target/... scripts
-proc jtag_init {} {
- if {[catch {jtag arp_init} err]!=0} {
- # try resetting additionally
- init_reset startup
- }
-}
diff --git a/src/jtag/Makefile.am b/src/jtag/Makefile.am
index ba722c6..85d98c0 100644
--- a/src/jtag/Makefile.am
+++ b/src/jtag/Makefile.am
@@ -94,4 +94,6 @@ noinst_HEADERS = \
rlink/st7.h \
minidummy/jtag_minidriver.h
+EXTRA_DIST = startup.tcl
+
MAINTAINERCLEANFILES = $(srcdir)/Makefile.in
diff --git a/src/jtag/startup.tcl b/src/jtag/startup.tcl
new file mode 100644
index 0000000..999f5d0
--- /dev/null
+++ b/src/jtag/startup.tcl
@@ -0,0 +1,41 @@
+# Defines basic Tcl procs for OpenOCD JTAG module
+
+# Executed during "init". Can be overridden
+# by board/target/... scripts
+proc jtag_init {} {
+ if {[catch {jtag arp_init} err]!=0} {
+ # try resetting additionally
+ init_reset startup
+ }
+}
+
+#########
+
+# TODO: power_restore and power_dropout are currently neither
+# documented nor supported except on ZY1000.
+
+proc power_restore {} {
+ puts "Sensed power restore."
+ reset init
+}
+
+add_help_text power_restore "Overridable procedure run when power restore is detected. Runs 'reset init' by default."
+
+proc power_dropout {} {
+ puts "Sensed power dropout."
+}
+
+#########
+
+# TODO: srst_deasserted and srst_asserted are currently neither
+# documented nor supported except on ZY1000.
+
+proc srst_deasserted {} {
+ puts "Sensed nSRST deasserted."
+ reset init
+}
+add_help_text srst_deasserted "Overridable procedure run when srst deassert is detected. Runs 'reset init' by default."
+
+proc srst_asserted {} {
+ puts "Sensed nSRST asserted."
+}
diff --git a/src/server/Makefile.am b/src/server/Makefile.am
index 6e52fdf..bb7d5ef 100644
--- a/src/server/Makefile.am
+++ b/src/server/Makefile.am
@@ -35,6 +35,7 @@ nobase_dist_pkgdata_DATA = \
endif
EXTRA_DIST = \
+ startup.tcl \
httpd/readme.txt \
httpd/menu.xml \
httpd/menu.xsl \
diff --git a/src/server/startup.tcl b/src/server/startup.tcl
new file mode 100644
index 0000000..677bb2d
--- /dev/null
+++ b/src/server/startup.tcl
@@ -0,0 +1,8 @@
+# Handle GDB 'R' packet. Can be overriden by configuration script,
+# but it's not something one would expect target scripts to do
+# normally
+proc ocd_gdb_restart {target_id} {
+ # Fix!!! we're resetting all targets here! Really we should reset only
+ # one target
+ reset halt
+}
diff --git a/src/target/Makefile.am b/src/target/Makefile.am
index 9dd0bdc..23aea82 100644
--- a/src/target/Makefile.am
+++ b/src/target/Makefile.am
@@ -13,7 +13,9 @@ AM_CPPFLAGS = \
BIN2C = $(top_builddir)/src/helper/bin2char$(EXEEXT_FOR_BUILD)
DEBUG_HANDLER = $(srcdir)/xscale/debug_handler.bin
-EXTRA_DIST = $(DEBUG_HANDLER)
+EXTRA_DIST = \
+ startup.tcl \
+ $(DEBUG_HANDLER)
DEBUG_HEADER = xscale_debug.h
BUILT_SOURCES = $(DEBUG_HEADER)
diff --git a/src/target/startup.tcl b/src/target/startup.tcl
new file mode 100644
index 0000000..d480f33
--- /dev/null
+++ b/src/target/startup.tcl
@@ -0,0 +1,165 @@
+#########
+
+# This reset logic may be overridden by board/target/... scripts as needed
+# to provide a reset that, if possible, is close to a power-up reset.
+#
+# Exit requirements include: (a) JTAG must be working, (b) the scan
+# chain was validated with "jtag arp_init" (or equivalent), (c) nothing
+# stays in reset. No TAP-specific scans were performed. It's OK if
+# some targets haven't been reset yet; they may need TAP-specific scans.
+#
+# The "mode" values include: halt, init, run (from "reset" command);
+# startup (at OpenOCD server startup, when JTAG may not yet work); and
+# potentially more (for reset types like cold, warm, etc)
+proc init_reset { mode } {
+ jtag arp_init-reset
+}
+
+
+global in_process_reset
+set in_process_reset 0
+
+# Catch reset recursion
+proc ocd_process_reset { MODE } {
+ global in_process_reset
+ if {$in_process_reset} {
+ set in_process_reset 0
+ return -code error "'reset' can not be invoked recursively"
+ }
+
+ set in_process_reset 1
+ set success [expr [catch {ocd_process_reset_inner $MODE} result]==0]
+ set in_process_reset 0
+
+ if {$success} {
+ return $result
+ } else {
+ return -code error $result
+ }
+}
+
+proc ocd_process_reset_inner { MODE } {
+ set targets [target names]
+
+ # If this target must be halted...
+ set halt -1
+ if { 0 == [string compare $MODE halt] } {
+ set halt 1
+ }
+ if { 0 == [string compare $MODE init] } {
+ set halt 1;
+ }
+ if { 0 == [string compare $MODE run ] } {
+ set halt 0;
+ }
+ if { $halt < 0 } {
+ return -error "Invalid mode: $MODE, must be one of: halt, init, or run";
+ }
+
+ # Target event handlers *might* change which TAPs are enabled
+ # or disabled, so we fire all of them. But don't issue any
+ # target "arp_*" commands, which may issue JTAG transactions,
+ # unless we know the underlying TAP is active.
+ #
+ # NOTE: ARP == "Advanced Reset Process" ... "advanced" is
+ # relative to a previous restrictive scheme
+
+ foreach t $targets {
+ # New event script.
+ $t invoke-event reset-start
+ }
+
+ # Use TRST or TMS/TCK operations to reset all the tap controllers.
+ # TAP reset events get reported; they might enable some taps.
+ init_reset $MODE
+
+ # Examine all targets on enabled taps.
+ foreach t $targets {
+ if {[jtag tapisenabled [$t cget -chain-position]]} {
+ $t arp_examine
+ }
+ }
+
+ # Assert SRST, and report the pre/post events.
+ # Note: no target sees SRST before "pre" or after "post".
+ foreach t $targets {
+ $t invoke-event reset-assert-pre
+ }
+ foreach t $targets {
+ # C code needs to know if we expect to 'halt'
+ if {[jtag tapisenabled [$t cget -chain-position]]} {
+ $t arp_reset assert $halt
+ }
+ }
+ foreach t $targets {
+ $t invoke-event reset-assert-post
+ }
+
+ # Now de-assert SRST, and report the pre/post events.
+ # Note: no target sees !SRST before "pre" or after "post".
+ foreach t $targets {
+ $t invoke-event reset-deassert-pre
+ }
+ foreach t $targets {
+ # Again, de-assert code needs to know if we 'halt'
+ if {[jtag tapisenabled [$t cget -chain-position]]} {
+ $t arp_reset deassert $halt
+ }
+ }
+ foreach t $targets {
+ $t invoke-event reset-deassert-post
+ }
+
+ # Pass 1 - Now wait for any halt (requested as part of reset
+ # assert/deassert) to happen. Ideally it takes effect without
+ # first executing any instructions.
+ if { $halt } {
+ foreach t $targets {
+ if {[jtag tapisenabled [$t cget -chain-position]] == 0} {
+ continue
+ }
+
+ # Wait upto 1 second for target to halt. Why 1sec? Cause
+ # the JTAG tap reset signal might be hooked to a slow
+ # resistor/capacitor circuit - and it might take a while
+ # to charge
+
+ # Catch, but ignore any errors.
+ catch { $t arp_waitstate halted 1000 }
+
+ # Did we succeed?
+ set s [$t curstate]
+
+ if { 0 != [string compare $s "halted" ] } {
+ return -error [format "TARGET: %s - Not halted" $t]
+ }
+ }
+ }
+
+ #Pass 2 - if needed "init"
+ if { 0 == [string compare init $MODE] } {
+ foreach t $targets {
+ if {[jtag tapisenabled [$t cget -chain-position]] == 0} {
+ continue
+ }
+
+ set err [catch "$t arp_waitstate halted 5000"]
+ # Did it halt?
+ if { $err == 0 } {
+ $t invoke-event reset-init
+ }
+ }
+ }
+
+ foreach t $targets {
+ $t invoke-event reset-end
+ }
+}
+
+#########
+
+# Temporary migration aid. May be removed starting in January 2011.
+proc armv4_5 params {
+ echo "DEPRECATED! use 'arm $params' not 'armv4_5 $params'"
+ arm $params
+}
commit 903daa796a226152fe56245758c8388b79d12988
Author: Zachary T Welch <zw...@su...>
Date: Tue Nov 17 08:30:51 2009 -0800
move startup.c to libopenocd
Moves the creation of startup_tcl.c from src/helper/ to src/.
Prepares to split the startup.tcl file into its per-module parts.
diff --git a/.gitignore b/.gitignore
index f8a5381..114fc05 100644
--- a/.gitignore
+++ b/.gitignore
@@ -13,6 +13,7 @@
# editor files
*.swp
+src/startup.tcl
startup_tcl.c
xscale_debug.h
diff --git a/src/Makefile.am b/src/Makefile.am
index 77ae5ae..2f17ba4 100644
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -14,7 +14,8 @@ openocd_LDADD = libopenocd.la
libopenocd_la_SOURCES = \
hello.c \
- openocd.c
+ openocd.c \
+ startup_tcl.c
noinst_HEADERS = \
openocd.h
@@ -97,6 +98,26 @@ if HTTPD
libopenocd_la_LIBADD += -lmicrohttpd
endif
+STARTUP_TCL_SRCS = \
+ $(srcdir)/helper/startup.tcl
+
+EXTRA_DIST = $(STARTUP_TCL_SRCS)
+
+BUILT_SOURCES = startup.tcl
+
+startup.tcl: $(STARTUP_TCL_SRCS)
+ cat $^ > $@
+
+BIN2C = $(builddir)/helper/bin2char$(EXEEXT_FOR_BUILD)
+
+# Convert .tcl to cfile
+startup_tcl.c: startup.tcl $(BIN2C)
+ $(BIN2C) startup_tcl < $< > $@ || rm -f $@
+
+# add startup_tcl.c to make clean list
+CLEANFILES = startup.tcl startup_tcl.c
+
+
MAINTAINERCLEANFILES = $(srcdir)/Makefile.in
# The "quick" target builds executables & reinstalls the executables
diff --git a/src/helper/Makefile.am b/src/helper/Makefile.am
index 67250a1..9557f5b 100644
--- a/src/helper/Makefile.am
+++ b/src/helper/Makefile.am
@@ -23,8 +23,7 @@ libhelper_la_SOURCES = \
time_support.c \
replacements.c \
fileio.c \
- membuf.c \
- startup_tcl.c
+ membuf.c
if IOUTIL
libhelper_la_SOURCES += ioutil.c
@@ -49,7 +48,6 @@ noinst_HEADERS = \
jim.h \
jim-eventloop.h \
system.h \
- startup.tcl \
bin2char.c
BIN2C = bin2char$(EXEEXT_FOR_BUILD)
@@ -59,11 +57,6 @@ BUILT_SOURCES = $(BIN2C)
$(BIN2C): bin2char.c
${CC_FOR_BUILD} ${CFLAGS_FOR_BUILD} $(srcdir)/bin2char.c -o $@
-# Convert .tcl to cfile
-startup_tcl.c: startup.tcl $(BIN2C)
- ./$(BIN2C) startup_tcl < $(srcdir)/startup.tcl > $@
-
-# add startup_tcl.c to make clean list
-CLEANFILES = startup_tcl.c bin2char$(EXEEXT_FOR_BUILD)
+CLEANFILES = bin2char$(EXEEXT_FOR_BUILD)
MAINTAINERCLEANFILES = $(srcdir)/Makefile.in
-----------------------------------------------------------------------
Summary of changes:
.gitignore | 1 +
src/Makefile.am | 27 ++++++-
src/flash/Makefile.am | 2 +
src/flash/startup.tcl | 16 ++++
src/helper/Makefile.am | 13 +--
src/helper/command.c | 3 +-
src/helper/command.h | 5 +-
src/helper/startup.tcl | 231 +-----------------------------------------------
src/jtag/Makefile.am | 2 +
src/jtag/startup.tcl | 41 +++++++++
src/openocd.c | 3 +-
src/openocd.h | 3 +
src/server/Makefile.am | 1 +
src/server/startup.tcl | 8 ++
src/target/Makefile.am | 4 +-
src/target/startup.tcl | 165 ++++++++++++++++++++++++++++++++++
16 files changed, 280 insertions(+), 245 deletions(-)
create mode 100644 src/flash/startup.tcl
create mode 100644 src/jtag/startup.tcl
create mode 100644 src/server/startup.tcl
create mode 100644 src/target/startup.tcl
hooks/post-receive
--
Main OpenOCD repository
|
