conservatory
/
elk
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* Fixed remaining K&R shit. 

git-svn-id: svn://svn.zoy.org/elk/trunk@90 55e467fa-43c5-0310-a8a2-de718669efc6
This commit is contained in:
sam 2003-09-04 14:30:21 +00:00
parent 28fb5f0f30
commit 6bc9b501c7
3 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/misc/gdbm.c
View File

@ -132,8 +132,7 @@ int Gdbm_fh_Equal (Object a, Object b) {
} }
/*ARGSUSED*/ /*ARGSUSED*/
int Gdbm_fh_Print (fh, port, raw, depth, len) Object fh, port; int Gdbm_fh_Print (Object fh, Object port, int raw, int depth, int len) {
int /*Bool*/ raw; int depth, len; {
Printf (port, "#[gdbm-file %lu]", GDBM_FH(fh)->fptr); Printf (port, "#[gdbm-file %lu]", GDBM_FH(fh)->fptr);
return 0; return 0;
} }
@ -182,8 +181,7 @@ Object P_Gdbm_Close (Object fh) {
return Void; return Void;
} }
Object P_Gdbm_Store (fh, key, content, flag) Object P_Gdbm_Store (Object fh, Object key, Object content, Object flag) {
Object fh, key, content, flag; {
int res; int res;
datum k, c; datum k, c;

3
lib/unix/process.c
View File

@ -65,8 +65,7 @@ static Object P_Environ() {
return P_Reverse(ret); return P_Reverse(ret);
} }
static Object General_Exec(argc, argv, path) int argc; Object *argv; static Object General_Exec(int argc, Object *argv, int path) {
int path; {
Object fn, args, p, e; Object fn, args, p, e;
char *fnp, **argp, **envp; char *fnp, **argp, **envp;
int i, len; int i, len;

4
lib/unix/wait.c
View File

@ -75,8 +75,8 @@ static SYMDESCR Wait_Flags[] = {
#endif #endif
static Object General_Wait(ret, ruret, haspid, pid, options) static Object General_Wait(Object ret, Object ruret,
Object ret, ruret; int haspid, pid, options; { int haspid, int pid, int options) {
int retpid, st, code; int retpid, st, code;
char *status; char *status;
#ifdef WAIT_RUSAGE #ifdef WAIT_RUSAGE