diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-11 16:36:22 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-11 16:36:22 +0000 |
| commit | e5687acb0c7cb7e00d80dde70d5d9163677bffea (patch) | |
| tree | 85408ddaa2ae5aac8fb957f4ee0e9cc81e5c49ff /ext/GDBM_File/GDBM_File.xs | |
| parent | 2faa37ccf8e46b865687f0ab4992b29a75eb79ea (diff) | |
| parent | 4a8966581a604869d2f8db229d9d60d76ee72dcf (diff) | |
| download | perl-e5687acb0c7cb7e00d80dde70d5d9163677bffea.tar.gz | |
Initial integration of ansi branch into mainline (untested).
p4raw-id: //depot/perl@230
Diffstat (limited to 'ext/GDBM_File/GDBM_File.xs')
| -rw-r--r-- | ext/GDBM_File/GDBM_File.xs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs index a423c88c70..d3305ec38d 100644 --- a/ext/GDBM_File/GDBM_File.xs +++ b/ext/GDBM_File/GDBM_File.xs @@ -20,11 +20,10 @@ typedef GDBM_FILE GDBM_File; typedef datum gdatum; -typedef void (*FATALFUNC)(); +typedef void (*FATALFUNC)(...); static int -not_here(s) -char *s; +not_here(char *s) { croak("GDBM_File::%s not implemented on this architecture", s); return -1; @@ -41,9 +40,7 @@ char *s; #endif static double -constant(name, arg) -char *name; -int arg; +constant(char *name, int arg) { errno = 0; switch (*name) { |