TempleOSCDV4.11.ISO

This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:47:50 +02:00
1 parent 9206246147
commit 93ca216483
662 files changed
+6431 -7369

No files matched your search

@@ -1,4 +1,4 @@
//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.CPP"$.
//Uses $LK,"fixed-point",A="FI:::/Demo/Lectures/FixedPoint.HC"$.
@@ -14,7 +14,7 @@
$SP,"<1>",BI=1,BP="::/Demo/Graphics/Mountain.CPP.Z,Mountain"$ //Pointer to sprite in $LK,"Mountain.CPP",A="FI:::/Demo/Graphics/Mountain.CPP"$ file
$SP,"<1>",BI=1,BP="::/Demo/Graphics/Mountain.HC.Z,Mountain"$ //Pointer to sprite in $LK,"Mountain.HC",A="FI:::/Demo/Graphics/Mountain.HC"$ file
#define NUM_CLOUDS 16
#define SKY_LINES 30
File renamed without changes.
@@ -14,7 +14,7 @@ U0 Job1(I64)
U0 Job2(I64)
{//Log a file
while (!app_done) {
AdamLog("%F","::/Demo/MultiCore/LoadTest.CPP");
AdamLog("%F","::/Demo/MultiCore/LoadTest.HC");
Yield;
}
lock {app_done_ack--;}
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
File renamed without changes.
-46
View File
@@ -1,46 +0,0 @@
Bool mp_start,mp_end;
I64 mp_not_done_flags,
**glbl_cnts;
U0 MPRateCores(I64 )
{
I64 i=0;
while (!mp_start)
Yield;
while (!mp_end) {
i++;
Yield;
}
glbl_cnts[Gs->num]=i;
LBtr(&mp_not_done_flags,Gs->num);
}
U0 RateCores()
{
I64 i;
F64 t0,tf;
glbl_cnts=CAlloc(sizeof(I64)*mp_cnt);
mp_start=mp_end=FALSE;
mp_not_done_flags=1<<mp_cnt-1;
for (i=0;i<mp_cnt;i++)
Spawn(&MPRateCores,,NULL,i);
t0=tS;
mp_start=TRUE;
Sleep(2000);
mp_end=TRUE;
while (mp_not_done_flags)
Yield;
tf=tS;
"\n Context\n"
"Core Swaps/s\n"
"---- --------------\n";
for (i=0;i<mp_cnt;i++)
"%4d %14.2,f\n",i,glbl_cnts[i]/(tf-t0);
"---- --------------\n\n";
Free(glbl_cnts);
}
RateCores;