* tweak

2001-06-23  Frank Ch. Eigler  <fche@redhat.com>

        * configrun-sid.in: Add support for --memory-region latency settings.

diff --git a/sid/bsp/ChangeLog b/sid/bsp/ChangeLog
index d379d71..9b524ef 100644 (file)
--- a/sid/bsp/ChangeLog
+++ b/sid/bsp/ChangeLog
@@ -1,3 +1,7 @@
+2001-06-23  Frank Ch. Eigler  <fche@redhat.com>
+
+       * configrun-sid.in: Add support for --memory-region latency settings.
+
 2001-04-05  Frank Ch. Eigler  <fche@redhat.com>
 
        * configrun-sid.in: Remove unused "--board=none" clause.

diff --git a/sid/bsp/configrun-sid.in b/sid/bsp/configrun-sid.in
index f0f14fe..30a9cca 100644 (file)
--- a/sid/bsp/configrun-sid.in
+++ b/sid/bsp/configrun-sid.in
@@ -113,6 +113,8 @@ Options:
                                alias=BASE2    Add an alias at BASE2
                                file=FILENAME  Load/save memory image from file
                                mmap           Memory map given file
+                               latency=R:W    Set read, write latencies  [0:0]
+                               latency=RW     Set both latencies           [0]
  --gdb=PORT                 Add a gdb/debugger interface on TCP port.   [none]
  --board=BOARD              Model given board or system.               [gloss]
  --engine=scache|pbb        Set given cgen CPU engine.                   [pbb]
@@ -898,6 +900,7 @@ while ($#opt_memory_region >= 0)
     #         [,alias=BASE2]
     #         [,file=NAME]
     #         [,mmap]
+    #         [,latency=R[:W]]
     #         [,relate=COMPONENT/RELATION]  (deprecated)
     @spec = split /,/, $spec;
 
@@ -914,6 +917,7 @@ while ($#opt_memory_region >= 0)
     $membus = "read-write-port"; # default read-write
     $memfile = ""; # default no file
     $mmap = 0; # default no mmap
+    $latr = 0; $latw = 0; # default no latencies
     @aliases = ();
     @relates = ();
 
@@ -928,9 +932,11 @@ while ($#opt_memory_region >= 0)
        $opt = shift @spec;
        if ($opt eq "read-only") { $membus = "read-only-port"; }
        elsif ($opt eq "mmap") { $mmap = 1; }
-       elsif ($opt =~ /file=(.*)/) { $memfile = $1; }
-       elsif ($opt =~ /alias=(.*)/) { push @aliases, $1 }
-       elsif ($opt =~ /relate=(.*)/) { push @relates, $1 }
+       elsif ($opt =~ /file=(.+)/) { $memfile = $1; }
+       elsif ($opt =~ /alias=(.+)/) { push @aliases, $1 }
+       elsif ($opt =~ /relate=(.+)/) { push @relates, $1 }
+       elsif ($opt =~ /latency=(\d+):(\d+)/) { $latr = $1; $latw = $2 }
+       elsif ($opt =~ /latency=(\d+)/) { $latr = $1; $latw = $1 }
        else { die "Cannot parse memory region option `$opt'.\n"; }
       }
 
@@ -965,6 +971,10 @@ while ($#opt_memory_region >= 0)
          $third_section .= "connect-pin deinit-sequence output-6 -> mem$mems image-store\n";
        }
       }
+
+    # process latencies
+    if ($latr != 0) { $third_section .= "set mem$mems read-latency $latr\n" }
+    if ($latw != 0) { $third_section .= "set mem$mems write-latency $latw\n" }
   }