Tcl Source Code

Check-in [a41a431706]
Login

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

Overview
Comment:Fix part of [d19aef1487] (broken --disable-load on MacOSX), broken by [4d417791c9]
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a41a431706dcedf16cf099c14dbe7aa71f7967a7
User & Date: jan.nijtmans 2014-07-31 21:23:45
Context
2014-08-01
14:36
Correction and commentary in the details of ensemble compiling. check-in: 2bee22315a user: dgp tags: trunk
2014-07-31
21:23
Fix part of [d19aef1487] (broken --disable-load on MacOSX), broken by [4d417791c9] check-in: a41a431706 user: jan.nijtmans tags: trunk
19:58
[a84a720966] Protect against double free in TclOO classChainCache teardown. check-in: 61e0390b0a 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
115
116
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 */
    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;
}