Kaydet (Commit) fce604c8 authored tarafından Noel Grandin's avatar Noel Grandin

[API CHANGE] return unsigned 64-bit value from GetSystemTicks in basic code

instead of 32-bit value.

looks like this has been incorrect since

   commit 9f2104e1
   Author: Jens-Heiner Rechtien <hr@openoffice.org>
   Date:   Mon Jun 19 16:46:13 2006 +0000
   INTEGRATION: CWS warnings01 (1.23.26); FILE MERGED

but nobody cared, since the values would previously fit into a 32-bit
number.

Change-Id: I4c121085977b5e7ff3e33c8ad57749b925ad31b9
Reviewed-on: https://gerrit.libreoffice.org/32879Tested-by: 's avatarJenkins <ci@libreoffice.org>
Reviewed-by: 's avatarNoel Grandin <noel.grandin@collabora.co.uk>
üst 4df12fe5
...@@ -1415,7 +1415,7 @@ RTLFUNC(GetSystemTicks) ...@@ -1415,7 +1415,7 @@ RTLFUNC(GetSystemTicks)
StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT ); StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT );
return; return;
} }
rPar.Get(0)->PutLong( tools::Time::GetSystemTicks() ); rPar.Get(0)->PutUInt64( tools::Time::GetSystemTicks() );
} }
RTLFUNC(GetPathSeparator) RTLFUNC(GetPathSeparator)
......
...@@ -307,7 +307,7 @@ static Methods aMethods[] = { ...@@ -307,7 +307,7 @@ static Methods aMethods[] = {
{ "GetPathSeparator", SbxSTRING, FUNCTION_,RTLNAME(GetPathSeparator),0 }, { "GetPathSeparator", SbxSTRING, FUNCTION_,RTLNAME(GetPathSeparator),0 },
{ "GetProcessServiceManager", SbxOBJECT, 0 | FUNCTION_, RTLNAME(GetProcessServiceManager),0 }, { "GetProcessServiceManager", SbxOBJECT, 0 | FUNCTION_, RTLNAME(GetProcessServiceManager),0 },
{ "GetSolarVersion", SbxLONG, FUNCTION_,RTLNAME(GetSolarVersion),0 }, { "GetSolarVersion", SbxLONG, FUNCTION_,RTLNAME(GetSolarVersion),0 },
{ "GetSystemTicks", SbxLONG, FUNCTION_,RTLNAME(GetSystemTicks),0 }, { "GetSystemTicks", SbxSALUINT64,FUNCTION_,RTLNAME(GetSystemTicks),0 },
{ "GetSystemType", SbxINTEGER, FUNCTION_,RTLNAME(GetSystemType),0 }, { "GetSystemType", SbxINTEGER, FUNCTION_,RTLNAME(GetSystemType),0 },
{ "GlobalScope", SbxOBJECT, FUNCTION_,RTLNAME(GlobalScope),0 }, { "GlobalScope", SbxOBJECT, FUNCTION_,RTLNAME(GlobalScope),0 },
{ "Green", SbxINTEGER, 1 | FUNCTION_ | NORMONLY_, RTLNAME(Green),0 }, { "Green", SbxINTEGER, 1 | FUNCTION_ | NORMONLY_, RTLNAME(Green),0 },
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment