xref: /original-bsd/usr.bin/pascal/src/yycopy.c (revision ec7df300)
1 /*
2  * Copyright (c) 1980 Regents of the University of California.
3  * All rights reserved.  The Berkeley software License Agreement
4  * specifies the terms and conditions for redistribution.
5  */
6 
7 #ifndef lint
8 static char sccsid[] = "@(#)yycopy.c	5.1 (Berkeley) 06/05/85";
9 #endif not lint
10 
11 #include	"whoami.h"
12 #include	"0.h"
13 #include 	"tree_ty.h"		/* must be included for yy.h */
14 #include	"yy.h"
15 
16 OYcopy ()
17     {
18 	register int	*r0 = ((int *) & OY);
19 	register int	*r1 = ((int *) & Y);
20 	register int	r2 = ( sizeof ( struct yytok ) ) / ( sizeof ( int ) );
21 
22 	do
23 	    {
24 		* r0 ++ = * r1 ++ ;
25 	    }
26 	    while ( -- r2 > 0 );
27     }
28