From 71faa5304fd84d94c80a909043f3f646fb2827fa Mon Sep 17 00:00:00 2001 From: Philip Nelson Date: Mon, 4 Mar 2019 20:19:27 -0700 Subject: [PATCH 1/2] really requires good register allocation --- .../cpsl/examples/simple_expressions/long_expression.cpsl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/shared/cpsl/examples/simple_expressions/long_expression.cpsl b/shared/cpsl/examples/simple_expressions/long_expression.cpsl index dcd2970..54de6a0 100644 --- a/shared/cpsl/examples/simple_expressions/long_expression.cpsl +++ b/shared/cpsl/examples/simple_expressions/long_expression.cpsl @@ -1,5 +1,5 @@ var - a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p : integer; + a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r : integer; x,y,z:integer; begin @@ -19,9 +19,11 @@ begin n:=14; o:=15; p:=16; + q:=17; + r:=18; x:=(((a+b)*(c+d))-((e+f)*(g+h)))/(((i+j)*(k+l))-((m+n)*(o+p))); -y:=(a+(b+(c+(d+(e+(f+(g+(h+(i+(j+(k+(l+(m+(n+(o+(p)))))))))))))))); +y:=(a+(b+(c+(d+(e+(f+(g+(h+(i+(j+(k+(l+(m+(n+(o+(p+(q+(r)))))))))))))))))); z:=(a)/(b) +(a*a)/(b*b) +(a*a*a)/(b*b*b) From 2db4e39df7cada18551bc914c31835cdebfd9342 Mon Sep 17 00:00:00 2001 From: Philip Nelson Date: Tue, 5 Mar 2019 14:48:37 -0700 Subject: [PATCH 2/2] just a bit longer --- shared/cpsl/examples/simple_expressions/long_expression.cpsl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/shared/cpsl/examples/simple_expressions/long_expression.cpsl b/shared/cpsl/examples/simple_expressions/long_expression.cpsl index 54de6a0..f78cb17 100644 --- a/shared/cpsl/examples/simple_expressions/long_expression.cpsl +++ b/shared/cpsl/examples/simple_expressions/long_expression.cpsl @@ -1,5 +1,5 @@ var - a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r : integer; + a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s : integer; x,y,z:integer; begin @@ -21,9 +21,10 @@ begin p:=16; q:=17; r:=18; + s:=19; x:=(((a+b)*(c+d))-((e+f)*(g+h)))/(((i+j)*(k+l))-((m+n)*(o+p))); -y:=(a+(b+(c+(d+(e+(f+(g+(h+(i+(j+(k+(l+(m+(n+(o+(p+(q+(r)))))))))))))))))); +y:=(a+(b+(c+(d+(e+(f+(g+(h+(i+(j+(k+(l+(m+(n+(o+(p+(q+(r+(s))))))))))))))))))); z:=(a)/(b) +(a*a)/(b*b) +(a*a*a)/(b*b*b)