From 7c77266e85f1eb067cf39c05b2bc4fa92ebd99d6 Mon Sep 17 00:00:00 2001 From: Sid Date: Tue, 31 Mar 2026 14:51:50 +0800 Subject: [PATCH] Apply SUPPORTS_NORETURN conditional symbol --- jcl/source/common/JclFileUtils.pas | 4 ++-- jcl/source/windows/JclDebug.pas | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/jcl/source/common/JclFileUtils.pas b/jcl/source/common/JclFileUtils.pas index 06b9cb522..cbc590a11 100644 --- a/jcl/source/common/JclFileUtils.pas +++ b/jcl/source/common/JclFileUtils.pas @@ -4298,9 +4298,9 @@ function GetSizeOfFile(const FileName: string): Int64; FileAttributesEx: WIN32_FILE_ATTRIBUTE_DATA; Size: TJclULargeInteger; begin - {$IFNDEF COMPILER37_UP} + {$IFNDEF SUPPORTS_NORETURN} Result := 0; - {$ENDIF ~COMPILER37_UP} + {$ENDIF ~SUPPORTS_NORETURN} if GetFileAttributesEx(PChar(FileName), GetFileExInfoStandard, @FileAttributesEx) then begin Size.LowPart := FileAttributesEx.nFileSizeLow; diff --git a/jcl/source/windows/JclDebug.pas b/jcl/source/windows/JclDebug.pas index f59a892fd..d6299ab25 100644 --- a/jcl/source/windows/JclDebug.pas +++ b/jcl/source/windows/JclDebug.pas @@ -5577,9 +5577,9 @@ function GetThreadTopOfStack(ThreadHandle: THandle): TJclAddr; TBI: THREAD_BASIC_INFORMATION; ReturnedLength: ULONG; begin - {$IFNDEF COMPILER37_UP} + {$IFNDEF SUPPORTS_NORETURN} Result := 0; - {$ENDIF ~COMPILER37_UP} + {$ENDIF ~SUPPORTS_NORETURN} ReturnedLength := 0; if (NtQueryInformationThread(ThreadHandle, ThreadBasicInformation, @TBI, SizeOf(TBI), @ReturnedLength) < $80000000) and (ReturnedLength = SizeOf(TBI)) then