xref: /csrg-svn/usr.bin/pascal/src/yycopy.c (revision 48116)
1*48116Sbostic /*-
2*48116Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*48116Sbostic  * All rights reserved.
4*48116Sbostic  *
5*48116Sbostic  * %sccs.include.redist.c%
622202Sdist  */
7782Speter 
814747Sthien #ifndef lint
9*48116Sbostic static char sccsid[] = "@(#)yycopy.c	5.2 (Berkeley) 04/16/91";
10*48116Sbostic #endif /* not lint */
11782Speter 
1212393Speter #include	"whoami.h"
13782Speter #include	"0.h"
1414747Sthien #include 	"tree_ty.h"		/* must be included for yy.h */
15782Speter #include	"yy.h"
16782Speter 
17782Speter OYcopy ()
18782Speter     {
1914747Sthien 	register int	*r0 = ((int *) & OY);
2014747Sthien 	register int	*r1 = ((int *) & Y);
21782Speter 	register int	r2 = ( sizeof ( struct yytok ) ) / ( sizeof ( int ) );
22782Speter 
23782Speter 	do
24782Speter 	    {
25782Speter 		* r0 ++ = * r1 ++ ;
26782Speter 	    }
27782Speter 	    while ( -- r2 > 0 );
28782Speter     }
29