[Emacs-diffs] /srv/bzr/emacs/trunk r103338: * alloc.c (make_unibyte_string): Don't SET_UNIBYTE redundantly.

[Stefan Monnier]

------------------------------------------------------------
revno: 103338
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2011-02-18 12:37:30 -0500
message:
  * alloc.c (make_unibyte_string): Don't SET_UNIBYTE redundantly.
  * process.c (Fstart_process, Fmake_serial_process)
  (Fmake_network_process, server_accept_connection):
  Use empty_unibyte_string.
modified:
  src/ChangeLog
  src/alloc.c
  src/process.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-02-18 17:18:16 +0000
+++ b/src/ChangeLog     2011-02-18 17:37:30 +0000
@@ -1,5 +1,11 @@
 2011-02-18  Stefan Monnier  <address@hidden>
 
+       * process.c (Fstart_process, Fmake_serial_process)
+       (Fmake_network_process, server_accept_connection):
+       Use empty_unibyte_string.
+
+       * alloc.c (make_unibyte_string): Don't SET_UNIBYTE redundantly.
+
        * lread.c (Qdir_ok): New constant.
        (syms_of_lread): Initialize it.
        (openp): Don't ignore directories if the predicate returns dir-ok.

=== modified file 'src/alloc.c'
--- a/src/alloc.c       2011-02-18 02:07:36 +0000
+++ b/src/alloc.c       2011-02-18 17:37:30 +0000
@@ -2301,7 +2301,6 @@
   register Lisp_Object val;
   val = make_uninit_string (length);
   memcpy (SDATA (val), contents, length);
-  STRING_SET_UNIBYTE (val);
   return val;
 }
 

=== modified file 'src/process.c'
--- a/src/process.c     2011-02-16 15:02:50 +0000
+++ b/src/process.c     2011-02-18 17:37:30 +0000
@@ -1660,9 +1660,9 @@
   }
 
 
-  XPROCESS (proc)->decoding_buf = make_uninit_string (0);
+  XPROCESS (proc)->decoding_buf = empty_unibyte_string;
   XPROCESS (proc)->decoding_carryover = 0;
-  XPROCESS (proc)->encoding_buf = make_uninit_string (0);
+  XPROCESS (proc)->encoding_buf = empty_unibyte_string;
 
   XPROCESS (proc)->inherit_coding_system_flag
     = !(NILP (buffer) || !inherit_process_coding_system);
@@ -2918,9 +2918,9 @@
   p->encode_coding_system = val;
 
   setup_process_coding_systems (proc);
-  p->decoding_buf = make_uninit_string (0);
+  p->decoding_buf = empty_unibyte_string;
   p->decoding_carryover = 0;
-  p->encoding_buf = make_uninit_string (0);
+  p->encoding_buf = empty_unibyte_string;
   p->inherit_coding_system_flag
     = !(!NILP (tem) || NILP (buffer) || !inherit_process_coding_system);
 
@@ -3787,9 +3787,9 @@
   }
   setup_process_coding_systems (proc);
 
-  p->decoding_buf = make_uninit_string (0);
+  p->decoding_buf = empty_unibyte_string;
   p->decoding_carryover = 0;
-  p->encoding_buf = make_uninit_string (0);
+  p->encoding_buf = empty_unibyte_string;
 
   p->inherit_coding_system_flag
     = !(!NILP (tem) || NILP (buffer) || !inherit_process_coding_system);
@@ -4364,9 +4364,9 @@
   p->encode_coding_system = ps->encode_coding_system;
   setup_process_coding_systems (proc);
 
-  p->decoding_buf = make_uninit_string (0);
+  p->decoding_buf = empty_unibyte_string;
   p->decoding_carryover = 0;
-  p->encoding_buf = make_uninit_string (0);
+  p->encoding_buf = empty_unibyte_string;
 
   p->inherit_coding_system_flag
     = (NILP (buffer) ? 0 : ps->inherit_coding_system_flag);