c_gen.pl: Change to use data type "int" instead of "long int" in
function perform_test_read_only.
This commit is contained in:
parent
c0a4c3ba17
commit
c6ae153421
2 changed files with 8 additions and 4 deletions
|
@ -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
|
||||
|
|
|
@ -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");
|
||||
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue