xref: /original-bsd/usr.bin/pascal/src/yycopy.c (revision 40192f2d)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 #ifndef lint
4 static	char sccsid[] = "@(#)yycopy.c 2.1 02/08/84";
5 #endif
6 
7 #include	"whoami.h"
8 #include	"0.h"
9 #include 	"tree_ty.h"		/* must be included for yy.h */
10 #include	"yy.h"
11 
12 OYcopy ()
13     {
14 	register int	*r0 = ((int *) & OY);
15 	register int	*r1 = ((int *) & Y);
16 	register int	r2 = ( sizeof ( struct yytok ) ) / ( sizeof ( int ) );
17 
18 	do
19 	    {
20 		* r0 ++ = * r1 ++ ;
21 	    }
22 	    while ( -- r2 > 0 );
23     }
24