[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl5-changes
Subject:    Change 32776: Change 32760 needed to add a cast to avoid a warning.
From:       Nicholas Clark <nwc10+p5p4 () colon ! colondot ! net>
Date:       2007-12-29 17:45:03
Message-ID: 20071229174503.88C4E50251 () mx ! activestate ! com
[Download RAW message or body]

Change 32776 by nicholas@nicholas-pecuchet on 2007/12/29 17:35:25

	Change 32760 needed to add a cast to avoid a warning.

Affected files ...

... //depot/perl/av.c#125 edit

Differences ...

==== //depot/perl/av.c#125 (text) ====
Index: perl/av.c
--- perl/av.c#124~32760~	2007-12-29 04:28:14.000000000 -0800
+++ perl/av.c	2007-12-29 09:35:25.000000000 -0800
@@ -977,8 +977,10 @@
     return &(mg->mg_len);
 #else
     if (!mg->mg_ptr) {
+	IV *temp;
 	mg->mg_len = IVSIZE;
-	Newxz(mg->mg_ptr, 1, IV);
+	Newxz(temp, 1, IV);
+	mg->mg_ptr = (char *) temp;
     }
     return (IV *)mg->mg_ptr;
 #endif
End of Patch.
[prev in list] [next in list] [prev in thread] [next in thread]