diff options
Diffstat (limited to 'libraries/gnatcoll-core/compiler-error.patch')
| -rw-r--r-- | libraries/gnatcoll-core/compiler-error.patch | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/libraries/gnatcoll-core/compiler-error.patch b/libraries/gnatcoll-core/compiler-error.patch new file mode 100644 index 0000000000..8930ce7585 --- /dev/null +++ b/libraries/gnatcoll-core/compiler-error.patch @@ -0,0 +1,28 @@ +commit 4a037b06e349a3ec0c6ad5e1dcf0814c4b44e6de +Author: Zhu Qun-Ying <zhu.qunying@gmail.com> +Date: Thu Dec 5 21:09:56 2024 -0800 + + fix compile error + +diff --git a/core/src/gnatcoll-json.adb b/core/src/gnatcoll-json.adb +index 64b4217c..e4753312 100644 +--- a/core/src/gnatcoll-json.adb ++++ b/core/src/gnatcoll-json.adb +@@ -666,7 +666,7 @@ package body GNATCOLL.JSON is + + Deallocate (Current_Key); + Free (Read_States); +- return (Success => True, Value => Result); ++ return R_Result : constant Read_Result := (Success => True, Value => Result); + exception + when E : Invalid_JSON_Stream => + Free (Read_States); +@@ -675,7 +675,7 @@ package body GNATCOLL.JSON is + begin + Data.Current_Text_Position (Line, Column); + +- return (Success => False, ++ return R_Result : constant Read_Result:= (Success => False, + Error => (Line, Column, + To_Unbounded_String + (Ada.Exceptions.Exception_Message (E)))); |