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

small fixes to please gcc on Solaris and AIX

This commit is contained in:
eknauel 2003-12-03 09:20:01 +00:00
parent 7b56a805a1
commit bd36b18282
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
c/yp.c
View File

@ -89,7 +89,7 @@ s48_value scsh_yp_order(s48_value domain, s48_value map)
S48_GC_PROTECT_2(domain, map); S48_GC_PROTECT_2(domain, map);
r = yp_order(s48_extract_string(domain), s48_extract_string(map), r = yp_order(s48_extract_string(domain), s48_extract_string(map),
&outorder); (int *) &outorder);
i = (r == 0) ? s48_enter_integer(outorder) : S48_UNSPECIFIC; i = (r == 0) ? s48_enter_integer(outorder) : S48_UNSPECIFIC;
res = s48_list_2(s48_enter_integer(r), i); res = s48_list_2(s48_enter_integer(r), i);
S48_GC_UNPROTECT(); S48_GC_UNPROTECT();
@ -174,6 +174,4 @@ void scsh_yp_main(void)
S48_EXPORT_FUNCTION(scsh_yp_master); S48_EXPORT_FUNCTION(scsh_yp_master);
S48_EXPORT_FUNCTION(scsh_yp_first); S48_EXPORT_FUNCTION(scsh_yp_first);
S48_EXPORT_FUNCTION(scsh_yp_next); S48_EXPORT_FUNCTION(scsh_yp_next);
return S48_UNSPECIFIC;
} }