summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/mplibdir/mp.w
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/mplibdir/mp.w')
-rw-r--r--Build/source/texk/web2c/mplibdir/mp.w23
1 files changed, 14 insertions, 9 deletions
diff --git a/Build/source/texk/web2c/mplibdir/mp.w b/Build/source/texk/web2c/mplibdir/mp.w
index 63b7f301da0..f43416d57aa 100644
--- a/Build/source/texk/web2c/mplibdir/mp.w
+++ b/Build/source/texk/web2c/mplibdir/mp.w
@@ -157,7 +157,8 @@ typedef struct MP_instance {
#include "mpmp.h" /* internal header */
#include "mppsout.h" /* internal header */
#include "mpsvgout.h" /* internal header */
-extern font_number mp_read_font_info (MP mp, char *fname); /* tfmin.w */
+#include "mptfmin.h" /* internal header */
+#include "mpmemio.h" /* internal header */
@h
@<Declarations@>
@<Basic printing procedures@>
@@ -700,11 +701,13 @@ static boolean mp_a_open_in (MP mp, void **f, int ftype) {
OPEN_FILE("r");
}
@#
+#if 0 /* unused */
boolean mp_w_open_in (MP mp, void **f) {
/* open a word file for input */
*f = (mp->open_file)(mp,mp->name_of_file,"r",mp_filetype_memfile);
return (*f ? true : false);
}
+#endif
@#
static boolean mp_a_open_out (MP mp, void **f, int ftype) {
/* open a text file for output */
@@ -3837,6 +3840,7 @@ what type it is; so we print it in all modes.
@^debugging@>
@c
+#if 0 /* unused */
void mp_print_word (MP mp,memory_word w) {
/* prints |w| in all ways */
mp_print_int(mp, w.cint); mp_print_char(mp, xord(' '));
@@ -3851,6 +3855,7 @@ void mp_print_word (MP mp,memory_word w) {
mp_print_int(mp, w.qqqq.b2); mp_print_char(mp, xord(':'));
mp_print_int(mp, w.qqqq.b3);
}
+#endif
@* \[10] Dynamic memory allocation.
@@ -4504,7 +4509,7 @@ static void mp_reallocate_memory(MP mp, int l) {
that are reserved now but were free the last time this procedure was called.
@c
-void mp_check_mem (MP mp,boolean print_locs ) {
+static void mp_check_mem (MP mp,boolean print_locs ) {
pointer p,q,r; /* current locations of interest in |mem| */
boolean clobbered; /* is something amiss? */
for (p=0;p<=mp->lo_mem_max;p++) {
@@ -4626,6 +4631,7 @@ to rule out the places that do {\sl not\/} point to |p|, so a few false
drops are tolerable.
@c
+#if 0 /* unused */
void mp_search_mem (MP mp, pointer p) { /* look for pointers to |p| */
integer q; /* current position being searched */
for (q=0;q<=mp->lo_mem_max;q++) {
@@ -4646,6 +4652,7 @@ void mp_search_mem (MP mp, pointer p) { /* look for pointers to |p| */
}
@<Search |eqtb| for equivalents equal to |p|@>;
}
+#endif
@ Just before \.{INIMP} writes out the memory, it sorts the doubly linked
available space list. The list is probably very short at such times, so a
@@ -22434,7 +22441,7 @@ it calls |atoi| to get an integer from the start of the string.
void mp_set_internal (MP mp, char *n, char *v, int isstring) {
integer l = strlen(n);
char err[256];
- char *errid = NULL;
+ const char *errid = NULL;
if (l>0) {
integer h = mp_compute_hash(mp, n,l);
pointer p = h+hash_base; /* we start searching here */
@@ -25878,7 +25885,9 @@ for (i = 1;i<= 9; i++ ) {
@ The following function divides |s| by |m|. |dd| is number of decimal digits.
-@c scaled mp_divide_scaled (MP mp,scaled s, scaled m, integer dd) {
+@c
+#if 0 /* unused */
+scaled mp_divide_scaled (MP mp,scaled s, scaled m, integer dd) {
scaled q,r;
integer sign,i;
sign = 1;
@@ -25898,6 +25907,7 @@ for (i = 1;i<= 9; i++ ) {
mp->scaled_out = sign*(s - (r / mp->ten_pow[dd]));
return (sign*q);
}
+#endif
@* \[44] Shipping pictures out.
The |ship_out| procedure, to be described below, is given a pointer to
@@ -26555,11 +26565,6 @@ mp->mem_ident=NULL;
@ @<Initialize table entries...@>=
mp->mem_ident=xstrdup(" (INIMP)");
-@ @<Declarations@>=
-extern void mp_store_mem_file (MP mp) ;
-extern boolean mp_load_mem_file (MP mp);
-extern int mp_undump_constants (MP mp);
-
@ @<Dealloc variables@>=
xfree(mp->mem_ident);