diff options
| author | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:21:26 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2017-01-10 22:21:26 (GMT) |
| commit | dc9796c6e858828861b1339b4734bab19cccca4c (patch) | |
| tree | 81cb2bbde61282f93461ce283eb461c4afef2e70 /generic/tclDate.c | |
| parent | 18be594c8481eee9b98d140af50df7ccb3a3a79e (diff) | |
| download | tcl-dc9796c6e858828861b1339b4734bab19cccca4c.zip tcl-dc9796c6e858828861b1339b4734bab19cccca4c.tar.gz tcl-dc9796c6e858828861b1339b4734bab19cccca4c.tar.bz2 | |
several initialize and finalize facilities
Diffstat (limited to 'generic/tclDate.c')
| -rw-r--r-- | generic/tclDate.c | 19 |
1 files changed, 3 insertions, 16 deletions
diff --git a/generic/tclDate.c b/generic/tclDate.c index 97d13b4..5bd96d0 100644 --- a/generic/tclDate.c +++ b/generic/tclDate.c @@ -2685,24 +2685,11 @@ TclClockFreeScan( /* * yyInput = stringToParse; - * yyYear = baseYear; yyMonth = baseMonth; yyDay = baseDay; + * + * ClockInitDateInfo(info) should be executed to pre-init info; */ - yyHaveDate = 0; - - yyHaveTime = 0; - - yyHaveZone = 0; - yyTimezone = 0; yyDSTmode = DSTmaybe; - - yyHaveOrdinalMonth = 0; - yyMonthOrdinalIncr = 0; - - yyHaveDay = 0; - yyDayOrdinal = 0; yyDayNumber = 0; - - yyHaveRel = 0; - yyRelMonth = 0; yyRelDay = 0; yyRelSeconds = 0; yyRelPointer = NULL; + yyDSTmode = DSTmaybe; info->messages = Tcl_NewObj(); info->separatrix = ""; |