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
e003a292
Commit
e003a292
authored
May 30, 2011
by
Paul Eggert
Browse files
* ccl.c (CCL_CODE_RANGE): Allow negative numbers. (Bug#8751)
(CCL_CODE_MIN): New macro.
parent
b5244046
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
6 deletions
+12
-6
src/ChangeLog
src/ChangeLog
+5
-0
src/ccl.c
src/ccl.c
+7
-6
No files found.
src/ChangeLog
View file @
e003a292
2011-05-31 Paul Eggert <eggert@cs.ucla.edu>
* ccl.c (CCL_CODE_RANGE): Allow negative numbers. (Bug#8751)
(CCL_CODE_MIN): New macro.
2011-05-30 Paul Eggert <eggert@cs.ucla.edu>
* alloc.c (lisp_align_malloc): Omit unnecessary val==NULL tests.
...
...
src/ccl.c
View file @
e003a292
...
...
@@ -79,9 +79,8 @@ static Lisp_Object Vccl_program_table;
#define CCL_HEADER_EOF 1
#define CCL_HEADER_MAIN 2
/* CCL code is a sequence of 28-bit non-negative integers (i.e. the
MSB is always 0), each contains CCL command and/or arguments in the
following format:
/* CCL code is a sequence of 28-bit integers. Each contains a CCL
command and/or arguments in the following format:
|----------------- integer (28-bit) ------------------|
|------- 17-bit ------|- 3-bit --|- 3-bit --|- 5-bit -|
...
...
@@ -94,12 +93,14 @@ static Lisp_Object Vccl_program_table;
|------------- constant or other args ----------------|
cccccccccccccccccccccccccccc
where, `cc...c' is a non-negative integer indicating constant value
(the left most `c' is always 0) or an absolute jump address, `RRR'
where `cc...c' is an integer indicating a constant value or an
absolute jump address. The context determines whether `cc...c' is
considered to be unsigned, or a signed two's complement number. `RRR'
and `rrr' are CCL register number, `XXXXX' is one of the following
CCL commands. */
#define CCL_CODE_MAX ((1 << (28 - 1)) - 1)
#define CCL_CODE_MIN (-1 - CCL_CODE_MAX)
/* CCL commands
...
...
@@ -756,7 +757,7 @@ while(0)
while (0)
#define GET_CCL_CODE(code, ccl_prog, ic) \
GET_CCL_RANGE (code, ccl_prog, ic,
0
, CCL_CODE_MAX)
GET_CCL_RANGE (code, ccl_prog, ic,
CCL_CODE_MIN
, CCL_CODE_MAX)
#define GET_CCL_INT(var, ccl_prog, ic) \
GET_CCL_RANGE (var, ccl_prog, ic, INT_MIN, INT_MAX)
...
...
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