6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-07-22 09:29:31 +00:00
Code Issues Projects Releases Wiki Activity

Fixed some output issues where newlines were not being printed after error messages

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@29082 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Patrick Jenkins 2006-07-10 18:35:41 +00:00
parent 7b4bb60e9a
commit 7267bd6c1a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/NewNightlyTest.pl
View File

@ -281,7 +281,7 @@ sub ReadFile {
$/ = '\n'; $/ = '\n';
return $Ret; return $Ret;
} else { } else {
print "Could not open file '$_[0]' for reading!"; print "Could not open file '$_[0]' for reading!\n";
return ""; return "";
} }
} }
@ -289,7 +289,7 @@ sub ReadFile {
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub WriteFile { # (filename, contents) sub WriteFile { # (filename, contents)
open (FILE, ">$_[0]") or die "Could not open file '$_[0]' for writing!"; open (FILE, ">$_[0]") or die "Could not open file '$_[0]' for writing!\n";
print FILE $_[1]; print FILE $_[1];
close FILE; close FILE;
} }
@ -429,7 +429,8 @@ sub SendData{
my $sentdata=""; my $sentdata="";
foreach $x (keys (%$variables)){ foreach $x (keys (%$variables)){
$sentdata.= "$x => $hash_of_data{$x}\n"; $value = $variables->{$x};
$sentdata.= "$x => $value\n";
} }
WriteFile "$Prefix-sentdata.txt", $sentdata; WriteFile "$Prefix-sentdata.txt", $sentdata;