c_gen.pl: Change to use data type "int" instead of "long int" in

           function perform_test_read_only.

diff --git a/sim/testsuite/sky/ChangeLog b/sim/testsuite/sky/ChangeLog
index a917b7ab3ae7192a4cc0eabfa0a76aa8faa15e96..c6cfa5075e9c38734c40bc1b97698cc343bb2b69 100644 (file)
--- a/sim/testsuite/sky/ChangeLog
+++ b/sim/testsuite/sky/ChangeLog
@@ -1,3 +1,8 @@
+Tue Apr 14 12:20:10 1998 Jillian Ye <jillian@cygnus.com>
+
+       * c_gen.pl: Change the datatype from "long int" to "int"
+         in function perform_test_read_only.
+
 Mon Apr 13 16:51:00 1998  Frank Ch. Eigler  <fche@cygnus.com>
 
        * Makefile.in (*): Added .vuout/.vuexpect/.vuok test targets

diff --git a/sim/testsuite/sky/c_gen.pl b/sim/testsuite/sky/c_gen.pl
index faf152d851a6b2ce6cdaf81aeddf99ccb80c4ba9..5a7e2676ffa9f532ba96909748cf308acda19acd 100755 (executable)
--- a/sim/testsuite/sky/c_gen.pl
+++ b/sim/testsuite/sky/c_gen.pl
@@ -98,7 +98,6 @@ while( $inputline = <INFILE> )
   }
   elsif ( $inputline =~ /^\@/ )      # A line starts with "@" is a read only test request
   {
-      print ("glorp\n");
       &perform_test_read_only;
   }
   else   # ignore this input
@@ -276,15 +275,15 @@ sub perform_test_read_only {
   #column[1] is the address;
   #column[2] is the byte-indicator, which can be 4 or 8;
 
-  if ( $column[2] =~ /^4/ )      # This is a 4-byte data address
-  {     $d_type = "long "; }
+  if ( $columns[2] =~ /^4/ )      # This is a 4-byte data address
+  {     $d_type = " "; }
   else {
         $d_type = "long long ";  # assuming the input is "8"
   }
 
   print OUTFILE ("\n{\n");
   print OUTFILE ("  volatile ".$d_type."int* test_add = \(".$d_type."int *\)".$columns[1].";\n");
-  print OUTFILE ("  long long int test64_data = \(long long\) \( *test_add \);\n");
+  print OUTFILE ("  ".$d_type."int test_data = *test_add;\n");
   print OUTFILE ("}\n");
 
 }