diff options
| author | Kevin Ryde <user42@zip.com.au> | 2001-10-22 03:16:06 +0200 |
|---|---|---|
| committer | Kevin Ryde <user42@zip.com.au> | 2001-10-22 03:16:06 +0200 |
| commit | f0cc05823b9b9749ba794de3eca199b4fc8e96b5 (patch) | |
| tree | 4ec03cb8673cea364d26e3813907227a8c2ebc32 /demos/perl | |
| parent | 66bd60c89b82a764f0d50a1351c55bb8a7a1a0ef (diff) | |
| download | gmp-f0cc05823b9b9749ba794de3eca199b4fc8e96b5.tar.gz | |
* demos/perl/GMP.xs (mutate_mpz, tmp_mpf_grow): Make these "static".
Diffstat (limited to 'demos/perl')
| -rw-r--r-- | demos/perl/GMP.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/perl/GMP.xs b/demos/perl/GMP.xs index 0c7151857..de7f42dd0 100644 --- a/demos/perl/GMP.xs +++ b/demos/perl/GMP.xs @@ -192,7 +192,7 @@ typedef struct tmp_mpf_struct tmp_mpf_t[1]; f->allocated_prec = mpf_get_prec (f->m); \ } while (0) -void +static void tmp_mpf_grow (tmp_mpf_ptr f, unsigned long prec) { mpf_set_prec_raw (f->m, f->allocated_prec); @@ -690,7 +690,7 @@ coerce_long (SV *sv) /* Prepare sv to be a changable mpz. If it's not an mpz then turn it into one. If it is an mpz then ensure the reference count is 1. */ -mpz_ptr +static mpz_ptr mutate_mpz (SV *sv) { mpz old_z, new_z; |