[前][次][番号順一覧][スレッド一覧]

ruby-changes:6522

From: nobu <ko1@a...>
Date: Sat, 12 Jul 2008 22:17:49 +0900 (JST)
Subject: [ruby-changes:6522] Ruby:r18038 (trunk): * configure.in (sizeof ptrdiff_t): check for size of ptrdiff_t.

nobu	2008-07-12 22:17:29 +0900 (Sat, 12 Jul 2008)

  New Revision: 18038

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=18038

  Log:
    * configure.in (sizeof ptrdiff_t): check for size of ptrdiff_t.
    
    * include/ruby/ruby.h (PRI?PTRDIFF, PRI?SIZE): printf conversion
      specifiers for ptrdiff_t and size_t/ssize_t.
    
    * insns.def (leave), marshal.c (long_toobig), transcode.c
      (str_transcode), vm_dump.c (control_frame_dump, stack_dump_each),
      (debug_print_register, debug_print_pre): t and z length modifiers
      are C99.

  Modified files:
    trunk/ChangeLog
    trunk/configure.in
    trunk/include/ruby/ruby.h
    trunk/insns.def
    trunk/marshal.c
    trunk/transcode.c
    trunk/vm_dump.c

Index: include/ruby/ruby.h
===================================================================
--- include/ruby/ruby.h	(revision 18037)
+++ include/ruby/ruby.h	(revision 18038)
@@ -87,29 +87,52 @@
 typedef unsigned long ID;
 # define SIGNED_VALUE long
 # define SIZEOF_VALUE SIZEOF_LONG
-# define PRIdVALUE "ld"
-# define PRIiVALUE "li"
-# define PRIoVALUE "lo"
-# define PRIuVALUE "lu"
-# define PRIxVALUE "lx"
-# define PRIXVALUE "lX"
+# define PRI_VALUE_PREFIX "l"
 #elif SIZEOF_LONG_LONG == SIZEOF_VOIDP
 typedef unsigned LONG_LONG VALUE;
 typedef unsigned LONG_LONG ID;
 # define SIGNED_VALUE LONG_LONG
 # define LONG_LONG_VALUE 1
 # define SIZEOF_VALUE SIZEOF_LONG_LONG
-# define PRIdVALUE "lld"
-# define PRIiVALUE "lli"
-# define PRIoVALUE "llo"
-# define PRIuVALUE "llu"
-# define PRIxVALUE "llx"
-# define PRIXVALUE "llX"
+# define PRI_VALUE_PREFIX "ll"
 #else
 # error ---->> ruby requires sizeof(void*) == sizeof(long) to be compiled. <<----
 #endif
+#define PRIdVALUE PRI_VALUE_PREFIX"d"
+#define PRIiVALUE PRI_VALUE_PREFIX"i"
+#define PRIoVALUE PRI_VALUE_PREFIX"o"
+#define PRIuVALUE PRI_VALUE_PREFIX"u"
+#define PRIxVALUE PRI_VALUE_PREFIX"x"
+#define PRIXVALUE PRI_VALUE_PREFIX"X"
 
+#if SIZEOF_PTRDIFF_T == SIZEOF_INT
+# define PRI_PTDIFF_PREFIX
+#elif SIZEOF_PTRDIFF_T == SIZEOF_LONG
+# define PRI_PTDIFF_PREFIX "l"
+#elif SIZEOF_PTRDIFF_T == SIZEOF_LONG
+# define PRI_PTDIFF_PREFIX "ll"
+#endif
+#define PRIdPTRDIFF PRI_PTRDIFF_PREFIX"d"
+#define PRIiPTRDIFF PRI_PTRDIFF_PREFIX"i"
+#define PRIoPTRDIFF PRI_PTRDIFF_PREFIX"o"
+#define PRIuPTRDIFF PRI_PTRDIFF_PREFIX"u"
+#define PRIxPTRDIFF PRI_PTRDIFF_PREFIX"x"
+#define PRIXPTRDIFF PRI_PTRDIFF_PREFIX"X"
 
