From: Jillian Ye <jillian@cygnus>
Date: Tue, 14 Apr 1998 16:25:44 +0000 (+0000)
Subject: c_gen.pl:  Change to use data type "int" instead of "long int" in
X-Git-Url: http://drtracing.org/?a=commitdiff_plain;h=c6ae1534216ad77ac7a857326ec244fea17697da;p=deliverable%2Fbinutils-gdb.git

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 a917b7ab3a..c6cfa5075e 100644
--- 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 faf152d851..5a7e2676ff 100755
--- 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");
 
 }