Attachment 585319 Details for Bug 821191 – proposed pari patch

[patch] proposed pari patch

pari-2.5.1-gmp.patch (text/plain), 2.44 KB, created by Paulo Andrade on 2012-05-18 00:24:52 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Paulo Andrade

Created: 2012-05-18 00:24:52 UTC

Size: 2.44 KB

patch

obsolete

>diff -up pari-2.5.1/src/headers/paripriv.h.orig pari-2.5.1/src/headers/paripriv.h
>--- pari-2.5.1/src/headers/paripriv.h.orig	2012-05-17 21:11:44.374440968 -0300
>+++ pari-2.5.1/src/headers/paripriv.h	2012-05-17 21:12:13.396442078 -0300
>@@ -258,7 +258,7 @@ void  init_graph(void);
> void  free_graph(void);
> void  initout(int initerr);
> void  init80col(void);
>-int   pari_kernel_init(void);
>+int   pari_kernel_init(ulong opts);
> void  print_functions_hash(const char *s);
> void  print_all_user_fun(int member);
> GEN   readbin(const char *name, FILE *f, int *vector);
>diff -up pari-2.5.1/src/kernel/gmp/mp.c.orig pari-2.5.1/src/kernel/gmp/mp.c
>--- pari-2.5.1/src/kernel/gmp/mp.c.orig	2012-05-17 21:11:59.662441553 -0300
>+++ pari-2.5.1/src/kernel/gmp/mp.c	2012-05-17 21:12:01.876441638 -0300
>@@ -53,10 +53,11 @@ static void gmp_free(void *ptr, size_t o
>   (void)old_size; pari_free(ptr);
> }
> 
>-int pari_kernel_init(void)
>+int pari_kernel_init(ulong init_opts)
> {
>   /* Use pari_malloc instead of malloc */
>-  mp_set_memory_functions((void *(*)(size_t)) pari_malloc, gmp_realloc, gmp_free);
>+  if (init_opts & INIT_SIGm)
>+    mp_set_memory_functions((void *(*)(size_t)) pari_malloc, gmp_realloc, gmp_free);
>   return 0;
> }
> 
>diff -up pari-2.5.1/src/kernel/none/mp.c.orig pari-2.5.1/src/kernel/none/mp.c
>--- pari-2.5.1/src/kernel/none/mp.c.orig	2012-05-17 21:11:51.868441254 -0300
>+++ pari-2.5.1/src/kernel/none/mp.c	2012-05-17 21:12:04.995441758 -0300
>@@ -23,7 +23,7 @@ Foundation, Inc., 59 Temple Place - Suit
> #include "paripriv.h"
> #include "../src/kernel/none/tune-gen.h"
> 
>-int pari_kernel_init(void) { return 0; } /*nothing to do*/
>+int pari_kernel_init(ulong init_opts) { return 0; } /*nothing to do*/
> 
> /* NOTE: arguments of "spec" routines (muliispec, addiispec, etc.) aren't
>  * GENs but pairs (long *a, long na) representing a list of digits (in basis
>diff -up pari-2.5.1/src/language/init.c.orig pari-2.5.1/src/language/init.c
>--- pari-2.5.1/src/language/init.c.orig	2012-05-17 21:11:34.630440594 -0300
>+++ pari-2.5.1/src/language/init.c	2012-05-17 21:12:24.997442524 -0300
>@@ -739,7 +739,7 @@ pari_init_opts(size_t parisize, ulong ma
>   pari_init_stack(parisize, 0);
>   diffptr = initprimes(maxprime);
>   init_universal_constants();
>-  if (pari_kernel_init()) pari_err(talker,"Cannot initialize kernel");
>+  if (pari_kernel_init(init_opts)) pari_err(talker,"Cannot initialize kernel");
> 
>   primetab = cgetalloc(t_VEC, 1);
>   varentries = (entree**) pari_calloc((MAXVARN+1)*sizeof(entree*));

Actions: View | Diff

Attachments on bug 821191: 585319