Portál AbcLinuxu, 3. prosince 2025 19:08
Snaha sa ceni. Nevidim dovod clanok odsudit a uz vobec nie ako blogovy zapis - keby vsetky boli taketo
kqemu nebo qvm86? Mně jde pěkně zkompilovat, zavést, chyby to nehlásí, ale žádného zrychlení jsem si nevšiml...
Tak co znamena toto: Could not open '/dev/kqemu' - QEMU acceleration layer not activated u standardnich binarek pokud neni pouzit kqemu?
BTW: Meril jsem rychlost bootu olive: bez modulu asi 1:40 a s modulem asi 1:05 min. Je dost mozny ze to zavisi na halde dalsich faktoru.
uses Dos;
var Old08: Procedure;
const CLK_TCK: LongInt = 0;
procedure New08; interrupt;
begin
inline($9C); Old08;
Inc(CLK_TCK);
end;
procedure StartupTimer;
begin
GetIntVec($08, @Old08);
SetIntVec($08, @New08);
CLK_TCK := 0;
end;
procedure ShutdownTimer;
begin
SetIntVec($08, @Old08);
end;
procedure CPUDelay; assembler;
asm
mov cx,0ffffh
@1: loop @1
end;
{ Returns CPU speed in delays/sec }
function CPUSpeed: LongInt;
var
L: LongInt;
Duration: LongInt;
Multiplier: LongInt;
begin
StartupTimer;
Duration := 0;
Multiplier := 16;
Duration := CLK_TCK;
for L := 0 to Multiplier * 256 do
CPUDelay;
Duration := CLK_TCK - Duration;
CPUSpeed := Round(Multiplier * 256.0 * 55.0 / Duration);
ShutdownTimer;
end;
function ToMHz(Speed: LongInt): LongInt;
begin
ToMHz := Round(Speed * 400.0 / 3265);
end;
var Speed: LongInt;
begin
Speed := CPUSpeed;
WriteLn('Your CPU speed is: ', Speed, ' delays/sec');
WriteLn('That is equal to ', ToMHz(Speed), ' MHz Pentium II (Deschutes)');
end.
S modulem kqemu i bez něj mi to ukázalo přibližně 60 MHz.
Dále jsem zkoušel výpis adresářů celého disku, ten trval v obou případech stejně dlouho. A nakonec jsem zkoušel pakovat nějaká data starým DOSovým RARem, v obou případech to trvalo rovněž stejně dlouho.
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.