diff options
author | tege <tege@gmplib.org> | 2007-09-24 17:19:27 +0200 |
---|---|---|
committer | tege <tege@gmplib.org> | 2007-09-24 17:19:27 +0200 |
commit | 7f6e0a4930a18e221ea2d45d621bea82c9c9c34e (patch) | |
tree | 13f6076dca2ab33d5e59b8847b03226cc30a7be5 /demos/perl | |
parent | 4c893cee7bc42b6f874b4729f7afc767512e8f34 (diff) | |
download | gmp-7f6e0a4930a18e221ea2d45d621bea82c9c9c34e.tar.gz |
Clean up spacing.
Diffstat (limited to 'demos/perl')
-rw-r--r-- | demos/perl/GMP.xs | 2 | ||||
-rw-r--r-- | demos/perl/test.pl | 8 | ||||
-rw-r--r-- | demos/perl/test2.pl | 4 |
3 files changed, 7 insertions, 7 deletions
diff --git a/demos/perl/GMP.xs b/demos/perl/GMP.xs index c9e4a79f3..2282c8928 100644 --- a/demos/perl/GMP.xs +++ b/demos/perl/GMP.xs @@ -63,7 +63,7 @@ along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. #define NDEBUG /* Change this to "#define TRACE(x) x" for some diagnostics. */ -#define TRACE(x) +#define TRACE(x) #include <assert.h> diff --git a/demos/perl/test.pl b/demos/perl/test.pl index 9edb08f0e..40a903378 100644 --- a/demos/perl/test.pl +++ b/demos/perl/test.pl @@ -781,7 +781,7 @@ foreach my $i ([ 1, 19, 1 ], ok (&$fun (mpz($$i[0]), $$i[1]) == $$i[2]); ok (&$fun (mpz($$i[0]), mpz($$i[1])) == $$i[2]); } -} +} #------------------------------------------------------------------------------ # GMP::Mpz::lcm @@ -1677,7 +1677,7 @@ ok (floor(mpf(7.5)) == 7.0); { my $old_prec = get_default_prec(); set_default_prec(128); - + ok ( mpf_eq (mpz("0x10000000000000001"), mpz("0x10000000000000002"), 1)); ok (! mpf_eq (mpz("0x11"), mpz("0x12"), 128)); @@ -1789,7 +1789,7 @@ ok (trunc(mpf(7.5)) == 7.0); { my $r = randstate(); my $z = mpz_urandomm($r, mpz(3)**100); ok (UNIVERSAL::isa($z,"GMP::Mpz")); } - + #------------------------------------------------------------------------------ # GMP::Rand::mpz_urandomb_ui @@ -2100,7 +2100,7 @@ ok (via_printf ("%#X", mpq(15,16)) eq '0XF/0X10'); ok (via_printf ("%*.*f", 10, 3, 1.25) eq ' 1.250'); ok (via_printf ("%*.*f", 10, 3, mpf(1.5)) eq ' 1.500'); - + #------------------------------------------------------------------------------ # GMP::sgn diff --git a/demos/perl/test2.pl b/demos/perl/test2.pl index 0f30326ca..645d3cfbb 100644 --- a/demos/perl/test2.pl +++ b/demos/perl/test2.pl @@ -28,14 +28,14 @@ use GMP::Mpz qw(:constants); ok (UNIVERSAL::isa ($a, "GMP::Mpz")); } use GMP::Mpz qw(:noconstants); - + use GMP::Mpq qw(:constants); { my $a = 123; ok (UNIVERSAL::isa ($a, "GMP::Mpq")); } use GMP::Mpq qw(:noconstants); - + use GMP::Mpf qw(:constants); { my $a = 123; |