diff options
| author | welch <welch> | 1998-07-06 22:14:09 (GMT) |
|---|---|---|
| committer | welch <welch> | 1998-07-06 22:14:09 (GMT) |
| commit | 6a6605f4ad91444a0a39a533d12fc64d25d450cf (patch) | |
| tree | fa1996600704f28793c6bd81ec73cfd1fb902749 /mac | |
| parent | 7ead33b195874e2f0c7c4d8b19578805fdbaa2be (diff) | |
| download | tcl-6a6605f4ad91444a0a39a533d12fc64d25d450cf.zip tcl-6a6605f4ad91444a0a39a533d12fc64d25d450cf.tar.gz tcl-6a6605f4ad91444a0a39a533d12fc64d25d450cf.tar.bz2 | |
Updated for 8.0.3-2
Diffstat (limited to 'mac')
| -rw-r--r-- | mac/MW_TclHeader.pch | 14 | ||||
| -rw-r--r-- | mac/tclMacFile.c | 2 | ||||
| -rw-r--r-- | mac/tclMacPort.h | 2 |
3 files changed, 16 insertions, 2 deletions
diff --git a/mac/MW_TclHeader.pch b/mac/MW_TclHeader.pch index 6a27544..a5c133a 100644 --- a/mac/MW_TclHeader.pch +++ b/mac/MW_TclHeader.pch @@ -108,5 +108,17 @@ #include "tcl.h" #include "tclMac.h" #include "tclInt.h" -#pragma export off + +/* + * These three symbols are needed by Itcl, so we must export them + * here. They are all from tclCompile.h, but there is no need to + * export that whole file... + */ + +EXTERN void TclPrintSource _ANSI_ARGS_((FILE *outFile, + char *string, int maxChars)); +extern int tclTraceExec; +extern int tclTraceCompile; + +#pragma export reset diff --git a/mac/tclMacFile.c b/mac/tclMacFile.c index 3016a97..c15eeaa 100644 --- a/mac/tclMacFile.c +++ b/mac/tclMacFile.c @@ -416,7 +416,7 @@ TclMatchFiles( int TclpStat( - char *path, + CONST char *path, struct stat *buf) { HFileInfo fpb; diff --git a/mac/tclMacPort.h b/mac/tclMacPort.h index 50db085..d0edfb6 100644 --- a/mac/tclMacPort.h +++ b/mac/tclMacPort.h @@ -262,5 +262,7 @@ void TclUnsetEnv(CONST char *name); EXTERN int TclpSameFile _ANSI_ARGS_((char *file1, char *file2, struct stat *sourceStatBufPtr, struct stat *destStatBufPtr)) ; +EXTERN int TclpStat _ANSI_ARGS_ ((CONST char *path, struct stat *buf)); +EXTERN int TclpAccess _ANSI_ARGS_ ((CONST char *path, int mode)); #endif /* _MACPORT */ |