diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-08 07:31:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-08 07:31:35 (GMT) |
| commit | 742323f7254ebadfa4e2f80b4d37b8b469c990f1 (patch) | |
| tree | 0631fddfd54936dbcea590d223fa91f1b38de616 /generic | |
| parent | 03a9eaa9512a6a1a87cc4c3225caa6bbcb44cdb1 (diff) | |
| parent | 008001c3b5e35ff3c122f2eb1bf566d93746b172 (diff) | |
| download | tcl-742323f7254ebadfa4e2f80b4d37b8b469c990f1.zip tcl-742323f7254ebadfa4e2f80b4d37b8b469c990f1.tar.gz tcl-742323f7254ebadfa4e2f80b4d37b8b469c990f1.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclInterp.c | 2 | ||||
| -rw-r--r-- | generic/tclPkg.c | 2 | ||||
| -rw-r--r-- | generic/tclTrace.c | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index 98e63db..416f74e 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -332,7 +332,7 @@ int Tcl_Init( Tcl_Interp *interp) /* Interpreter to initialize. */ { - PkgName pkgName = {NULL, "Tcl"}; + PkgName pkgName = {NULL, "tcl"}; PkgName **names = (PkgName **)TclInitPkgFiles(interp); int result = TCL_ERROR; diff --git a/generic/tclPkg.c b/generic/tclPkg.c index 4cbc52b..96a6029 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -40,7 +40,7 @@ typedef struct PkgAvail { typedef struct PkgName { struct PkgName *nextPtr; /* Next in list of package names being * initialized. */ - char name[1]; + char name[TCLFLEXARRAY]; } PkgName; typedef struct PkgFiles { diff --git a/generic/tclTrace.c b/generic/tclTrace.c index 6749978..2c525b0 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -22,7 +22,7 @@ typedef struct { int flags; /* Operations for which Tcl command is to be * invoked. */ size_t length; /* Number of non-NUL chars. in command. */ - char command[1]; /* Space for Tcl command to invoke. Actual + char command[TCLFLEXARRAY]; /* Space for Tcl command to invoke. Actual * size will be as large as necessary to hold * command. This field must be the last in the * structure, so that it can be larger than 1 |