github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-04-29 05:25:51 +00:00
Code Issues Projects Releases Wiki Activity

Remove unused variable declarations.

Browse Source 
modified:   array.c
	modified:   array3.c
	modified:   car-cdr.c
	modified:   chardev.c
	modified:   conspage.c
	modified:   ldeboot.c
	modified:   sxhash.c
	modified:   unixfork.c
This commit is contained in:
Nick Briggs
2017-07-18 19:00:36 -07:00
parent 1da1a2cf10
commit ffff6ee267
8 changed files with 17 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/sxhash.c
View File

@@ -125,7 +125,7 @@ unsigned short sxhash_rotate(short unsigned int value) {
#endif
unsigned short sxhash_string(OneDArray *obj) {
unsigned i, len, offset;
unsigned len, offset;
register unsigned short hash = 0;
len = (unsigned)obj->fillpointer;
if (len > 13) len = 13;
@@ -150,7 +150,7 @@ unsigned short sxhash_string(OneDArray *obj) {
unsigned short sxhash_bitvec(OneDArray *obj) {
unsigned short *base;
unsigned i, len, offset, bitoffset;
unsigned len, offset, bitoffset;
unsigned short hash = 0;
len = (unsigned)obj->fillpointer;
offset = (unsigned)obj->offset;
@@ -203,7 +203,7 @@ LispPTR STRING_EQUAL_HASHBITS(SXHASHARG *args) {
} /* STRING_EQUAL_HASHBITS */
unsigned short stringequalhash(LispPTR obj) {
unsigned i, len, offset, fatp, ind;
unsigned len, offset, fatp, ind;
register unsigned short hash = 0;
PNCell *pnptr;
DLword *base;
@@ -271,7 +271,7 @@ LispPTR STRING_HASHBITS(SXHASHARG *args) {
} /* STRING_HASHBITS */
unsigned short stringhash(LispPTR obj) {
unsigned i, len, offset, fatp, ind;
unsigned len, offset, fatp, ind;
register unsigned short hash = 0;
PNCell *pnptr;
DLword *base;