diff --git a/ChangeLog b/ChangeLog
index d927f3688f..a607ff306f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed May 12 23:48:37 2010  Tanaka Akira  <akr@fsij.org>
+
+	* include/ruby/intern.h (rb_quad_pack): deprecated.
+	  (rb_quad_unpack): ditto.
+
 Wed May 12 22:22:05 2010  Tanaka Akira  <akr@fsij.org>
 
 	* time.c (rb_big_abs_find_minbit): use ffs().
diff --git a/include/ruby/intern.h b/include/ruby/intern.h
index e46e19aac4..f47942b69a 100644
--- a/include/ruby/intern.h
+++ b/include/ruby/intern.h
@@ -101,8 +101,8 @@ VALUE rb_ull2inum(unsigned LONG_LONG);
 LONG_LONG rb_big2ll(VALUE);
 unsigned LONG_LONG rb_big2ull(VALUE);
 #endif  /* HAVE_LONG_LONG */
-void rb_quad_pack(char*,VALUE);
-VALUE rb_quad_unpack(const char*,int);
+DEPRECATED(void rb_quad_pack(char*,VALUE));
+DEPRECATED(VALUE rb_quad_unpack(const char*,int));
 void rb_big_pack(VALUE val, unsigned long *buf, long num_longs);
 VALUE rb_big_unpack(unsigned long *buf, long num_longs);
 int rb_uv_to_utf8(char[6],unsigned long);