Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
612f56df
Commit
612f56df
authored
Mar 16, 2011
by
Paul Eggert
Browse files
* fns.c (Ffillarray): Rename locals to avoid shadowing.
parent
2a80c887
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
10 additions
and
9 deletions
+10
-9
src/ChangeLog
src/ChangeLog
+1
-0
src/fns.c
src/fns.c
+9
-9
No files found.
src/ChangeLog
View file @
612f56df
2011-03-16 Paul Eggert <eggert@cs.ucla.edu>
* fns.c (require_nesting_list, require_unwind): Now static.
(Ffillarray): Rename locals to avoid shadowing.
* floatfns.c (domain_error2): Define only if needed.
(Ffrexp, Fldexp): Rename locals to avoid shadowing.
src/fns.c
View file @
612f56df
...
...
@@ -2133,15 +2133,15 @@ DEFUN ("fillarray", Ffillarray, Sfillarray, 2, 2, 0,
ARRAY is a vector, string, char-table, or bool-vector. */
)
(
Lisp_Object
array
,
Lisp_Object
item
)
{
register
EMACS_INT
size
,
i
nde
x
;
register
EMACS_INT
size
,
i
d
x
;
int
charval
;
if
(
VECTORP
(
array
))
{
register
Lisp_Object
*
p
=
XVECTOR
(
array
)
->
contents
;
size
=
ASIZE
(
array
);
for
(
i
nde
x
=
0
;
i
nde
x
<
size
;
i
nde
x
++
)
p
[
i
nde
x
]
=
item
;
for
(
i
d
x
=
0
;
i
d
x
<
size
;
i
d
x
++
)
p
[
i
d
x
]
=
item
;
}
else
if
(
CHAR_TABLE_P
(
array
))
{
...
...
@@ -2177,8 +2177,8 @@ ARRAY is a vector, string, char-table, or bool-vector. */)
*
p
++
=
str
[
i
%
len
];
}
else
for
(
i
nde
x
=
0
;
i
nde
x
<
size
;
i
nde
x
++
)
p
[
i
nde
x
]
=
charval
;
for
(
i
d
x
=
0
;
i
d
x
<
size
;
i
d
x
++
)
p
[
i
d
x
]
=
charval
;
}
else
if
(
BOOL_VECTOR_P
(
array
))
{
...
...
@@ -2188,14 +2188,14 @@ ARRAY is a vector, string, char-table, or bool-vector. */)
/
BOOL_VECTOR_BITS_PER_CHAR
);
charval
=
(
!
NILP
(
item
)
?
-
1
:
0
);
for
(
i
nde
x
=
0
;
i
nde
x
<
size_in_chars
-
1
;
i
nde
x
++
)
p
[
i
nde
x
]
=
charval
;
if
(
i
nde
x
<
size_in_chars
)
for
(
i
d
x
=
0
;
i
d
x
<
size_in_chars
-
1
;
i
d
x
++
)
p
[
i
d
x
]
=
charval
;
if
(
i
d
x
<
size_in_chars
)
{
/* Mask out bits beyond the vector size. */
if
(
XBOOL_VECTOR
(
array
)
->
size
%
BOOL_VECTOR_BITS_PER_CHAR
)
charval
&=
(
1
<<
(
XBOOL_VECTOR
(
array
)
->
size
%
BOOL_VECTOR_BITS_PER_CHAR
))
-
1
;
p
[
i
nde
x
]
=
charval
;
p
[
i
d
x
]
=
charval
;
}
}
else
...
...
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