1b85afe43Sbostic /*-
2*6f1b0ce5Sbostic * Copyright (c) 1980, 1993
3*6f1b0ce5Sbostic * The Regents of the University of California. All rights reserved.
4b85afe43Sbostic *
5b85afe43Sbostic * %sccs.include.redist.c%
654f59762Sdist */
769708d52Speter
8636b5fceSthien #ifndef lint
9*6f1b0ce5Sbostic static char sccsid[] = "@(#)flvalue.c 8.1 (Berkeley) 06/06/93";
10b85afe43Sbostic #endif /* not lint */
1169708d52Speter
1269708d52Speter #include "whoami.h"
1369708d52Speter #include "0.h"
1469708d52Speter #include "tree.h"
1569708d52Speter #include "opcode.h"
1669708d52Speter #include "objfmt.h"
17636b5fceSthien #include "tree_ty.h"
1869708d52Speter #ifdef PC
1969708d52Speter # include "pc.h"
20409775baSralph # include <pcc.h>
2169708d52Speter #endif PC
22b6b901a4Speter #include "tmps.h"
2369708d52Speter
2469708d52Speter /*
2569708d52Speter * flvalue generates the code to either pass on a formal routine,
2669708d52Speter * or construct the structure which is the environment for passing.
2769708d52Speter * it tells the difference by looking at the tree it's given.
2869708d52Speter */
2969708d52Speter struct nl *
flvalue(r,formalp)30ee85933dSpeter flvalue( r , formalp )
31636b5fceSthien struct tnode *r; /* T_VAR */
32ee85933dSpeter struct nl *formalp;
3369708d52Speter {
3469708d52Speter struct nl *p;
35dc88c1caSpeter struct nl *tempnlp;
36ee85933dSpeter char *typename;
37d47c398fSpeter #ifdef PC
38d47c398fSpeter char extname[ BUFSIZ ];
39d47c398fSpeter #endif PC
4069708d52Speter
41636b5fceSthien if ( r == TR_NIL ) {
42636b5fceSthien return NLNIL;
4369708d52Speter }
44ee85933dSpeter typename = formalp -> class == FFUNC ? "function":"procedure";
45636b5fceSthien if ( r->tag != T_VAR ) {
46ee85933dSpeter error("Expression given, %s required for %s parameter %s" ,
47ee85933dSpeter typename , typename , formalp -> symbol );
48636b5fceSthien return NLNIL;
49ee85933dSpeter }
50636b5fceSthien p = lookup(r->var_node.cptr);
51636b5fceSthien if (p == NLNIL) {
52636b5fceSthien return NLNIL;
5369708d52Speter }
54ee85933dSpeter switch ( p -> class ) {
55ee85933dSpeter case FFUNC:
56ee85933dSpeter case FPROC:
57636b5fceSthien if ( r->var_node.qual != TR_NIL ) {
58ee85933dSpeter error("Formal %s %s cannot be qualified" ,
59ee85933dSpeter typename , p -> symbol );
60636b5fceSthien return NLNIL;
6169708d52Speter }
6269708d52Speter # ifdef OBJ
63636b5fceSthien (void) put(2, PTR_RV | bn << 8+INDX, (int)p->value[NL_OFFS]);
6469708d52Speter # endif OBJ
6569708d52Speter # ifdef PC
6669708d52Speter putRV( p -> symbol , bn , p -> value[ NL_OFFS ] ,
67dc88c1caSpeter p -> extra_flags ,
6869708d52Speter p2type( p ) );
6969708d52Speter # endif PC
702458b484Smckusic return p;
71ee85933dSpeter case FUNC:
72ee85933dSpeter case PROC:
73636b5fceSthien if ( r->var_node.qual != TR_NIL ) {
74ee85933dSpeter error("%s %s cannot be qualified" , typename ,
75ee85933dSpeter p -> symbol );
76636b5fceSthien return NLNIL;
7769708d52Speter }
78ee85933dSpeter if (bn == 0) {
79ee85933dSpeter error("Built-in %s %s cannot be passed as a parameter" ,
80ee85933dSpeter typename , p -> symbol );
81636b5fceSthien return NLNIL;
8269708d52Speter }
8369708d52Speter /*
84fc393810Speter * allocate space for the thunk
8569708d52Speter */
86636b5fceSthien tempnlp = tmpalloc((long) (sizeof(struct formalrtn)), NLNIL, NOREG);
8769708d52Speter # ifdef OBJ
88636b5fceSthien (void) put(2 , O_LV | cbn << 8 + INDX ,
89dc88c1caSpeter (int)tempnlp -> value[ NL_OFFS ] );
90636b5fceSthien (void) put(2, O_FSAV | bn << 8, (long)p->value[NL_ENTLOC]);
9169708d52Speter # endif OBJ
9269708d52Speter # ifdef PC
93409775baSralph putleaf( PCC_ICON , 0 , 0 ,
94409775baSralph PCCM_ADDTYPE( PCCTM_PTR , PCCM_ADDTYPE( PCCTM_FTN , PCCTM_PTR|PCCT_STRTY ) ) ,
9569708d52Speter "_FSAV" );
96fc393810Speter sprintf( extname , "%s" , FORMALPREFIX );
97fc393810Speter sextname( &extname[ strlen( extname ) ] ,
98fc393810Speter p -> symbol , bn );
99409775baSralph putleaf( PCC_ICON , 0 , 0 , p2type( p ) , extname );
100409775baSralph putleaf( PCC_ICON , bn , 0 , PCCT_INT , (char *) 0 );
101409775baSralph putop( PCC_CM , PCCT_INT );
102636b5fceSthien putLV( (char *) 0 , cbn , tempnlp -> value[NL_OFFS] ,
103409775baSralph tempnlp -> extra_flags , PCCT_STRTY );
104409775baSralph putop( PCC_CM , PCCT_INT );
105409775baSralph putop( PCC_CALL , PCCTM_PTR | PCCT_STRTY );
10669708d52Speter # endif PC
1072458b484Smckusic return p;
10869708d52Speter default:
109ee85933dSpeter error("Variable given, %s required for %s parameter %s" ,
110ee85933dSpeter typename , typename , formalp -> symbol );
111636b5fceSthien return NLNIL;
11269708d52Speter }
11369708d52Speter }
114