Merge and end branch-hostside-wip-2008-01-25 PROPERLY; cvs up -j branch-hostside...

[trains.git] / cebpic / morse-generator

diff --git a/cebpic/morse-generator b/cebpic/morse-generator
index 622ba7a82dfbe3cb8e8804710464c4d2f97a2171..590f5e4178f91a18970535c4792197803a4fd7ae 100755 (executable)
--- a/cebpic/morse-generator
+++ b/cebpic/morse-generator
@@ -152,8 +152,8 @@ while (<>) {
     print("morse_$morse_name db @data\n") or die $!
        if $which eq 'asm';
 
-    printf("morse_$morse_name equ morse_messages_start+0x%x\n",
-          $bytes) or die $!
+    printf("morse_$morse_name equ morse_messages_start+0x%x; panic_address=%x\n",
+          $bytes, $bytes/4) or die $!
        if $which eq 'inc';
 
     $bytes += scalar @data;