Optimize final bucketsort call
This commit is contained in:
parent
37f1afe452
commit
d0b8f2d978
@ -99,7 +99,7 @@ mov pm ir; incpc; call @JTABLE
|
|||||||
mov pm ir; incpc; call @JTABLE
|
mov pm ir; incpc; call @JTABLE
|
||||||
mov pm ir; incpc; call @JTABLE
|
mov pm ir; incpc; call @JTABLE
|
||||||
mov pm ir; incpc; call @JTABLE
|
mov pm ir; incpc; call @JTABLE
|
||||||
mov pm ir; incpc; call @JTABLE
|
mov pm ir; call @JTABLE_SPEC
|
||||||
|
|
||||||
|
|
||||||
//call @BREAK
|
//call @BREAK
|
||||||
@ -108,8 +108,6 @@ mov pm ir; incpc; call @JTABLE
|
|||||||
// Initialize state for merge
|
// Initialize state for merge
|
||||||
const BUCKET_SIZE
|
const BUCKET_SIZE
|
||||||
mov ar hr
|
mov ar hr
|
||||||
const LIST_START
|
|
||||||
mov ar pc
|
|
||||||
const HIGHEST_BUCKET
|
const HIGHEST_BUCKET
|
||||||
|
|
||||||
|
|
||||||
@ -149,6 +147,10 @@ halt
|
|||||||
$JTABLE
|
$JTABLE
|
||||||
mov pc hr; bop
|
mov pc hr; bop
|
||||||
|
|
||||||
|
$JTABLE_SPEC
|
||||||
|
const LIST_START
|
||||||
|
mov ar hr; bop
|
||||||
|
|
||||||
// IR OP-field jump table
|
// IR OP-field jump table
|
||||||
$OT_0
|
$OT_0
|
||||||
const 0x38
|
const 0x38
|
||||||
|
Loading…
x
Reference in New Issue
Block a user