Tcl Source Code

Check-in [ba55cebfc9]
Login

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

Overview
Comment:Testing patches for iOS support
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | ios
Files: files | file ages | folders
SHA1: ba55cebfc9cfac7206f45940d3c0c8aa1022f37b
User & Date: kevin_walzer 2014-07-31 02:04:10
Context
2014-07-31
02:04
Testing patches for iOS support Closed-Leaf check-in: ba55cebfc9 user: kevin_walzer tags: ios
2014-07-30
16:41
[3757cdf808] More clock refactoring with spooky impact on [string match] performance. check-in: db3153c306 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclLoadNone.c.

100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
MODULE_SCOPE int
TclpLoadMemory(
    Tcl_Interp *interp,		/* Used for error reporting. */
    void *buffer,		/* Dummy: unused by this implementation */
    int size,			/* Dummy: unused by this implementation */
    int codeSize,		/* Dummy: unused by this implementation */
    Tcl_LoadHandle *loadHandle,	/* Dummy: unused by this implementation */
    Tcl_FSUnloadFileProc **unloadProcPtr)
				/* Dummy: unused by this implementation */
{
    Tcl_SetObjResult(interp, Tcl_NewStringObj("dynamic loading from memory "
	    "is not available on this system", -1));
    return TCL_ERROR;
}








|







100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
MODULE_SCOPE int
TclpLoadMemory(
    Tcl_Interp *interp,		/* Used for error reporting. */
    void *buffer,		/* Dummy: unused by this implementation */
    int size,			/* Dummy: unused by this implementation */
    int codeSize,		/* Dummy: unused by this implementation */
    Tcl_LoadHandle *loadHandle,	/* Dummy: unused by this implementation */
    Tcl_FSUnloadFileProc **unloadProcPtr, int flags)
				/* Dummy: unused by this implementation */
{
    Tcl_SetObjResult(interp, Tcl_NewStringObj("dynamic loading from memory "
	    "is not available on this system", -1));
    return TCL_ERROR;
}

Changes to unix/tclUnixPort.h.

540
541
542
543
544
545
546




547
548
549
550
551
552
553
554

/*
 *---------------------------------------------------------------------------
 * Variables provided by the C library:
 *---------------------------------------------------------------------------
 */





#if defined(__APPLE__) && defined(__DYNAMIC__)
#   include <crt_externs.h>
#   define environ	(*_NSGetEnviron())
#   define USE_PUTENV	1
#else
#   if defined(_sgi) || defined(__sgi)
#	define environ	_environ
#   endif







>
>
>
>
|







540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558

/*
 *---------------------------------------------------------------------------
 * Variables provided by the C library:
 *---------------------------------------------------------------------------
 */

#ifdef __APPLE__
#include "TargetConditionals.h"
#endif

#if defined(__APPLE__) && defined(__DYNAMIC__) && TARGET_OS_MAC
#   include <crt_externs.h>
#   define environ	(*_NSGetEnviron())
#   define USE_PUTENV	1
#else
#   if defined(_sgi) || defined(__sgi)
#	define environ	_environ
#   endif