From 60d0ddc942e1c5822bd7b88a4df61153891e82eb Mon Sep 17 00:00:00 2001
From: akr <akr@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 20 Nov 2007 07:25:07 +0000
Subject: [PATCH] * gc.c (gc_mark_children): obj->as.file.fptr may be 0 for
 T_FILE.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@13982 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog | 4 ++++
 gc.c      | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index e4aec4f619..e14fbc0e6c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Tue Nov 20 16:24:31 2007  Tanaka Akira  <akr@fsij.org>
+
+	* gc.c (gc_mark_children): obj->as.file.fptr may be 0 for T_FILE.
+
 Tue Nov 20 15:09:00 2007  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* parse.y (parser_read_escape): has8bit flag may be set with control
diff --git a/gc.c b/gc.c
index acb81b00dc..66f095c09e 100644
--- a/gc.c
+++ b/gc.c
@@ -1081,7 +1081,8 @@ gc_mark_children(VALUE ptr, int lev)
 	break;
 
       case T_FILE:
-	gc_mark(obj->as.file.fptr->tied_io_for_writing, lev);
+        if (obj->as.file.fptr)
+            gc_mark(obj->as.file.fptr->tied_io_for_writing, lev);
         break;
 
       case T_REGEXP: