mirror/sointu
1
0
Fork 0
mirror of https://github.com/vsariola/sointu.git synced 2025-06-03 09:08:18 -04:00
Code Issues Packages Projects Releases Wiki Activity

Limit compressor stack use.

Browse Source
This commit is contained in:
Veikko Sariola 2020-05-25 20:37:34 +03:00
parent 1eb6974d5d
commit 1f92373a63
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/opcodes/effects.asm
View File

@ -461,11 +461,11 @@ su_op_compressor_mono:
fld dword [WRK+su_compres_wrk.level] ; l x^2 x fld dword [WRK+su_compres_wrk.level] ; l x^2 x
fucomi st0, st1 fucomi st0, st1
setnb al ; if (st0 >= st1) al = 1; else al = 0; setnb al ; if (st0 >= st1) al = 1; else al = 0;
fsub st1, st0 ; l x^2-l x fsubp st1, st0 ; x^2-l x
call su_env_map ; c l x^2-l x, c is either attack or release parameter mapped in a nonlinear way call su_env_map ; c x^2-l x, c is either attack or release parameter mapped in a nonlinear way
fmulp st2, st0 ; l c*(x^2-l) x fmulp st1, st0 ; c*(x^2-l) x
faddp st1, st0 ; l+c*(x^2-l) x fadd dword [WRK+su_compres_wrk.level] ; l+c*(x^2-l) x // we could've kept level in the stack and save a few bytes, but su_env_map uses 3 stack (c + 2 temp), so the stack was getting quite big.
fst dword [WRK+su_compres_wrk.level] ; l'=l+c*(x^2-l), l' x fst dword [WRK+su_compres_wrk.level] ; l'=l+c*(x^2-l), l' x
fld dword [INP+su_compres_ports.threshold] ; t l' x fld dword [INP+su_compres_ports.threshold] ; t l' x
fmul st0, st0 ; t*t l' x fmul st0, st0 ; t*t l' x
fxch ; l' t*t x fxch ; l' t*t x