xref: /PHP-8.2/ext/bcmath/libbcmath/src/init.c (revision cd05b56a)
1 /* init.c: bcmath library file. */
2 /*
3     Copyright (C) 1991, 1992, 1993, 1994, 1997 Free Software Foundation, Inc.
4     Copyright (C) 2000 Philip A. Nelson
5 
6     This library is free software; you can redistribute it and/or
7     modify it under the terms of the GNU Lesser General Public
8     License as published by the Free Software Foundation; either
9     version 2 of the License, or (at your option) any later version.
10 
11     This library is distributed in the hope that it will be useful,
12     but WITHOUT ANY WARRANTY; without even the implied warranty of
13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14     Lesser General Public License for more details.  (LICENSE)
15 
16     You should have received a copy of the GNU Lesser General Public
17     License along with this library; if not, write to:
18 
19       The Free Software Foundation, Inc.
20       59 Temple Place, Suite 330
21       Boston, MA 02111-1307 USA.
22 
23     You may contact the author by:
24        e-mail:  philnelson@acm.org
25       us-mail:  Philip A. Nelson
26                 Computer Science Department, 9062
27                 Western Washington University
28                 Bellingham, WA 98226-9062
29 
30 *************************************************************************/
31 
32 #include <config.h>
33 #include <stdio.h>
34 #include <stdlib.h>
35 #include <ctype.h>
36 #include <stdarg.h>
37 #include "bcmath.h"
38 #include "private.h"
39 
40 /* new_num allocates a number and sets fields to known values. */
41 
42 bc_num
_bc_new_num_ex(length,scale,persistent)43 _bc_new_num_ex (length, scale, persistent)
44      int length, scale, persistent;
45 {
46   bc_num temp;
47   /* PHP Change:  malloc() -> pemalloc(), removed free_list code */
48   temp = (bc_num) safe_pemalloc (1, sizeof(bc_struct)+length, scale, persistent);
49   temp->n_sign = PLUS;
50   temp->n_len = length;
51   temp->n_scale = scale;
52   temp->n_refs = 1;
53   /* PHP Change:  malloc() -> pemalloc() */
54   temp->n_ptr = (char *) safe_pemalloc (1, length, scale, persistent);
55   temp->n_value = temp->n_ptr;
56   memset (temp->n_ptr, 0, length+scale);
57   return temp;
58 }
59 
60 
61 /* "Frees" a bc_num NUM.  Actually decreases reference count and only
62    frees the storage if reference count is zero. */
63 
64 void
_bc_free_num_ex(num,persistent)65 _bc_free_num_ex (num, persistent)
66     bc_num *num;
67     int persistent;
68 {
69   if (*num == NULL) return;
70   (*num)->n_refs--;
71   if ((*num)->n_refs == 0) {
72     if ((*num)->n_ptr)
73 		/* PHP Change:  free() -> pefree(), removed free_list code */
74       pefree ((*num)->n_ptr, persistent);
75 	pefree(*num, persistent);
76   }
77   *num = NULL;
78 }
79 
80 
81 /* Initialize the number package! */
82 
83 void
bc_init_numbers(void)84 bc_init_numbers (void)
85 {
86   BCG(_zero_) = _bc_new_num_ex (1,0,1);
87   BCG(_one_)  = _bc_new_num_ex (1,0,1);
88   BCG(_one_)->n_value[0] = 1;
89   BCG(_two_)  = _bc_new_num_ex (1,0,1);
90   BCG(_two_)->n_value[0] = 2;
91 }
92 
93 
94 /* Make a copy of a number!  Just increments the reference count! */
95 
96 bc_num
bc_copy_num(bc_num num)97 bc_copy_num (bc_num num)
98 {
99   num->n_refs++;
100   return num;
101 }
102 
103 
104 /* Initialize a number NUM by making it a copy of zero. */
105 
106 void
bc_init_num(bc_num * num)107 bc_init_num (bc_num *num)
108 {
109   *num = bc_copy_num (BCG(_zero_));
110 }
111