ref: 4be5b671982310f44410c71e58e88f2f2d8d2ef5
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
\
R8 I "n
R8 R3 #I7 +I #I8 /I :I
s R3 #I8 %I
v L10 #I0
L10
e
L11
R1 @I R2 #P2 :iP @I :I
v L13 #I7
L13
R1 @I R2 #P2 :iP @I :I
v L14 #I6
L14
R1 @I R2 #P2 :iP @I :I
v L15 #I5
L15
R1 @I R2 #P2 :iP @I :I
v L16 #I4
L16
R1 @I R2 #P2 :iP @I :I
v L17 #I3
L17
R1 @I R2 #P2 :iP @I :I
v L18 #I2
L18
R1 @I R2 #P2 :iP @I :I
v L19 #I1
L19
R1 @I R2 #P2 :iP @I :I
y L11 R8 #I1 :-I #I0 >I
b
L12
t L9
L9
}
*/
/* 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);
}
}