scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cancel some unnecessary GC_PROTECTs.

This commit is contained in:
mainzelm 2002-02-14 14:00:27 +00:00
parent 64221a6b95
commit 1b2096cfb4
2 changed files with 22 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scsh/dirstuff1.c
View File

@ -19,11 +19,10 @@ s48_value open_dir(s48_value sch_dirname)
struct dirent *dirent;
DIR *d;
s48_value dirlist = S48_NULL;
s48_value sch_d_name = S48_UNSPECIFIC;
S48_DECLARE_GC_PROTECT(2);
S48_DECLARE_GC_PROTECT(1);
S48_GC_PROTECT_2(dirlist, sch_d_name);
S48_GC_PROTECT_1(dirlist);
if( NULL == (d = opendir(s48_extract_string (sch_dirname))) )
s48_raise_os_error_1 (errno, sch_dirname);
@ -32,8 +31,8 @@ s48_value open_dir(s48_value sch_dirname)
if((strcmp(dirent->d_name,".") == 0) || (strcmp(dirent->d_name,"..") == 0))
continue;
sch_d_name = s48_enter_string(dirent->d_name);
dirlist = s48_cons (sch_d_name, dirlist);
dirlist = s48_cons (s48_enter_string (dirent->d_name),
dirlist);
}
if (closedir(d) == -1)

37
scsh/network1.c
View File

@ -523,11 +523,9 @@ s48_value host_ent2host_info (struct hostent * host)
{
s48_value host_info = S48_FALSE;
s48_value list = S48_FALSE;
s48_value sch_h_aliases = S48_UNSPECIFIC;
s48_value sch_h_addr_elt = S48_UNSPECIFIC;
long * ptr;
int i;
S48_DECLARE_GC_PROTECT (4);
S48_DECLARE_GC_PROTECT (2);
if(host==NULL)
{
@ -540,7 +538,7 @@ s48_value host_ent2host_info (struct hostent * host)
host_info_type_binding = s48_get_imported_binding ("host-info-type");
}
S48_GC_PROTECT_4 (host_info, list, sch_h_aliases, sch_h_addr_elt);
S48_GC_PROTECT_2 (host_info, list);
host_info = s48_make_record (host_info_type_binding);
S48_RECORD_SET (host_info, 0, s48_enter_string (host->h_name));
@ -550,8 +548,7 @@ s48_value host_ent2host_info (struct hostent * host)
i = 0;
while (*ptr)
{
sch_h_aliases = s48_enter_string (host->h_aliases[i]);
list = s48_cons (sch_h_aliases, list);
list = s48_cons (s48_enter_string (host->h_aliases[i]), list);
ptr++;
i ++;
}
@ -563,11 +560,9 @@ s48_value host_ent2host_info (struct hostent * host)
i = 0;
while (*ptr)
{
sch_h_addr_elt =
s48_enter_unsigned_integer (ntohl ((unsigned long) *(long *)(host->h_addr_list[i])));
list =
s48_cons (sch_h_addr_elt, list);
s48_cons (s48_enter_unsigned_integer (ntohl ((unsigned long) *(long *)(host->h_addr_list[i]))),
list);
ptr++;
i++;
}
@ -614,10 +609,9 @@ s48_value netent2net_info(struct netent *net)
{
s48_value network_info = S48_FALSE;
s48_value list = S48_FALSE;
s48_value sch_n_alias = S48_UNSPECIFIC;
long * ptr;
int i;
S48_DECLARE_GC_PROTECT (3);
S48_DECLARE_GC_PROTECT (2);
if (net==NULL) return S48_FALSE;
@ -627,7 +621,7 @@ s48_value netent2net_info(struct netent *net)
network_info_type_binding =
s48_get_imported_binding ("network-info-type");
}
S48_GC_PROTECT_3 (network_info, list, sch_n_alias);
S48_GC_PROTECT_2 (network_info, list);
network_info = s48_make_record (network_info_type_binding);
S48_RECORD_SET (network_info, 0, s48_enter_string (net->n_name));
@ -637,8 +631,7 @@ s48_value netent2net_info(struct netent *net)
i = 0;
while (*ptr)
{
sch_n_alias = s48_enter_string (net->n_aliases[i]);
list = s48_cons (sch_n_alias, list);
list = s48_cons (s48_enter_string (net->n_aliases[i]), list);
ptr++;
i++;
}
@ -677,10 +670,9 @@ s48_value servent2service_info(struct servent *serv)
{
s48_value service_info = S48_FALSE;
s48_value list = S48_FALSE;
s48_value sch_s_alias = S48_UNSPECIFIC;
long * ptr;
int i;
S48_DECLARE_GC_PROTECT (3);
S48_DECLARE_GC_PROTECT (2);
if (serv==NULL) return S48_FALSE;
@ -690,7 +682,7 @@ s48_value servent2service_info(struct servent *serv)
service_info_type_binding =
s48_get_imported_binding ("service-info-type");
}
S48_GC_PROTECT_3 (service_info, list, sch_s_alias);
S48_GC_PROTECT_2 (service_info, list);
service_info = s48_make_record (service_info_type_binding);
@ -701,8 +693,7 @@ s48_value servent2service_info(struct servent *serv)
i = 0;
while (*ptr)
{
sch_s_alias = s48_enter_string (serv->s_aliases[i]);
list = s48_cons (sch_s_alias, list);
list = s48_cons (s48_enter_string (serv->s_aliases[i]), list);
ptr++;
i++;
}
@ -755,7 +746,6 @@ s48_value protoent2protocol_info(struct protoent *proto)
{
s48_value protocol_info = S48_FALSE;
s48_value list = S48_FALSE;
s48_value sch_p_alias = S48_UNSPECIFIC;
long * ptr;
int i;
S48_DECLARE_GC_PROTECT (2);
@ -768,7 +758,7 @@ s48_value protoent2protocol_info(struct protoent *proto)
protocol_info_type_binding =
s48_get_imported_binding ("protocol-info-type");
}
S48_GC_PROTECT_3 (protocol_info, list, sch_p_alias);
S48_GC_PROTECT_2 (protocol_info, list);
protocol_info = s48_make_record (protocol_info_type_binding);
@ -779,8 +769,7 @@ s48_value protoent2protocol_info(struct protoent *proto)
i = 0;
while (*ptr)
{
sch_p_alias = s48_enter_string (proto->p_aliases[i]);
list = s48_cons (sch_p_alias, list);
list = s48_cons (s48_enter_string (proto->p_aliases[i]), list);
ptr++;
i++;
}