paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix missing aarch64 CPU in ShowHistory for one test

Browse Source 
git-svn-id: trunk@32096 -
This commit is contained in:
pierre 2015-10-19 14:47:50 +00:00
parent 325a79b81b
commit 854d04bb46
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/utils/testsuite/utests.pp
View File

@ -1982,7 +1982,7 @@ begin
end end
else else
begin begin
cpu_last:=StrToInt(GetSingleton('SELECT COUNT(*) FROM TESTCPU')); cpu_last:=StrToInt(GetSingleton('SELECT MAX(TC_ID) FROM TESTCPU'));
cpu_size:=Sizeof(StatusLongintArray)*(1+cpu_last); cpu_size:=Sizeof(StatusLongintArray)*(1+cpu_last);
cpu_count:=GetMem(cpu_size); cpu_count:=GetMem(cpu_size);
FillChar(cpu_count^,cpu_size,#0); FillChar(cpu_count^,cpu_size,#0);
@ -2002,7 +2002,7 @@ begin
end end
else else
begin begin
version_last:=StrToInt(GetSingleton('SELECT COUNT(*) FROM TESTVERSION')); version_last:=StrToInt(GetSingleton('SELECT MAX(TV_ID) FROM TESTVERSION'));
version_size:=Sizeof(StatusLongintArray)*(1+version_last); version_size:=Sizeof(StatusLongintArray)*(1+version_last);
version_count:=GetMem(version_size); version_count:=GetMem(version_size);
FillChar(version_count^,version_size,#0); FillChar(version_count^,version_size,#0);
@ -2024,7 +2024,7 @@ begin
end end
else else
begin begin
os_last:=StrToInt(GetSingleton('SELECT COUNT(*) FROM TESTOS')); os_last:=StrToInt(GetSingleton('SELECT MAX(TO_ID) FROM TESTOS'));
os_size:=Sizeof(StatusLongintArray)*(1+os_last); os_size:=Sizeof(StatusLongintArray)*(1+os_last);
os_count:=GetMem(os_size); os_count:=GetMem(os_size);
FillChar(os_count^,os_size,#0); FillChar(os_count^,os_size,#0);