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 |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
2bce27817411be0ebbeef84831a31222 |
| User & Date: | mistachkin 2016-08-30 00:49:00.403 |
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 |
if (File.Exists(fileName))
{
#if !NET_COMPACT_20 && TRACE_DETECTION
try
{
Trace.WriteLine(HelperMethods.StringFormat(
CultureInfo.CurrentCulture,
| | | 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 |
# 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?
| > > > > > > > > | 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 |
# 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?
|
| ︙ | ︙ | |||
1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 |
#
# 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
}
| > > > > > > > > | 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 |
#
# 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
}
|
| ︙ | ︙ |