trunk/gcc14/vcs_diff_rtl.patch results

File details

./trunk/gcc14/vcs_diff_rtl.patch 2026-04-15-03:31

Used binaries

Binaries version

> uname -a
Linux cfarm14 6.1.0-44-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.164-1 (2026-03-09) x86_64 GNU/Linux

Full file content

 
diff --git a/rtl/inc/generic.inc b/rtl/inc/generic.inc
index e00f3e511b..8020beb0ca 100644
--- a/rtl/inc/generic.inc
+++ b/rtl/inc/generic.inc
@@ -2515,6 +2515,34 @@ procedure fpc_cpuinit;
   end;
 {$endif}
 
+{$ifdef DEBUG}
+const
+  swapendian_byte_count : int64 = 0;
+
+  procedure dummy_swapendian_byte_was_used;
+    begin
+      inc(swapendian_byte_count);
+    end;
+{$endif}
+
+function SwapEndian(const AValue : ShortInt) : ShortInt;
+  begin
+    SwapEndian:=AValue;
+{$ifdef DEBUG}
+    dummy_swapendian_byte_was_used;
+{$endif}
+  end;
+
+{$ifndef cpujvm}
+function SwapEndian(const AValue : byte) : byte;
+  begin
+    SwapEndian:=AValue;
+{$ifdef DEBUG}
+    dummy_swapendian_byte_was_used;
+{$endif}
+  end;
+{$endif}
+
 {$ifndef FPC_SYSTEM_HAS_SWAPENDIAN}
 function SwapEndian(const AValue: SmallInt): SmallInt;{$ifdef SYSTEMINLINE}inline;{$endif}
   begin
diff --git a/rtl/inc/objpash.inc b/rtl/inc/objpash.inc
index 388bbe98cd..5e2e8d1404 100644
--- a/rtl/inc/objpash.inc
+++ b/rtl/inc/objpash.inc
@@ -262,8 +262,8 @@        TObject = class
              AllocateObjectHook : TObjectHook;
              DestroyObjectHook : TObjectHook;
        {$ENDIF}
-       public
-          const SystemHasExtendedRTTI = {$IFDEF ENABLE_DELPHI_RTTI}True{$ELSE}False{$ENDIF};
+       //public
+       //  const SystemHasExtendedRTTI = {$IFDEF ENABLE_DELPHI_RTTI}True{$ELSE}False{$ENDIF};
 
        public
           { please don't change the order of virtual methods, because
diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc
index 2ec99647b6..b5feea05ad 100644
--- a/rtl/inc/systemh.inc
+++ b/rtl/inc/systemh.inc
@@ -1025,6 +1025,9 @@ procedure MoveData(srcseg,srcoff,destseg,destoff:Word;n:Word);
 Function Odd(l:Int64):Boolean;[internconst:fpc_in_const_odd];{$ifdef SYSTEMINLINE}inline;{$endif}
 Function Odd(l:QWord):Boolean;[internconst:fpc_in_const_odd];{$ifdef SYSTEMINLINE}inline;{$endif}
 
+function SwapEndian(const AValue : byte) : byte;
+function SwapEndian(const AValue : shortint) : shortint;
+
 function SwapEndian(const AValue: SmallInt): SmallInt;{$ifdef SYSTEMINLINE}inline;{$endif}
 function SwapEndian(const AValue: Word): Word;{$ifdef SYSTEMINLINE}inline;{$endif}
 function SwapEndian(const AValue: LongInt): LongInt;{$ifdef SYSTEMINLINE}inline;{$endif}
diff --git a/rtl/java/jsystemh.inc b/rtl/java/jsystemh.inc
index 6998fc8d43..b2d5626f0a 100644
--- a/rtl/java/jsystemh.inc
+++ b/rtl/java/jsystemh.inc
@@ -225,6 +225,8 @@ function  IndexWord(const buf: array of boolean16;len:SizeInt;b:boolean16):SizeI
 Function odd(l:Int64):Boolean;[internconst:fpc_in_const_odd];{$ifdef SYSTEMINLINE}inline;{$endif}
 Function odd(l:QWord):Boolean;[internconst:fpc_in_const_odd]; external;
 
+function SwapEndian(const AValue: ShortInt): ShortInt;{$ifdef SYSTEMINLINE}inline;{$endif}
+function SwapEndian(const AValue: Byte): Byte; external;
 function SwapEndian(const AValue: SmallInt): SmallInt;{$ifdef SYSTEMINLINE}inline;{$endif}
 function SwapEndian(const AValue: Word): Word; external;
 function SwapEndian(const AValue: LongInt): LongInt;