1 /*-
2 * Copyright (c) 1980, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * %sccs.include.redist.c%
6 */
7
8 #ifndef lint
9 static char sccsid[] = "@(#)flvalue.c 8.1 (Berkeley) 06/06/93";
10 #endif /* not lint */
11
12 #include "whoami.h"
13 #include "0.h"
14 #include "tree.h"
15 #include "opcode.h"
16 #include "objfmt.h"
17 #include "tree_ty.h"
18 #ifdef PC
19 # include "pc.h"
20 # include <pcc.h>
21 #endif PC
22 #include "tmps.h"
23
24 /*
25 * flvalue generates the code to either pass on a formal routine,
26 * or construct the structure which is the environment for passing.
27 * it tells the difference by looking at the tree it's given.
28 */
29 struct nl *
flvalue(r,formalp)30 flvalue( r , formalp )
31 struct tnode *r; /* T_VAR */
32 struct nl *formalp;
33 {
34 struct nl *p;
35 struct nl *tempnlp;
36 char *typename;
37 #ifdef PC
38 char extname[ BUFSIZ ];
39 #endif PC
40
41 if ( r == TR_NIL ) {
42 return NLNIL;
43 }
44 typename = formalp -> class == FFUNC ? "function":"procedure";
45 if ( r->tag != T_VAR ) {
46 error("Expression given, %s required for %s parameter %s" ,
47 typename , typename , formalp -> symbol );
48 return NLNIL;
49 }
50 p = lookup(r->var_node.cptr);
51 if (p == NLNIL) {
52 return NLNIL;
53 }
54 switch ( p -> class ) {
55 case FFUNC:
56 case FPROC:
57 if ( r->var_node.qual != TR_NIL ) {
58 error("Formal %s %s cannot be qualified" ,
59 typename , p -> symbol );
60 return NLNIL;
61 }
62 # ifdef OBJ
63 (void) put(2, PTR_RV | bn << 8+INDX, (int)p->value[NL_OFFS]);
64 # endif OBJ
65 # ifdef PC
66 putRV( p -> symbol , bn , p -> value[ NL_OFFS ] ,
67 p -> extra_flags ,
68 p2type( p ) );
69 # endif PC
70 return p;
71 case FUNC:
72 case PROC:
73 if ( r->var_node.qual != TR_NIL ) {
74 error("%s %s cannot be qualified" , typename ,
75 p -> symbol );
76 return NLNIL;
77 }
78 if (bn == 0) {
79 error("Built-in %s %s cannot be passed as a parameter" ,
80 typename , p -> symbol );
81 return NLNIL;
82 }
83 /*
84 * allocate space for the thunk
85 */
86 tempnlp = tmpalloc((long) (sizeof(struct formalrtn)), NLNIL, NOREG);
87 # ifdef OBJ
88 (void) put(2 , O_LV | cbn << 8 + INDX ,
89 (int)tempnlp -> value[ NL_OFFS ] );
90 (void) put(2, O_FSAV | bn << 8, (long)p->value[NL_ENTLOC]);
91 # endif OBJ
92 # ifdef PC
93 putleaf( PCC_ICON , 0 , 0 ,
94 PCCM_ADDTYPE( PCCTM_PTR , PCCM_ADDTYPE( PCCTM_FTN , PCCTM_PTR|PCCT_STRTY ) ) ,
95 "_FSAV" );
96 sprintf( extname , "%s" , FORMALPREFIX );
97 sextname( &extname[ strlen( extname ) ] ,
98 p -> symbol , bn );
99 putleaf( PCC_ICON , 0 , 0 , p2type( p ) , extname );
100 putleaf( PCC_ICON , bn , 0 , PCCT_INT , (char *) 0 );
101 putop( PCC_CM , PCCT_INT );
102 putLV( (char *) 0 , cbn , tempnlp -> value[NL_OFFS] ,
103 tempnlp -> extra_flags , PCCT_STRTY );
104 putop( PCC_CM , PCCT_INT );
105 putop( PCC_CALL , PCCTM_PTR | PCCT_STRTY );
106 # endif PC
107 return p;
108 default:
109 error("Variable given, %s required for %s parameter %s" ,
110 typename , typename , formalp -> symbol );
111 return NLNIL;
112 }
113 }
114