xref: /csrg-svn/usr.bin/pascal/src/yycopy.c (revision 782)
1*782Speter /* Copyright (c) 1979 Regents of the University of California */
2*782Speter 
3*782Speter static	char sccsid[] = "@(#)yycopy.c 1.1 08/27/80";
4*782Speter 
5*782Speter #include	"0.h"
6*782Speter #include	"yy.h"
7*782Speter 
8*782Speter OYcopy ()
9*782Speter     {
10*782Speter 	register int	*r0 = & OY;
11*782Speter 	register int	*r1 = & Y;
12*782Speter 	register int	r2 = ( sizeof ( struct yytok ) ) / ( sizeof ( int ) );
13*782Speter 
14*782Speter 	do
15*782Speter 	    {
16*782Speter 		* r0 ++ = * r1 ++ ;
17*782Speter 	    }
18*782Speter 	    while ( -- r2 > 0 );
19*782Speter     }
20