Tcl Source Code

Changes On Branch tip-531
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Changes In Branch tip-531 Excluding Merge-Ins

This is equivalent to a diff from 5b3cc9e2a9 to 07d94cad22

2019-04-05
21:15
Merge 8.6 check-in: 67062d71c0 user: jan.nijtmans tags: core-8-branch
20:51
Created TIP 531 implementation for Peter Da Silva Closed-Leaf check-in: 07d94cad22 user: dkf tags: tip-531
2019-04-04
21:31
Merge 8.7 Undo Tcl-specific changes in bn_mp_sqrt.c, and re-enable the two disabled test-cases: Th... check-in: a256ab380c user: jan.nijtmans tags: digit-bit-60
2019-04-03
19:52
Merge 8.7 check-in: c1bdc62c2a user: jan.nijtmans tags: utf-max
17:20
merge 8.7 check-in: d9c41ba6ee user: dgp tags: tip-445-api-fix
07:58
Import of TIP 312 implementation check-in: 39413ccd4f user: dkf tags: tip-312-new
2019-04-02
18:23
merge-mark check-in: 5b3cc9e2a9 user: jan.nijtmans tags: core-8-branch
18:21
Fix gcc warning on 32-bit platforms check-in: df5c902252 user: jan.nijtmans tags: core-8-6-branch
2019-04-01
19:36
Modify testbytestring such that is only produces pure byte-arrays, if not it errors out. Modify Tcl... check-in: 3c92680ac9 user: jan.nijtmans tags: core-8-branch

Changes to generic/tcl.h.

2396
2397
2398
2399
2400
2401
2402






2403
2404
2405
2406
2407
2408
2409
2396
2397
2398
2399
2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
2414
2415







+
+
+
+
+
+







			    Tcl_AppInitProc *appInitProc, Tcl_Interp *interp);
EXTERN const char *	Tcl_PkgInitStubsCheck(Tcl_Interp *interp,
			    const char *version, int exact);
EXTERN void		Tcl_GetMemoryInfo(Tcl_DString *dsPtr);
#ifndef _WIN32
EXTERN int		TclZipfs_AppHook(int *argc, char ***argv);
#endif

/*
 * Public function Tcl_CreateInterpWithStubs (TIP #531), not accessed via stubs table.
 */
Tcl_Interp * Tcl_CreateInterpWithStubs(const char *version, int exact);


/*
 *----------------------------------------------------------------------------
 * Include the public function declarations that are accessible via the stubs
 * table.
 */

Added generic/tclCreateInterpWithStubs.c.
















1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
/* must be compiled without stubs */
#undef USE_TCL_STUBS
#include <tcl.h>

Tcl_Interp * Tcl_CreateInterpWithStubs(const char *version, int exact)
{
    Tcl_Interp *interp = Tcl_CreateInterp();

    if (Tcl_Init(interp) == TCL_ERROR
        || Tcl_InitStubs(interp, version, exact) == NULL
        || Tcl_PkgRequire(interp, "Tcl", version, exact) == NULL) {
	return NULL;
    }   
    return interp;
}

Changes to unix/Makefile.in.

342
343
344
345
346
347
348

349
350
351
352
353
354
355
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356







+







	bn_mp_toom_mul.o bn_mp_toom_sqr.o bn_mp_toradix_n.o \
	bn_mp_unsigned_bin_size.o bn_mp_xor.o bn_mp_zero.o bn_s_mp_add.o \
	bn_s_mp_mul_digs.o bn_s_mp_sqr.o bn_s_mp_sub.o

STUB_LIB_OBJS = tclStubLib.o \
	tclTomMathStubLib.o \
	tclOOStubLib.o \
	tclCreateInterpWithStubs.o \
	${COMPAT_OBJS}

UNIX_OBJS = tclUnixChan.o tclUnixEvent.o tclUnixFCmd.o \
	tclUnixFile.o tclUnixPipe.o tclUnixSock.o \
	tclUnixTime.o tclUnixInit.o tclUnixThrd.o \
	tclUnixCompat.o

482
483
484
485
486
487
488

489
490
491
492
493
494
495
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497







+







	$(GENERIC_DIR)/tclOODefineCmds.c \
	$(GENERIC_DIR)/tclOOInfo.c \
	$(GENERIC_DIR)/tclOOMethod.c \
	$(GENERIC_DIR)/tclOOStubInit.c

STUB_SRCS = \
	$(GENERIC_DIR)/tclStubLib.c \
	$(GENERIC_DIR)/tclCreateInterpWithStubs.c \
	$(GENERIC_DIR)/tclTomMathStubLib.c \
	$(GENERIC_DIR)/tclOOStubLib.c

TOMMATH_SRCS = \
	$(TOMMATH_DIR)/bn_reverse.c \
	$(TOMMATH_DIR)/bn_fast_s_mp_mul_digs.c \
	$(TOMMATH_DIR)/bn_fast_s_mp_sqr.c \
1828
1829
1830
1831
1832
1833
1834



1835
1836
1837
1838
1839
1840
1841
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843
1844
1845
1846







+
+
+







# Stub library binaries, these must be compiled for use in a shared library
# even though they will be placed in a static archive
#--------------------------------------------------------------------------

tclStubLib.o: $(GENERIC_DIR)/tclStubLib.c
	$(CC) -c $(STUB_CC_SWITCHES) -DSTATIC_BUILD $(GENERIC_DIR)/tclStubLib.c

tclCreateInterpWithStubs.o: $(GENERIC_DIR)/tclCreateInterpWithStubs.c
	$(CC) -c $(STUB_CC_SWITCHES) $(GENERIC_DIR)/tclCreateInterpWithStubs.c

tclTomMathStubLib.o: $(GENERIC_DIR)/tclTomMathStubLib.c
	$(CC) -c $(STUB_CC_SWITCHES) $(GENERIC_DIR)/tclTomMathStubLib.c

tclOOStubLib.o: $(GENERIC_DIR)/tclOOStubLib.c
	$(CC) -c $(STUB_CC_SWITCHES) $(GENERIC_DIR)/tclOOStubLib.c

.c.o: