c_gen.pl: Added sub-routine process_data_reg64 to handle 64bit register

          writes.

diff --git a/sim/testsuite/sky/ChangeLog b/sim/testsuite/sky/ChangeLog
index 81766d2cfaecea3259cda78d773b0d1e447823d0..b60fa5bbdf47511c80c5f206399f7134b6032f2f 100644 (file)
--- a/sim/testsuite/sky/ChangeLog
+++ b/sim/testsuite/sky/ChangeLog
@@ -1,3 +1,8 @@
+Fri Apr 3 15:41:07 1998  Jillian Ye <jillian@cygnus.com>
+
+       * c_gen.pl: Added subroutin process_data_reg64.
+       * ChangeLog: Added this entry.
+
 Fri Mar 27 19:31:36 1998  Frank Ch. Eigler  <fche@cygnus.com>
 
        * Makefile.in: Removed t-pke1 testcase.  Remove previous "make -k"

diff --git a/sim/testsuite/sky/c_gen.pl b/sim/testsuite/sky/c_gen.pl
index c7397dc156c4eeb3a948a3cc88b850ede4651942..b12e1268b28b4cf32e417db35507820152095161 100755 (executable)
--- a/sim/testsuite/sky/c_gen.pl
+++ b/sim/testsuite/sky/c_gen.pl
@@ -14,10 +14,11 @@
 #       -------------  ---------------  -------------- -------------
 #         n (for data)   0xH_H_H_H         0xH           4-CHARs   
 #         ? (for test)   0xH  (addr)       0xH  (value)  0xH (mask)
-#         ! (reg wrt)    0xH  (addr)       0xH  (data) 
+#         ! (reg wrt 32) 0xH  (addr)       0xH  (data) 
+#         ~ (reg wrt 64) 0xH  (addr)       0xHigh_Low (data) 
 #         # comment line
 #       Note: n can be 0 (for VU1), 1 (for VU2), or 2 (for GIF).
-#             H is hex data in the format of FFFFFFFF
+#             H, High, or Low is hex data in the format of FFFFFFFF
 #         
 #
 #    Result output:
@@ -81,9 +82,13 @@ while( $inputline = <INFILE> )
   {
       &process_data;
   }
-  elsif ( $inputline =~ /^\!/ )      # This is a different type of data line
+  elsif ( $inputline =~ /^\!/ )      # This is a 32-bit register write
   {
-      &process_data2;
+      &process_data_reg32;
+  }
+  elsif ( $inputline =~ /^\~/ )      # This is a 64-bit register write
+  {
+      &process_data_reg64;
   }  
   else   # ignore this input
   {
@@ -190,14 +195,14 @@ sub process_data {
 }
 
 
-sub process_data2 {
+sub process_data_reg32 {
   print OUTFILE ("\n");
   print OUTFILE ("/******************************************************************/\n");
   print OUTFILE ("/*Writing the specified data into the specified address:          */\n\n");
   
   @columns = split ( /[\s]+/, $inputline );
  
-  #column[1] is the address, column[2] is the value, both in the format of oxH;
+  #column[1] is the address, column[2] is the value, both in the format of 0xH;
   
   print OUTFILE ("\n{\n");
   print OUTFILE ("  volatile unsigned* addr_ptr = \(unsigned *\)".$columns[1].";\n");
@@ -207,6 +212,26 @@ sub process_data2 {
   
 }
 
+sub process_data_reg64 {
+  print OUTFILE ("\n");
+  print OUTFILE ("/******************************************************************/\n");
+  print OUTFILE ("/*Writing the specified 64-bit data into the specified address:   */\n\n");
+  
+  @columns = split ( /[\s]+/, $inputline );
+ 
+  #column[1] is the address, in the format of 0xH;
+  #column[2] is the value, in the format of 0xH_H;
+  @llword = split ("_", $columns[2]);
+  
+  print OUTFILE ("\n{\n");
+  print OUTFILE ("  volatile long long int* reg64_ptr = \(long long int *\)".$columns[1].";\n");
+  print OUTFILE ("  *reg64_ptr = \(long long\)".$llword[0]." \<\< 32 \| \(long long\)0x".$llword[1].";\n");
+  print OUTFILE ("  num_w_written ++;\n");
+  print OUTFILE ("}\n");
+  
+}
+
+
 
 
 sub print_header_part_of_c_code {