Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Revise a diagnostic message in the native library pre-loader. In the test suite infrastructure, always check for ::tcl_platform(machine) before trying to use it. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2bce27817411be0ebbeef84831a31222 |
| User & Date: | mistachkin 2016-08-30 00:49:00 |
Context
|
2016-08-30
| ||
| 03:12 | In the test suite infrastructure, enable verbose mode by default for all file copy/delete operations. check-in: 0c98859313 user: mistachkin tags: trunk | |
| 00:49 | Revise a diagnostic message in the native library pre-loader. In the test suite infrastructure, always check for ::tcl_platform(machine) before trying to use it. check-in: 2bce278174 user: mistachkin tags: trunk | |
| 00:09 | More updates for the .NET Framework 4.6.x. check-in: e55487b0b4 user: mistachkin tags: trunk | |
Changes
Changes to System.Data.SQLite/UnsafeNativeMethods.cs.
1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 |
if (File.Exists(fileName))
{
#if !NET_COMPACT_20 && TRACE_DETECTION
try
{
Trace.WriteLine(HelperMethods.StringFormat(
CultureInfo.CurrentCulture,
"Native library pre-loader search found file " +
"name \"{0}\", returning directory \"{1}\" and " +
"sub-directory \"{2}\"...", fileName, directory,
subDirectory)); /* throw */
}
catch
{
// do nothing.
|
| |
1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 |
if (File.Exists(fileName))
{
#if !NET_COMPACT_20 && TRACE_DETECTION
try
{
Trace.WriteLine(HelperMethods.StringFormat(
CultureInfo.CurrentCulture,
"Native library pre-loader found native file " +
"name \"{0}\", returning directory \"{1}\" and " +
"sub-directory \"{2}\"...", fileName, directory,
subDirectory)); /* throw */
}
catch
{
// do nothing.
|
Changes to lib/System.Data.SQLite/common.eagle.
599
600
601
602
603
604
605
606
607
608
609
610
611
612
....
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
|
# NOTE: If the primary assembly also contains the native components,
# we have everything we need.
#
if {$native} then {
return true
}
#
# NOTE: What is the architecture for this machine?
#
set architecture [machineToPlatform $::tcl_platform(machine) true]
#
# NOTE: What is the platform for this machine?
................................................................................
#
# NOTE: An empty string for the platform means that the build is not
# [primarily] a native build; therefore, it always matches.
#
if {[string length $platform] == 0} then {
return true
}
#
# NOTE: Does the specified platform match up to the current process?
#
if {$platform eq [machineToPlatform $::tcl_platform(machine)]} then {
return true
}
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
....
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
|
# NOTE: If the primary assembly also contains the native components,
# we have everything we need.
#
if {$native} then {
return true
}
#
# NOTE: If the machine name is unavailable, there is nothign else we
# can do.
#
if {![info exists ::tcl_platform(machine)]} then {
return false
}
#
# NOTE: What is the architecture for this machine?
#
set architecture [machineToPlatform $::tcl_platform(machine) true]
#
# NOTE: What is the platform for this machine?
................................................................................
#
# NOTE: An empty string for the platform means that the build is not
# [primarily] a native build; therefore, it always matches.
#
if {[string length $platform] == 0} then {
return true
}
#
# NOTE: If the machine name is unavailable, there is nothign else we
# can do.
#
if {![info exists ::tcl_platform(machine)]} then {
return false
}
#
# NOTE: Does the specified platform match up to the current process?
#
if {$platform eq [machineToPlatform $::tcl_platform(machine)]} then {
return true
}
|