2 files changed, 9 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 608c123282..f3f5a5c18c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Fri Jan  7 18:03:35 2005  Tanaka Akira  <akr@m17n.org>
+
+	* gc.c (mark_locations_array): avoid core dump with -O3.
+	  [ruby-dev:25424]
+
 Thu Jan  6 20:29:18 2005  NAKAMURA Usaku  <usa@ruby-lang.org>
 
 	* ext/zlib/zlib.c (zstream_end): should return value.
diff --git a/gc.c b/gc.c
index 169851f6d9..7aa42da67f 100644
--- a/gc.c
+++ b/gc.c
@@ -617,9 +617,11 @@ mark_locations_array(x, n)
     register VALUE *x;
     register long n;
 {
+    VALUE v;
     while (n--) {
-	if (is_pointer_to_heap((void *)*x)) {
-	    gc_mark(*x, 0);
+        v = *x;
+	if (is_pointer_to_heap((void *)v)) {
+	    gc_mark(v, 0);
 	}
 	x++;
     }