diff --git a/ChangeLog.adoc b/ChangeLog.adoc index 7341e03b3..03cb9273e 100644 --- a/ChangeLog.adoc +++ b/ChangeLog.adoc @@ -14,6 +14,7 @@ [[v4.3.1_fixed]] === Fixed +* tcl: fix return value for hdata_longlong (issue #2119) * tests: fix relay tests on s390x * tests: fix check of php plugin * tests: fix compilation of tests on Fedora 40 and Rocky 9.4 diff --git a/src/plugins/tcl/weechat-tcl-api.c b/src/plugins/tcl/weechat-tcl-api.c index 487ad5d97..6bef61433 100644 --- a/src/plugins/tcl/weechat-tcl-api.c +++ b/src/plugins/tcl/weechat-tcl-api.c @@ -125,6 +125,11 @@ Tcl_SetObjResult (interp, Tcl_NewLongObj (__long)); \ return TCL_OK; \ } +#define API_RETURN_LONGLONG(__longlong) \ + { \ + Tcl_SetObjResult (interp, Tcl_NewWideIntObj (__longlong)); \ + return TCL_OK; \ + } #define API_RETURN_OBJ(__obj) \ { \ Tcl_SetObjResult (interp, __obj); \ @@ -5368,7 +5373,7 @@ API_FUNC(hdata_longlong) API_STR2PTR(pointer), name); - API_RETURN_LONG(result); + API_RETURN_LONGLONG(result); } API_FUNC(hdata_string)