diff options
author | Steve Bennett <steveb@workware.net.au> | 2016-09-14 10:35:12 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2016-09-29 08:09:49 +1000 |
commit | a6a4cfa76408fdd5d93a9cc1417e53fb6c017924 (patch) | |
tree | d4c24662bf1500b4ad9e99c391b5587c445c06c2 /autosetup/cc.tcl | |
parent | 991e0e4ea183eedec150751ed51029bce41690c8 (diff) | |
download | jimtcl-a6a4cfa76408fdd5d93a9cc1417e53fb6c017924.zip jimtcl-a6a4cfa76408fdd5d93a9cc1417e53fb6c017924.tar.gz jimtcl-a6a4cfa76408fdd5d93a9cc1417e53fb6c017924.tar.bz2 |
Update autosetup to v0.6.6
Among other things, includes improved option parsing
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'autosetup/cc.tcl')
-rw-r--r-- | autosetup/cc.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/autosetup/cc.tcl b/autosetup/cc.tcl index ebd9789..67f1ccd 100644 --- a/autosetup/cc.tcl +++ b/autosetup/cc.tcl @@ -49,7 +49,8 @@ proc cctest_type {type} { # Checks for the existence of the given type/structure member. # e.g. "struct stat.st_mtime" proc cctest_member {struct_member} { - lassign [split $struct_member .] struct member + # split at the first dot + regexp {^([^.]+)[.](.*)$} $struct_member -> struct member cctest -code "static $struct _s; return sizeof(_s.$member);" } |