xref: /csrg-svn/usr.bin/pascal/src/yycopy.c (revision 14747)
1782Speter /* Copyright (c) 1979 Regents of the University of California */
2782Speter 
3*14747Sthien #ifndef lint
4*14747Sthien static	char sccsid[] = "@(#)yycopy.c 1.3 08/19/83";
5*14747Sthien #endif
6782Speter 
712393Speter #include	"whoami.h"
8782Speter #include	"0.h"
9*14747Sthien #include 	"tree_ty.h"		/* must be included for yy.h */
10782Speter #include	"yy.h"
11782Speter 
12782Speter OYcopy ()
13782Speter     {
14*14747Sthien 	register int	*r0 = ((int *) & OY);
15*14747Sthien 	register int	*r1 = ((int *) & Y);
16782Speter 	register int	r2 = ( sizeof ( struct yytok ) ) / ( sizeof ( int ) );
17782Speter 
18782Speter 	do
19782Speter 	    {
20782Speter 		* r0 ++ = * r1 ++ ;
21782Speter 	    }
22782Speter 	    while ( -- r2 > 0 );
23782Speter     }
24