Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
23d6bb9c
Commit
23d6bb9c
authored
Nov 16, 1994
by
Karl Heuer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(make_process): Use allocate_vectorlike and VECSIZE.
parent
1825c68d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
8 additions
and
11 deletions
+8
-11
src/process.c
src/process.c
+8
-11
No files found.
src/process.c
View file @
23d6bb9c
...
...
@@ -467,22 +467,18 @@ Lisp_Object
make_process
(
name
)
Lisp_Object
name
;
{
struct
Lisp_Vector
*
vec
;
register
Lisp_Object
val
,
tem
,
name1
;
register
struct
Lisp_Process
*
p
;
char
suffix
[
10
];
register
int
i
;
/* size of process structure includes the vector header,
so deduct for that. But struct Lisp_Vector includes the first
element, thus deducts too much, so add it back. */
val
=
Fmake_vector
(
make_number
((
sizeof
(
struct
Lisp_Process
)
-
sizeof
(
struct
Lisp_Vector
)
+
sizeof
(
Lisp_Object
))
/
sizeof
(
Lisp_Object
)),
Qnil
);
XSETTYPE
(
val
,
Lisp_Process
);
p
=
XPROCESS
(
val
);
vec
=
allocate_vectorlike
((
EMACS_INT
)
VECSIZE
(
struct
Lisp_Process
));
for
(
i
=
0
;
i
<
VECSIZE
(
struct
Lisp_Process
);
i
++
)
vec
->
contents
[
i
]
=
Qnil
;
vec
->
size
=
VECSIZE
(
struct
Lisp_Process
);
p
=
(
struct
Lisp_Process
*
)
vec
;
XSETINT
(
p
->
infd
,
-
1
);
XSETINT
(
p
->
outfd
,
-
1
);
XSETFASTINT
(
p
->
pid
,
0
);
...
...
@@ -505,6 +501,7 @@ make_process (name)
}
name
=
name1
;
p
->
name
=
name
;
XSETPROCESS
(
val
,
p
);
Vprocess_alist
=
Fcons
(
Fcons
(
name
,
val
),
Vprocess_alist
);
return
val
;
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment