Fossil

Check-in [9562a16f6d]
Login

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

Overview
Comment:Fix a couple missed changes.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | tcl-stubs
Files: files | file ages | folders
SHA1: 9562a16f6d90c704c175f21200e893fc89ac8bcc
User & Date: mistachkin 2013-09-16 07:36:31.973
Context
2013-09-16
22:51
Add support for compiling a Tcl-enabled Fossil using the private stubs mechanism. ... (check-in: 955886f18c user: mistachkin tags: trunk)
07:36
Fix a couple missed changes. ... (Closed-Leaf check-in: 9562a16f6d user: mistachkin tags: tcl-stubs)
07:31
Correct typo in auto.def. Improvements to the Tcl integration. ... (check-in: 6e08e5ae64 user: mistachkin tags: tcl-stubs)
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/th_tcl.c.
652
653
654
655
656
657
658

659
660
661
662
663
664
665
      "could not load Tcl shared library \"" TCL_LIBRARY_NAME "\"",
      (const char *)"", 0);
  return TH_ERROR;
#else
  *pLibrary = 0;
  *pxFindExecutable = Tcl_FindExecutable;
  *pxCreateInterp = Tcl_CreateInterp;

  return TH_OK;
#endif
}

/*
** Sets the "argv0", "argc", and "argv" script variables in the Tcl interpreter
** based on the supplied command line arguments.







>







652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
      "could not load Tcl shared library \"" TCL_LIBRARY_NAME "\"",
      (const char *)"", 0);
  return TH_ERROR;
#else
  *pLibrary = 0;
  *pxFindExecutable = Tcl_FindExecutable;
  *pxCreateInterp = Tcl_CreateInterp;
  *pxDeleteInterp = Tcl_DeleteInterp;
  return TH_OK;
#endif
}

/*
** Sets the "argv0", "argc", and "argv" script variables in the Tcl interpreter
** based on the supplied command line arguments.
Changes to win/Makefile.mingw.mistachkin.
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
#
FOSSIL_ENABLE_SSL = 1

#### Enable scripting support via Tcl/Tk
#
FOSSIL_ENABLE_TCL = 1

#### Load Tcl using the stubs mechanism
#
FOSSIL_ENABLE_TCL_STUBS = 1

#### Load Tcl using the private stubs mechanism
#
# FOSSIL_ENABLE_TCL_PRIVATE_STUBS = 1








|







50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
#
FOSSIL_ENABLE_SSL = 1

#### Enable scripting support via Tcl/Tk
#
FOSSIL_ENABLE_TCL = 1

#### Load Tcl using the stubs library mechanism
#
FOSSIL_ENABLE_TCL_STUBS = 1

#### Load Tcl using the private stubs mechanism
#
# FOSSIL_ENABLE_TCL_PRIVATE_STUBS = 1