From c6ae1534216ad77ac7a857326ec244fea17697da Mon Sep 17 00:00:00 2001 From: Jillian Ye Date: Tue, 14 Apr 1998 16:25:44 +0000 Subject: [PATCH] c_gen.pl: Change to use data type "int" instead of "long int" in function perform_test_read_only. --- sim/testsuite/sky/ChangeLog | 5 +++++ sim/testsuite/sky/c_gen.pl | 7 +++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/sim/testsuite/sky/ChangeLog b/sim/testsuite/sky/ChangeLog index a917b7ab3ae..c6cfa5075e9 100644 --- a/sim/testsuite/sky/ChangeLog +++ b/sim/testsuite/sky/ChangeLog @@ -1,3 +1,8 @@ +Tue Apr 14 12:20:10 1998 Jillian Ye + + * 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 * 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 faf152d851a..5a7e2676ffa 100755 --- a/sim/testsuite/sky/c_gen.pl +++ b/sim/testsuite/sky/c_gen.pl @@ -98,7 +98,6 @@ while( $inputline = ) } 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"); } -- 2.30.2