summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--library/cookiejar/idna.tcl10
-rw-r--r--tests-perf/test-performance.tcl2
-rw-r--r--win/tclWin32Dll.c8
-rw-r--r--win/tclWinChan.c6
-rw-r--r--win/tclWinFCmd.c28
-rw-r--r--win/tclWinPipe.c4
-rw-r--r--win/tclWinPort.h4
-rw-r--r--win/tclWinTest.c2
-rw-r--r--win/tclWinTime.c6
9 files changed, 35 insertions, 35 deletions
diff --git a/library/cookiejar/idna.tcl b/library/cookiejar/idna.tcl
index 1ab9fc4..afc7128 100644
--- a/library/cookiejar/idna.tcl
+++ b/library/cookiejar/idna.tcl
@@ -152,14 +152,14 @@ namespace eval ::tcl::idna {
# Increase delta enough to advance the decoder's <n,i> state to
# <m,0>, but guard against overflow:
- if {$m-$n > (0xffffffff-$delta)/($h+1)} {
+ if {$m-$n > (0xFFFFFFFF-$delta)/($h+1)} {
throw {PUNYCODE OVERFLOW} "overflow in delta computation"
}
incr delta [expr {($m-$n) * ($h+1)}]
set n $m
foreach ch $in {
- if {$ch < $n && ([incr delta] & 0xffffffff) == 0} {
+ if {$ch < $n && ([incr delta] & 0xFFFFFFFF) == 0} {
throw {PUNYCODE OVERFLOW} "overflow in delta computation"
}
@@ -251,7 +251,7 @@ namespace eval ::tcl::idna {
set first 0
break
}
- if {[set w [expr {$w * ($base - $t)}]] > 0x7fffffff} {
+ if {[set w [expr {$w * ($base - $t)}]] > 0x7FFFFFFF} {
throw {PUNYCODE OVERFLOW} \
"excessively large integer computed in digit decode"
}
@@ -261,11 +261,11 @@ namespace eval ::tcl::idna {
# i was supposed to wrap around from out+1 to 0, incrementing n
# each time, so we'll fix that now:
- if {[incr n [expr {$i / $out}]] > 0x7fffffff} {
+ if {[incr n [expr {$i / $out}]] > 0x7FFFFFFF} {
throw {PUNYCODE OVERFLOW} \
"excessively large integer computed in character choice"
} elseif {$n > $max_codepoint} {
- if {$n >= 0x00d800 && $n < 0x00e000} {
+ if {$n >= 0x00D800 && $n < 0x00E000} {
# Bare surrogate?!
throw {PUNYCODE NON_BMP} \
[format "unsupported character U+%06x" $n]
diff --git a/tests-perf/test-performance.tcl b/tests-perf/test-performance.tcl
index a715c8a..af8ee96 100644
--- a/tests-perf/test-performance.tcl
+++ b/tests-perf/test-performance.tcl
@@ -49,7 +49,7 @@ proc _test_out_total {} {
return
}
- set mintm 0x7fffffff
+ set mintm 0x7FFFFFFF
set maxtm 0
set nettm 0
set wtm 0
diff --git a/win/tclWin32Dll.c b/win/tclWin32Dll.c
index 156ec9e..7c73c06 100644
--- a/win/tclWin32Dll.c
+++ b/win/tclWin32Dll.c
@@ -539,7 +539,7 @@ TclWinCPUID(
"movl %%eax, 0x0(%%edi)" "\n\t"
"movl %%ebx, 0x4(%%edi)" "\n\t"
"movl %%ecx, 0x8(%%edi)" "\n\t"
- "movl %%edx, 0xc(%%edi)" "\n\t"
+ "movl %%edx, 0xC(%%edi)" "\n\t"
:
/* No outputs */
@@ -571,7 +571,7 @@ TclWinCPUID(
"leal 1f, %%eax" "\n\t"
"movl %%eax, 0x4(%%edx)" "\n\t" /* handler */
"movl %%ebp, 0x8(%%edx)" "\n\t" /* ebp */
- "movl %%esp, 0xc(%%edx)" "\n\t" /* esp */
+ "movl %%esp, 0xC(%%edx)" "\n\t" /* esp */
"movl %[error], 0x10(%%edx)" "\n\t" /* status */
/*
@@ -591,7 +591,7 @@ TclWinCPUID(
"movl %%eax, 0x0(%%edi)" "\n\t"
"movl %%ebx, 0x4(%%edi)" "\n\t"
"movl %%ecx, 0x8(%%edi)" "\n\t"
- "movl %%edx, 0xc(%%edi)" "\n\t"
+ "movl %%edx, 0xC(%%edi)" "\n\t"
/*
* Come here on a normal exit. Recover the TCLEXCEPTION_REGISTRATION and
@@ -618,7 +618,7 @@ TclWinCPUID(
*/
"2:" "\t"
- "movl 0xc(%%edx), %%esp" "\n\t"
+ "movl 0xC(%%edx), %%esp" "\n\t"
"movl 0x8(%%edx), %%ebp" "\n\t"
"movl 0x0(%%edx), %%eax" "\n\t"
"movl %%eax, %%fs:0" "\n\t"
diff --git a/win/tclWinChan.c b/win/tclWinChan.c
index b13dbd2..544c000 100644
--- a/win/tclWinChan.c
+++ b/win/tclWinChan.c
@@ -980,7 +980,7 @@ TclpOpenFileChannel(
if (handle == INVALID_HANDLE_VALUE) {
DWORD err = GetLastError();
- if ((err & 0xffffL) == ERROR_OPEN_FAILED) {
+ if ((err & 0xFFFFL) == ERROR_OPEN_FAILED) {
err = TEST_FLAG(mode, O_CREAT) ? ERROR_FILE_EXISTS
: ERROR_FILE_NOT_FOUND;
}
@@ -1172,7 +1172,7 @@ Tcl_MakeFileChannel(
"leal 1f, %%eax" "\n\t"
"movl %%eax, 0x4(%%edx)" "\n\t" /* handler */
"movl %%ebp, 0x8(%%edx)" "\n\t" /* ebp */
- "movl %%esp, 0xc(%%edx)" "\n\t" /* esp */
+ "movl %%esp, 0xC(%%edx)" "\n\t" /* esp */
"movl $0, 0x10(%%edx)" "\n\t" /* status */
/*
@@ -1212,7 +1212,7 @@ Tcl_MakeFileChannel(
*/
"2:" "\t"
- "movl 0xc(%%edx), %%esp" "\n\t"
+ "movl 0xC(%%edx), %%esp" "\n\t"
"movl 0x8(%%edx), %%ebp" "\n\t"
"movl 0x0(%%edx), %%eax" "\n\t"
"movl %%eax, %%fs:0" "\n\t"
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c
index 9bb22b0..6750d29 100644
--- a/win/tclWinFCmd.c
+++ b/win/tclWinFCmd.c
@@ -204,7 +204,7 @@ DoRenameFile(
"leal 1f, %%eax" "\n\t"
"movl %%eax, 0x4(%%edx)" "\n\t" /* handler */
"movl %%ebp, 0x8(%%edx)" "\n\t" /* ebp */
- "movl %%esp, 0xc(%%edx)" "\n\t" /* esp */
+ "movl %%esp, 0xC(%%edx)" "\n\t" /* esp */
"movl $0, 0x10(%%edx)" "\n\t" /* status */
/*
@@ -245,7 +245,7 @@ DoRenameFile(
*/
"2:" "\t"
- "movl 0xc(%%edx), %%esp" "\n\t"
+ "movl 0xC(%%edx), %%esp" "\n\t"
"movl 0x8(%%edx), %%ebp" "\n\t"
"movl 0x0(%%edx), %%eax" "\n\t"
"movl %%eax, %%fs:0" "\n\t"
@@ -283,7 +283,7 @@ DoRenameFile(
srcAttr = GetFileAttributesW(nativeSrc);
dstAttr = GetFileAttributesW(nativeDst);
- if (srcAttr == 0xffffffff) {
+ if (srcAttr == 0xFFFFFFFF) {
if (GetFullPathNameW(nativeSrc, 0, NULL,
NULL) >= MAX_PATH) {
errno = ENAMETOOLONG;
@@ -291,7 +291,7 @@ DoRenameFile(
}
srcAttr = 0;
}
- if (dstAttr == 0xffffffff) {
+ if (dstAttr == 0xFFFFFFFF) {
if (GetFullPathNameW(nativeDst, 0, NULL,
NULL) >= MAX_PATH) {
errno = ENAMETOOLONG;
@@ -593,7 +593,7 @@ DoCopyFile(
"leal 1f, %%eax" "\n\t"
"movl %%eax, 0x4(%%edx)" "\n\t" /* handler */
"movl %%ebp, 0x8(%%edx)" "\n\t" /* ebp */
- "movl %%esp, 0xc(%%edx)" "\n\t" /* esp */
+ "movl %%esp, 0xC(%%edx)" "\n\t" /* esp */
"movl $0, 0x10(%%edx)" "\n\t" /* status */
/*
@@ -635,7 +635,7 @@ DoCopyFile(
*/
"2:" "\t"
- "movl 0xc(%%edx), %%esp" "\n\t"
+ "movl 0xC(%%edx), %%esp" "\n\t"
"movl 0x8(%%edx), %%ebp" "\n\t"
"movl 0x0(%%edx), %%eax" "\n\t"
"movl %%eax, %%fs:0" "\n\t"
@@ -679,8 +679,8 @@ DoCopyFile(
srcAttr = GetFileAttributesW(nativeSrc);
dstAttr = GetFileAttributesW(nativeDst);
- if (srcAttr != 0xffffffff) {
- if (dstAttr == 0xffffffff) {
+ if (srcAttr != 0xFFFFFFFF) {
+ if (dstAttr == 0xFFFFFFFF) {
dstAttr = 0;
}
if ((srcAttr & FILE_ATTRIBUTE_DIRECTORY) ||
@@ -770,7 +770,7 @@ TclpDeleteFile(
if (Tcl_GetErrno() == EACCES) {
attr = GetFileAttributesW(path);
- if (attr != 0xffffffff) {
+ if (attr != 0xFFFFFFFF) {
if (attr & FILE_ATTRIBUTE_DIRECTORY) {
if (attr & FILE_ATTRIBUTE_REPARSE_POINT) {
/*
@@ -805,7 +805,7 @@ TclpDeleteFile(
}
} else if (Tcl_GetErrno() == ENOENT) {
attr = GetFileAttributesW(path);
- if (attr != 0xffffffff) {
+ if (attr != 0xFFFFFFFF) {
if (attr & FILE_ATTRIBUTE_DIRECTORY) {
/*
* Windows 95 reports removing a directory as ENOENT instead
@@ -1058,7 +1058,7 @@ DoRemoveJustDirectory(
if (Tcl_GetErrno() == EACCES) {
attr = GetFileAttributesW(nativePath);
- if (attr != 0xffffffff) {
+ if (attr != 0xFFFFFFFF) {
if ((attr & FILE_ATTRIBUTE_DIRECTORY) == 0) {
/*
* Windows 95 reports calling RemoveDirectory on a file as an
@@ -1203,7 +1203,7 @@ TraverseWinTree(
oldSourceLen = Tcl_DStringLength(sourcePtr);
sourceAttr = GetFileAttributesW(nativeSource);
- if (sourceAttr == 0xffffffff) {
+ if (sourceAttr == 0xFFFFFFFF) {
nativeErrfile = nativeSource;
goto end;
}
@@ -1520,7 +1520,7 @@ GetWinFileAttributes(
nativeName = (const WCHAR *)Tcl_FSGetNativePath(fileName);
result = GetFileAttributesW(nativeName);
- if (result == 0xffffffff) {
+ if (result == 0xFFFFFFFF) {
StatError(interp, fileName);
return TCL_ERROR;
}
@@ -1846,7 +1846,7 @@ SetWinFileAttributes(
nativeName = (const WCHAR *)Tcl_FSGetNativePath(fileName);
fileAttributes = old = GetFileAttributesW(nativeName);
- if (fileAttributes == 0xffffffff) {
+ if (fileAttributes == 0xFFFFFFFF) {
StatError(interp, fileName);
return TCL_ERROR;
}
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c
index 754e9ed..14270f8 100644
--- a/win/tclWinPipe.c
+++ b/win/tclWinPipe.c
@@ -610,7 +610,7 @@ TclpOpenFile(
DWORD err;
err = GetLastError();
- if ((err & 0xffffL) == ERROR_OPEN_FAILED) {
+ if ((err & 0xFFFFL) == ERROR_OPEN_FAILED) {
err = (mode & O_CREAT) ? ERROR_FILE_EXISTS : ERROR_FILE_NOT_FOUND;
}
TclWinConvertError(err);
@@ -1307,7 +1307,7 @@ ApplicationType(
*/
attr = GetFileAttributesW(nativeFullPath);
- if ((attr == 0xffffffff) || (attr & FILE_ATTRIBUTE_DIRECTORY)) {
+ if ((attr == 0xFFFFFFFF) || (attr & FILE_ATTRIBUTE_DIRECTORY)) {
continue;
}
Tcl_DStringInit(&ds);
diff --git a/win/tclWinPort.h b/win/tclWinPort.h
index 5c57953..edbdbdd 100644
--- a/win/tclWinPort.h
+++ b/win/tclWinPort.h
@@ -315,7 +315,7 @@ typedef DWORD_PTR * PDWORD_PTR;
#endif
#ifndef WTERMSIG
-# define WTERMSIG(stat) ((*((int *) &(stat))) & 0x7f)
+# define WTERMSIG(stat) ((*((int *) &(stat))) & 0x7F)
#endif
#ifndef WIFSTOPPED
@@ -323,7 +323,7 @@ typedef DWORD_PTR * PDWORD_PTR;
#endif
#ifndef WSTOPSIG
-# define WSTOPSIG(stat) (((*((int *) &(stat))) >> 8) & 0xff)
+# define WSTOPSIG(stat) (((*((int *) &(stat))) >> 8) & 0xFF)
#endif
/*
diff --git a/win/tclWinTest.c b/win/tclWinTest.c
index 973ec47..5841509 100644
--- a/win/tclWinTest.c
+++ b/win/tclWinTest.c
@@ -455,7 +455,7 @@ TestplatformChmod(
* nativePath not found
*/
- if (attr == 0xffffffff) {
+ if (attr == 0xFFFFFFFF) {
res = -1;
goto done;
}
diff --git a/win/tclWinTime.c b/win/tclWinTime.c
index 2ea256b..277b57f 100644
--- a/win/tclWinTime.c
+++ b/win/tclWinTime.c
@@ -523,9 +523,9 @@ NativeGetMicroseconds(void)
GetSystemInfo(&systemInfo);
if (TclWinCPUID(0, regs) == TCL_OK
- && regs[1] == 0x756e6547 /* "Genu" */
- && regs[3] == 0x49656e69 /* "ineI" */
- && regs[2] == 0x6c65746e /* "ntel" */
+ && regs[1] == 0x756E6547 /* "Genu" */
+ && regs[3] == 0x49656E69 /* "ineI" */
+ && regs[2] == 0x6C65746E /* "ntel" */
&& TclWinCPUID(1, regs) == TCL_OK
&& ((regs[0]&0x00000F00) == 0x00000F00 /* Pentium 4 */
|| ((regs[0] & 0x00F00000) /* Extended family */
generated by cgit v0.12 at 2024-10-19 13:29:34 (GMT)