+#if SIZEOF_SIZE_T == SIZEOF_INT
+# define PRI_PTDIFF_PREFIX
+#elif SIZEOF_SIZE_T == SIZEOF_LONG
+# define PRI_PTDIFF_PREFIX "l"
+#elif SIZEOF_SIZE_T == SIZEOF_LONG
+# define PRI_PTDIFF_PREFIX "ll"
+#endif
+#define PRIdSIZE PRI_SIZE_PREFIX"d"
+#define PRIiSIZE PRI_SIZE_PREFIX"i"
+#define PRIoSIZE PRI_SIZE_PREFIX"o"
+#define PRIuSIZE PRI_SIZE_PREFIX"u"
+#define PRIxSIZE PRI_SIZE_PREFIX"x"
+#define PRIXSIZE PRI_SIZE_PREFIX"X"
+
 #ifdef __STDC__
 # include <limits.h>
 #else
Index: configure.in
===================================================================
--- configure.in	(revision 18037)
+++ configure.in	(revision 18038)
@@ -628,6 +628,7 @@
 dnl Checks for typedefs, structures, and compiler characteristics.
 AC_TYPE_SIZE_T
 AC_CHECK_SIZEOF(size_t, 0)
+AC_CHECK_SIZEOF(ptrdiff_t, $ac_cv_sizeof_size_t)
 AC_STRUCT_ST_BLKSIZE
 AC_STRUCT_ST_BLOCKS
 AC_STRUCT_ST_RDEV
Index: insns.def
===================================================================
--- insns.def	(revision 18037)
+++ insns.def	(revision 18038)
@@ -1058,7 +1058,7 @@
 {
     if (OPT_CHECKED_RUN) {
 	if (reg_cfp->sp != reg_cfp->bp) {
-	    rb_bug("Stack consistency error (sp: %td, bp: %td)",
+	    rb_bug("Stack consistency error (sp: %"PRIdPTRDIFF", bp: %"PRIdPTRDIFF")",
 		   VM_SP_CNT(th, reg_cfp->sp), VM_SP_CNT(th, reg_cfp->bp));
 	}
     }
Index: ChangeLog
===================================================================
--- ChangeLog	(revision 18037)
+++ ChangeLog	(revision 18038)
@@ -1,3 +1,15 @@
+Sat Jul 12 22:17:26 2008  Nobuyoshi Nakada  <nobu@r...>
+
+	* configure.in (sizeof ptrdiff_t): check for size of ptrdiff_t.
+
+	* include/ruby/ruby.h (PRI?PTRDIFF, PRI?SIZE): printf conversion
+	  specifiers for ptrdiff_t and size_t/ssize_t.
+
+	* insns.def (leave), marshal.c (long_toobig), transcode.c
+	  (str_transcode), vm_dump.c (control_frame_dump, stack_dump_each),
+	  (debug_print_register, debug_print_pre): t and z length modifiers
+	  are C99.
+
 Sat Jul 12 16:02:31 2008  Nobuyoshi Nakada  <nobu@r...>
 
 	* lib/xmlrpc/client.rb (XMLRPC::Client#do_rpc): requires
Index: vm_dump.c
===================================================================
--- vm_dump.c	(revision 18037)
+++ vm_dump.c	(revision 18038)
@@ -115,17 +115,17 @@
 	line = -1;
     }
 
-    fprintf(stderr, "c:%04td ",
-	    (rb_control_frame_t *)(th->stack + th->stack_size) - cfp);
+    fprintf(stderr, "c:%04"PRIdPTRDIFF" ",
+	    ((rb_control_frame_t *)(th->stack + th->stack_size) - cfp));
     if (pc == -1) {
 	fprintf(stderr, "p:---- ");
     }
     else {
 	fprintf(stderr, "p:%04d ", pc);
     }
-    fprintf(stderr, "s:%04td b:%04d ", cfp->sp - th->stack, bp);
-    fprintf(stderr, lfp_in_heap == ' ' ? "l:%06td " : "l:%06tx ", lfp % 10000);
-    fprintf(stderr, dfp_in_heap == ' ' ? "d:%06td " : "d:%06tx ", dfp % 10000);
+    fprintf(stderr, "s:%04"PRIdPTRDIFF" b:%04d ", (cfp->sp - th->stack), bp);
+    fprintf(stderr, lfp_in_heap == ' ' ? "l:%06"PRIdPTRDIFF" " : "l:%06"PRIxPTRDIFF" ", lfp % 10000);
+    fprintf(stderr, dfp_in_heap == ' ' ? "d:%06"PRIdPTRDIFF" " : "d:%06"PRIxPTRDIFF" ", dfp % 10000);
     fprintf(stderr, "%-6s ", magic);
     if (line) {
 	fprintf(stderr, "%s", posbuf);
@@ -308,8 +308,8 @@
 	    else {
 		rstr = rb_inspect(*ptr);
 	    }
-	    fprintf(stderr, "  stack %2d: %8s (%td)\n", i, StringValueCStr(rstr),
-		   ptr - th->stack);
+	    fprintf(stderr, "  stack %2d: %8s (%"PRIdPTRDIFF")\n", i, StringValueCStr(rstr),
+		    (ptr - th->stack));
 	}
     }
     else if (VM_FRAME_TYPE(cfp) == VM_FRAME_MAGIC_FINISH) {
@@ -345,8 +345,8 @@
 	dfp = -1;
 
     cfpi = ((rb_control_frame_t *)(th->stack + th->stack_size)) - cfp;
-    fprintf(stderr, "  [PC] %04d, [SP] %04td, [LFP] %04d, [DFP] %04d, [CFP] %04d\n",
-	   pc, cfp->sp - th->stack, lfp, dfp, cfpi);
+    fprintf(stderr, "  [PC] %04d, [SP] %04"PRIdPTRDIFF", [LFP] %04d, [DFP] %04d, [CFP] %04d\n",
+	    pc, (cfp->sp - th->stack), lfp, dfp, cfpi);
 }
 
 void
@@ -366,7 +366,7 @@
 	VALUE *seq = iseq->iseq;
 	int pc = cfp->pc - iseq->iseq_encoded;
 
-	printf("%3td ", VM_CFP_CNT(th, cfp));
+	printf("%3"PRIdPTRDIFF" ", VM_CFP_CNT(th, cfp));
 	ruby_iseq_disasm_insn(0, seq, pc, iseq, 0);
     }
 
