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