1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
|
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
|
diff -uNr tcltcc-0.4.orig/demo/pingpong.test tcltcc-0.4-fixvers/demo/pingpong.test
--- tcltcc-0.4.orig/demo/pingpong.test 2007-11-07 10:04:20.000000000 -0600
+++ tcltcc-0.4-fixvers/demo/pingpong.test 2011-07-25 13:38:06.000000000 -0500
@@ -5,7 +5,7 @@
set dir [file dirname [info script]]/..
source $dir/pkgIndex.tcl
-package require tcc 0.2
+package require tcc 0.4
#-- this code shall in the future be generated by:
#-- cfunc tcl_mul {int a int b} int {expr {$a*$b}}}
diff -uNr tcltcc-0.4.orig/demo/tcc-compile.tcl tcltcc-0.4-fixvers/demo/tcc-compile.tcl
--- tcltcc-0.4.orig/demo/tcc-compile.tcl 2007-11-07 10:04:20.000000000 -0600
+++ tcltcc-0.4-fixvers/demo/tcc-compile.tcl 2011-07-25 13:38:17.000000000 -0500
@@ -1,6 +1,6 @@
switch -exact -- $::tcl_platform(platform) {
- windows {load ../tcc02.dll}
- unix {load ../libtcc0.2.so}
+ windows {load ../tcc04.dll}
+ unix {load ../libtcc0.4.so}
}
tcc .. dll tcc_1
set t tcc_1
@@ -8,7 +8,7 @@
$t add_include_path ../generic/i386
$t add_include_path ../generic
$t define PACKAGE_NAME \"tcc\"
-$t define PACKAGE_VERSION \"0.2\"
+$t define PACKAGE_VERSION \"0.4\"
$t define DLL_EXPORT {__declspec(dllexport)}
$t define LIBTCC 1
$t define WIN32 1
diff -uNr tcltcc-0.4.orig/demo/tdom-compile-dll.tcl tcltcc-0.4-fixvers/demo/tdom-compile-dll.tcl
--- tcltcc-0.4.orig/demo/tdom-compile-dll.tcl 2007-11-07 10:04:20.000000000 -0600
+++ tcltcc-0.4-fixvers/demo/tdom-compile-dll.tcl 2011-07-25 13:38:26.000000000 -0500
@@ -1,6 +1,6 @@
switch -exact -- $::tcl_platform(platform) {
- windows {load ../tcc02.dll}
- unix {load ../libtcc0.2.so}
+ windows {load ../tcc04.dll}
+ unix {load ../libtcc0.4.so}
}
tcc ../pkg dll tcc_1
set t tcc_1
diff -uNr tcltcc-0.4.orig/demo/tdom-compile.tcl tcltcc-0.4-fixvers/demo/tdom-compile.tcl
--- tcltcc-0.4.orig/demo/tdom-compile.tcl 2007-11-07 10:04:20.000000000 -0600
+++ tcltcc-0.4-fixvers/demo/tdom-compile.tcl 2011-07-25 13:38:32.000000000 -0500
@@ -1,6 +1,6 @@
switch -exact -- $::tcl_platform(platform) {
- windows {load ../tcc02.dll}
- unix {load ../libtcc0.2.so}
+ windows {load ../tcc04.dll}
+ unix {load ../libtcc0.4.so}
}
tcc ../pkg tcc_1
set t tcc_1
diff -uNr tcltcc-0.4.orig/demo/testtcc.tcl tcltcc-0.4-fixvers/demo/testtcc.tcl
--- tcltcc-0.4.orig/demo/testtcc.tcl 2007-11-07 10:04:20.000000000 -0600
+++ tcltcc-0.4-fixvers/demo/testtcc.tcl 2011-07-25 13:38:38.000000000 -0500
@@ -1,4 +1,4 @@
-load ../libtcc0.2.so
+load ../libtcc0.4.so
# second parameter is the path to the tcc libraries
tcc ../pkg tcc1
diff -uNr tcltcc-0.4.orig/tcc.tcl tcltcc-0.4-fixvers/tcc.tcl
--- tcltcc-0.4.orig/tcc.tcl 2007-11-07 10:04:42.000000000 -0600
+++ tcltcc-0.4-fixvers/tcc.tcl 2011-07-25 13:38:54.000000000 -0500
@@ -10,8 +10,8 @@
set dir [file dirname [info script]]
switch -exact -- $::tcl_platform(platform) {
- windows { load $dir/tcc02.dll tcc }
- unix { load $dir/libtcc0.2.so tcc }
+ windows { load $dir/tcc04.dll tcc }
+ unix { load $dir/libtcc0.4.so tcc }
default {error "unsupport platform"}
}
set libs $dir/lib
diff -uNr tcltcc-0.4.orig/tests/tcc.test tcltcc-0.4-fixvers/tests/tcc.test
--- tcltcc-0.4.orig/tests/tcc.test 2007-11-07 10:04:20.000000000 -0600
+++ tcltcc-0.4-fixvers/tests/tcc.test 2011-07-25 13:38:45.000000000 -0500
@@ -6,8 +6,8 @@
test tcc-1 "load library" {
set dir [file dirname [info script]]/..
source $dir/pkgIndex.tcl
- package require tcc 0.2
-} 0.2
+ package require tcc 0.4
+} 0.4
test tcc-2 "very simple command" {
tcc $::tcc::dir tcc1
tcc1 add_library tcl8.5
|