From d4b352af3e7d5c1afc719fb1f8c7c578642d8250 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Wed, 14 Jan 2015 00:42:15 -0800 Subject: [PATCH] remove_slash_colon need not be inline * process.c, process.h (remove_slash_colon): No longer inline. This saves text bytes without hurting runtime performance. --- src/ChangeLog | 6 ++++++ src/process.c | 12 ++++++++++++ src/process.h | 13 +------------ 3 files changed, 19 insertions(+), 12 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 12678166317..3523ea41570 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2015-01-14 Paul Eggert + + remove_slash_colon need not be inline + * process.c, process.h (remove_slash_colon): No longer inline. + This saves text bytes without hurting runtime performance. + 2015-01-14 Dmitry Antipov Avoid extra multibyteness check in ENCODE_FILE users. diff --git a/src/process.c b/src/process.c index 166bf851a8e..77c94f29211 100644 --- a/src/process.c +++ b/src/process.c @@ -3827,6 +3827,18 @@ Data that is unavailable is returned as nil. */) #endif } +/* If program file NAME starts with /: for quoting a magic + name, remove that, preserving the multibyteness of NAME. */ + +Lisp_Object +remove_slash_colon (Lisp_Object name) +{ + return + ((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':') + ? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2, + SBYTES (name) - 2, STRING_MULTIBYTE (name)) + : name); +} /* Turn off input and output for process PROC. */ diff --git a/src/process.h b/src/process.h index 58b1daecfe6..36979dcac9e 100644 --- a/src/process.h +++ b/src/process.h @@ -237,17 +237,6 @@ extern Lisp_Object network_interface_list (void); extern Lisp_Object network_interface_info (Lisp_Object); #endif -/* If program file NAME starts with /: for quoting a magic - name, remove that, preserving the multibyteness of NAME. */ - -INLINE Lisp_Object -remove_slash_colon (Lisp_Object name) -{ - return - ((SBYTES (name) > 2 && SREF (name, 0) == '/' && SREF (name, 1) == ':') - ? make_specified_string (SSDATA (name) + 2, SCHARS (name) - 2, - SBYTES (name) - 2, STRING_MULTIBYTE (name)) - : name); -} +extern Lisp_Object remove_slash_colon (Lisp_Object); INLINE_HEADER_END -- 2.39.2