Index: marshal.c
===================================================================
--- marshal.c	(revision 18037)
+++ marshal.c	(revision 18038)
@@ -941,8 +941,8 @@
 static void
 long_toobig(int size)
 {
-    rb_raise(rb_eTypeError, "long too big for this architecture (size %zd, given %d)",
-	     sizeof(long), size);
+    rb_raise(rb_eTypeError, "long too big for this architecture (size "
+	     STRINGIZE(SIZEOF_LONG)", given %d)", size);
 }
 
 #undef SIGN_EXTEND_CHAR
Index: transcode.c
===================================================================
--- transcode.c	(revision 18037)
+++ transcode.c	(revision 18038)
@@ -326,7 +326,7 @@
 	    my_transcoding.ruby_string_dest = dest;
 	    (*my_transcoder->preprocessor)(&fromp, &bp, (sp+slen), (bp+blen), &my_transcoding);
 	    if (fromp != sp+slen) {
-		rb_raise(rb_eArgError, "not fully converted, %td bytes left", sp+slen-fromp);
+		rb_raise(rb_eArgError, "not fully converted, %"PRIdPTRDIFF" bytes left", sp+slen-fromp);
 	    }
 	    buf = (unsigned char *)RSTRING_PTR(dest);
 	    *bp = '\0';
@@ -343,7 +343,7 @@
 
 	transcode_loop(&fromp, &bp, (sp+slen), (bp+blen), my_transcoder, &my_transcoding, options);
 	if (fromp != sp+slen) {
-	    rb_raise(rb_eArgError, "not fully converted, %td bytes left", sp+slen-fromp);
+	    rb_raise(rb_eArgError, "not fully converted, %"PRIdPTRDIFF" bytes left", sp+slen-fromp);
 	}
 	buf = (unsigned char *)RSTRING_PTR(dest);
 	*bp = '\0';
@@ -358,7 +358,7 @@
 	    my_transcoding.ruby_string_dest = dest;
 	    (*my_transcoder->postprocessor)(&fromp, &bp, (sp+slen), (bp+blen), &my_transcoding);
 	    if (fromp != sp+slen) {
-		rb_raise(rb_eArgError, "not fully converted, %td bytes left", sp+slen-fromp);
+		rb_raise(rb_eArgError, "not fully converted, %"PRIdPTRDIFF" bytes left", sp+slen-fromp);
 	    }
 	    buf = (unsigned char *)RSTRING_PTR(dest);
 	    *bp = '\0';

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/

[前][次][番号順一覧][スレッド一覧]