Change 10979 by jhi@alpha on 2001/06/27 11:36:40
"lose the looses", from Abhijit Menon-Sen.
Affected files ...
... //depot/perl/ext/B/B/Assembler.pm#9 edit
... //depot/perl/gv.c#143 edit
Differences ...
==== //depot/perl/ext/B/B/Assembler.pm#9 (text) ====
Index: perl/ext/B/B/Assembler.pm
--- perl/ext/B/B/Assembler.pm.~1~ Wed Jun 27 16:00:08 2001
+++ perl/ext/B/B/Assembler.pm Wed Jun 27 16:00:08 2001
@@ -55,7 +55,7 @@
sub B::Asmdata::PUT_U16 { pack("S", $_[0]) }
sub B::Asmdata::PUT_U32 { pack("L", $_[0]) }
sub B::Asmdata::PUT_I32 { pack("L", $_[0]) }
-sub B::Asmdata::PUT_NV { sprintf("%s\0", $_[0]) } # "%lf" looses precision and
pack('d',...)
+sub B::Asmdata::PUT_NV { sprintf("%s\0", $_[0]) } # "%lf" loses precision and
+pack('d',...)
# may not even be portable between
compilers
sub B::Asmdata::PUT_objindex { pack("L", $_[0]) } # could allow names here
sub B::Asmdata::PUT_svindex { &B::Asmdata::PUT_objindex }
==== //depot/perl/gv.c#143 (text) ====
Index: perl/gv.c
--- perl/gv.c.~1~ Wed Jun 27 16:00:08 2001
+++ perl/gv.c Wed Jun 27 16:00:08 2001
@@ -447,7 +447,7 @@
* pass along the same data via some unused fields in the CV
*/
CvSTASH(cv) = stash;
- SvPVX(cv) = (char *)name; /* cast to loose constness warning */
+ SvPVX(cv) = (char *)name; /* cast to lose constness warning */
SvCUR(cv) = len;
return gv;
}
End of Patch.
