mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-20 19:42:53 -08:00
Code Issues Projects Releases Wiki Activity

Suppress "variable may be used uninitialized" warnings.

Browse source 
Copied from Perforce
 Change: 182545
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Gareth Rees 2013-06-05 16:44:35 +01:00
parent b32d6919a7
commit 37e3e2dfac
4 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
mps/example/scheme/scheme-advanced.c
View file

@ -1715,7 +1715,7 @@ static obj_t entry_quote(obj_t env, obj_t op_env, obj_t operator, obj_t operands
static obj_t entry_define(obj_t env, obj_t op_env, obj_t operator, obj_t operands)
{
obj_t symbol, value;
obj_t symbol = NULL, value = NULL;
unless(TYPE(operands) == TYPE_PAIR &&
TYPE(CDR(operands)) == TYPE_PAIR)
error("%s: illegal syntax", operator->operator.name);
@ -3479,7 +3479,7 @@ static obj_t entry_eqv_hash(obj_t env, obj_t op_env, obj_t operator, obj_t opera
static obj_t make_hashtable(obj_t operator, obj_t rest, hash_t hashf, cmp_t cmpf, int weak_key, int weak_value)
{
size_t length;
size_t length = 0;
if (rest == obj_empty)
length = 8;
else unless(CDR(rest) == obj_empty)

4
mps/example/scheme/scheme-boehm.c
View file

@ -1445,7 +1445,7 @@ static obj_t entry_quote(obj_t env, obj_t op_env, obj_t operator, obj_t operands
static obj_t entry_define(obj_t env, obj_t op_env, obj_t operator, obj_t operands)
{
obj_t symbol, value;
obj_t symbol = NULL, value = NULL;
unless(TYPE(operands) == TYPE_PAIR &&
TYPE(CDR(operands)) == TYPE_PAIR)
error("%s: illegal syntax", operator->operator.name);
@ -3212,7 +3212,7 @@ static obj_t entry_eqv_hash(obj_t env, obj_t op_env, obj_t operator, obj_t opera
static obj_t make_hashtable(obj_t operator, obj_t rest, hash_t hashf, cmp_t cmpf)
{
size_t length;
size_t length = 0;
if (rest == obj_empty)
length = 8;
else unless(CDR(rest) == obj_empty)

4
mps/example/scheme/scheme-malloc.c
View file

@ -1445,7 +1445,7 @@ static obj_t entry_quote(obj_t env, obj_t op_env, obj_t operator, obj_t operands
static obj_t entry_define(obj_t env, obj_t op_env, obj_t operator, obj_t operands)
{
obj_t symbol, value;
obj_t symbol = NULL, value = NULL;
unless(TYPE(operands) == TYPE_PAIR &&
TYPE(CDR(operands)) == TYPE_PAIR)
error("%s: illegal syntax", operator->operator.name);
@ -3212,7 +3212,7 @@ static obj_t entry_eqv_hash(obj_t env, obj_t op_env, obj_t operator, obj_t opera
static obj_t make_hashtable(obj_t operator, obj_t rest, hash_t hashf, cmp_t cmpf)
{
size_t length;
size_t length = 0;
if (rest == obj_empty)
length = 8;
else unless(CDR(rest) == obj_empty)

4
mps/example/scheme/scheme.c
View file

@ -1744,7 +1744,7 @@ static obj_t entry_quote(obj_t env, obj_t op_env, obj_t operator, obj_t operands
static obj_t entry_define(obj_t env, obj_t op_env, obj_t operator, obj_t operands)
{
obj_t symbol, value;
obj_t symbol = NULL, value = NULL;
unless(TYPE(operands) == TYPE_PAIR &&
TYPE(CDR(operands)) == TYPE_PAIR)
error("%s: illegal syntax", operator->operator.name);
@ -3508,7 +3508,7 @@ static obj_t entry_eqv_hash(obj_t env, obj_t op_env, obj_t operator, obj_t opera
static obj_t make_hashtable(obj_t operator, obj_t rest, hash_t hashf, cmp_t cmpf)
{
size_t length;
size_t length = 0;
if (rest == obj_empty)
length = 8;
else unless(CDR(rest) == obj_empty)