diff options
| author | Paul Eggert | 2011-11-28 00:20:58 -0800 |
|---|---|---|
| committer | Paul Eggert | 2011-11-28 00:20:58 -0800 |
| commit | dbf312256d8a8c731dadaf27c1260832a3796350 (patch) | |
| tree | e24d4b7c814d5f292c779b192371cb7475b0eef6 /src/process.c | |
| parent | e95def75e4a3fae3f5671cc828012388f0e251f5 (diff) | |
| download | emacs-dbf312256d8a8c731dadaf27c1260832a3796350.tar.gz emacs-dbf312256d8a8c731dadaf27c1260832a3796350.zip | |
Remove GCPRO-related macros that exist only to avoid shadowing locals.
* lisp.h (GCPRO1_VAR, GCPRO2_VAR, GCPRO3_VAR, GCPRO4_VAR, GCPRO5_VAR)
(GCPRO6_VAR, UNGCPRO_VAR): Remove. See
<http://lists.gnu.org/archive/html/emacs-diffs/2011-11/msg00265.html>.
All uses changed to use GCPRO1 etc.
(GCPRO1, GCPRO2, GCPRO3, GCPRO4, GCPRO5, GCPRO6, UNGCPRO):
Revert to old implementation (i.e., before 2011-03-11).
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/process.c b/src/process.c index ba3eeb81614..05c4be27550 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -3474,7 +3474,7 @@ usage: (make-network-process &rest ARGS) */) | |||
| 3474 | 3474 | ||
| 3475 | { | 3475 | { |
| 3476 | /* Setup coding systems for communicating with the network stream. */ | 3476 | /* Setup coding systems for communicating with the network stream. */ |
| 3477 | struct gcpro inner_gcpro1; | 3477 | struct gcpro gcpro1; |
| 3478 | /* Qt denotes we have not yet called Ffind_operation_coding_system. */ | 3478 | /* Qt denotes we have not yet called Ffind_operation_coding_system. */ |
| 3479 | Lisp_Object coding_systems = Qt; | 3479 | Lisp_Object coding_systems = Qt; |
| 3480 | Lisp_Object fargs[5], val; | 3480 | Lisp_Object fargs[5], val; |
| @@ -3502,9 +3502,9 @@ usage: (make-network-process &rest ARGS) */) | |||
| 3502 | { | 3502 | { |
| 3503 | fargs[0] = Qopen_network_stream, fargs[1] = name, | 3503 | fargs[0] = Qopen_network_stream, fargs[1] = name, |
| 3504 | fargs[2] = buffer, fargs[3] = host, fargs[4] = service; | 3504 | fargs[2] = buffer, fargs[3] = host, fargs[4] = service; |
| 3505 | GCPRO1_VAR (proc, inner_gcpro); | 3505 | GCPRO1 (proc); |
| 3506 | coding_systems = Ffind_operation_coding_system (5, fargs); | 3506 | coding_systems = Ffind_operation_coding_system (5, fargs); |
| 3507 | UNGCPRO_VAR (inner_gcpro); | 3507 | UNGCPRO; |
| 3508 | } | 3508 | } |
| 3509 | if (CONSP (coding_systems)) | 3509 | if (CONSP (coding_systems)) |
| 3510 | val = XCAR (coding_systems); | 3510 | val = XCAR (coding_systems); |
| @@ -3535,9 +3535,9 @@ usage: (make-network-process &rest ARGS) */) | |||
| 3535 | { | 3535 | { |
| 3536 | fargs[0] = Qopen_network_stream, fargs[1] = name, | 3536 | fargs[0] = Qopen_network_stream, fargs[1] = name, |
| 3537 | fargs[2] = buffer, fargs[3] = host, fargs[4] = service; | 3537 | fargs[2] = buffer, fargs[3] = host, fargs[4] = service; |
| 3538 | GCPRO1_VAR (proc, inner_gcpro); | 3538 | GCPRO1 (proc); |
| 3539 | coding_systems = Ffind_operation_coding_system (5, fargs); | 3539 | coding_systems = Ffind_operation_coding_system (5, fargs); |
| 3540 | UNGCPRO_VAR (inner_gcpro); | 3540 | UNGCPRO; |
| 3541 | } | 3541 | } |
| 3542 | } | 3542 | } |
| 3543 | if (CONSP (coding_systems)) | 3543 | if (CONSP (coding_systems)) |