diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-10-31 01:43:49 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-10-31 01:43:49 +0000 |
| commit | 8ac853655d9b744749adcb9687c13d99cdd6e9fb (patch) | |
| tree | c32146679d3473063e5fce6090b93706d7602ad6 /universal.c | |
| parent | 27332437a2ed19419cce5a4de680085fd4d13c8d (diff) | |
| download | perl-8ac853655d9b744749adcb9687c13d99cdd6e9fb.tar.gz | |
Convert miniperl sources to ANSI C. Several passes of
GNU C's 'protoize' plus a few hand edits.
Will compile miniperl with gcc -x c++ (i.e. treat .c a C++ files)
Does not link seems gcc's C++ does not define a symbol for
const char foo[] = "....";
i.e. with empty [].
p4raw-id: //depot/ansiperl@194
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/universal.c b/universal.c index d6689f8acf..9a867631d0 100644 --- a/universal.c +++ b/universal.c @@ -8,11 +8,7 @@ */ static SV * -isa_lookup(stash, name, len, level) -HV *stash; -char *name; -int len; -int level; +isa_lookup(HV *stash, char *name, int len, int level) { AV* av; GV* gv; @@ -75,9 +71,7 @@ int level; } bool -sv_derived_from(sv, name) -SV * sv ; -char * name ; +sv_derived_from(SV *sv, char *name) { SV *rv; char *type; @@ -203,7 +197,7 @@ XS(XS_UNIVERSAL_VERSION) } void -boot_core_UNIVERSAL() +boot_core_UNIVERSAL(void) { char *file = __FILE__; |