ref: d9f166d27405597b2267a203d0e9ae660a963334
dir: /cc1/tests/test036.c/
/* See LICENSE file for copyright and license details. */
/*
name: TEST036
description: Duff's device
error:
test036.c:59: warning: type defaults to 'int' in declaration
output:
G5 I F "send
{
R1 P "to
R2 P "from
R3 I "count
\
R7 I "n
R7 R3 #I7 +I #I8 /I :I
s R3 #I8 %I
v L9 #I0
L9
e
L10
R1 @I R2 #P2 :iP @I :I
v L12 #I7
L12
R1 @I R2 #P2 :iP @I :I
v L13 #I6
L13
R1 @I R2 #P2 :iP @I :I
v L14 #I5
L14
R1 @I R2 #P2 :iP @I :I
v L15 #I4
L15
R1 @I R2 #P2 :iP @I :I
v L16 #I3
L16
R1 @I R2 #P2 :iP @I :I
v L17 #I2
L17
R1 @I R2 #P2 :iP @I :I
v L18 #I1
L18
R1 @I R2 #P2 :iP @I :I
y L10 R7 #I1 :-I #I0 >I
b
L11
t L8
L8
}
*/
/* Disgusting, no? But it compiles and runs just fine. I feel a combination of
pride and revulsion at this discovery. If no one's thought of it before,
I think I'll name it after myself.
It amazes me that after 10 years of writing C there are still
little corners that I haven't explored fully.
- Tom Duff */
send(to, from, count)
register short *to, *from;
register count;
{
register n=(count+7)/8;
switch(count%8){
case 0: do{*to = *from++;
case 7: *to = *from++;
case 6: *to = *from++;
case 5: *to = *from++;
case 4: *to = *from++;
case 3: *to = *from++;
case 2: *to = *from++;
case 1: *to = *from++;
}while(--n>0);
}
}