Revision: 958
Author: [email protected]
Date: Fri Dec 18 07:09:03 2009
Log: Convert several occurrences of 'in' to the parameter passed to the
function.
At some point the functions had been refactored to take an explicit file
handle
parameter, and that parameter is always 'in', hence why this had not been
spotted.
http://code.google.com/p/perl-devel-nytprof/source/detail?r=958
Modified:
/trunk/NYTProf.xs
=======================================
--- /trunk/NYTProf.xs Thu Dec 17 16:01:26 2009
+++ /trunk/NYTProf.xs Fri Dec 18 07:09:03 2009
@@ -481,7 +481,7 @@
int status;
if (FILE_STATE(file) != NYTP_FILE_STDIO) {
- compressed_io_croak(in, "NYTP_start_deflate");
+ compressed_io_croak(file, "NYTP_start_deflate");
}
FILE_STATE(file) = NYTP_FILE_DEFLATE;
file->zs.next_in = (Bytef *) file->large_buffer;
@@ -504,7 +504,7 @@
NYTP_start_inflate(NYTP_file file) {
int status;
if (FILE_STATE(file) != NYTP_FILE_STDIO) {
- compressed_io_croak(in, "NYTP_start_inflate");
+ compressed_io_croak(file, "NYTP_start_inflate");
}
FILE_STATE(file) = NYTP_FILE_INFLATE;
@@ -666,7 +666,7 @@
if (got != len) {
croak("Profile format error whilst reading %s at %ld%s:
expected %ld got %ld, %s",
what, NYTP_tell(ifile), NYTP_type_of_offset(ifile),
(long)len, (long)got,
- (NYTP_eof(in)) ? "end of file" : NYTP_fstrerror(in));
+ (NYTP_eof(ifile)) ? "end of file" : NYTP_fstrerror(ifile));
}
return len;
}
--
You've received this message because you are subscribed to
the Devel::NYTProf Development User group.
Group hosted at: http://groups.google.com/group/develnytprof-dev
Project hosted at: http://perl-devel-nytprof.googlecode.com
CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf
To post, email: [email protected]
To unsubscribe, email: [email protected]
