~ubuntu-branches/debian/sid/pari/sid

« back to all changes in this revision

Viewing changes to .pc/fix_pari_init_functions/src/language/init.c

  • Committer: Package Import Robot
  • Author(s): Bill Allombert
  • Date: 2013-05-13 14:31:49 UTC
  • mfrom: (1.2.6)
  • Revision ID: package-import@ubuntu.com-20130513143149-bbjd2n6m3kg7ta1f
Tags: 2.5.4-1
* New upstream release. Closes: #703116
  - Fix gcc-4.7 support. Patch gcc-4.7-linear-fix removed.
  - Update tex2mail. Patch tex2mail-Getopt-Long removed.
* Multiarchify libpari-gmp3. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
11
11
 
12
12
Check the License for details. You should have received a copy of it, along
13
13
with the package; see the file 'COPYING'. If not, write to the Free Software
14
 
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
 
14
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. */
15
15
 
16
16
/*******************************************************************/
17
17
/*                                                                 */
35
35
 
36
36
GEN     gnil, gen_0, gen_1, gen_m1, gen_2, gen_m2, ghalf;
37
37
 
38
 
static const long readonly_constants[] = {
 
38
static const ulong readonly_constants[] = {
39
39
  evaltyp(t_INT) | _evallg(2),  /* gen_0 */
40
40
  evallgefint(2),
41
41
  evaltyp(t_INT) | _evallg(2),  /* gnil */
53
53
  evalsigne(-1) | evallgefint(3),
54
54
  2,
55
55
};
56
 
static const long readonly_ghalf[] = {
 
56
static const ulong readonly_ghalf[] = {
57
57
  evaltyp(t_FRAC) | _evallg(3), /* ghalf */
58
 
  (long)(readonly_constants+4),
59
 
  (long)(readonly_constants+7)
 
58
  (ulong)(readonly_constants+4),
 
59
  (ulong)(readonly_constants+7)
60
60
};
61
61
THREAD GEN    bernzone;
62
62
GEN     primetab; /* private primetable */
261
261
void
262
262
pari_stackcheck_init(void *stack_base)
263
263
{
264
 
  PARI_stack_limit = NULL;
 
264
  (void) stack_base; PARI_stack_limit = NULL;
265
265
}
266
266
#endif /* STACK_CHECK */
267
267
 
730
730
 
731
731
  pari_stackcheck_init(&u);
732
732
  if ((init_opts&INIT_DFTm)) {
 
733
    pari_init_defaults();
733
734
    GP_DATA = default_gp_data();
734
735
    gp_expand_path(GP_DATA->path);
735
 
    pari_init_defaults();
736
736
  }
737
737
 
738
738
  if ((init_opts&INIT_SIGm)) pari_sig_init(pari_sighandler);
778
778
  pari_thread_close();
779
779
 
780
780
  free((void*)functions_hash);
 
781
  free((void*)defaults_hash);
781
782
  free((void*)bot);
782
783
  free((void*)diffptr);
783
784
  free(current_logfile);