version 1.1.1.2, 2000/01/22 14:15:57 |
version 1.1.1.3, 2003/09/15 07:09:24 |
|
|
} |
} |
|
|
*udv_ptr = (struct udvt_entry *) |
*udv_ptr = (struct udvt_entry *) |
gp_alloc((unsigned long) sizeof(struct udvt_entry), "value"); |
gp_alloc(sizeof(struct udvt_entry), "value"); |
(*udv_ptr)->next_udv = NULL; |
(*udv_ptr)->next_udv = NULL; |
copy_str((*udv_ptr)->udv_name, t_num, MAX_ID_LEN); |
copy_str((*udv_ptr)->udv_name, t_num, MAX_ID_LEN); |
(*udv_ptr)->udv_value.type = INTGR; /* not necessary, but safe! */ |
(*udv_ptr)->udv_value.type = INTGR; /* not necessary, but safe! */ |
Line 85 int t_num; /* index to token[] */ |
|
Line 85 int t_num; /* index to token[] */ |
|
/* create and return a new udf slot */ |
/* create and return a new udf slot */ |
|
|
*udf_ptr = (struct udft_entry *) |
*udf_ptr = (struct udft_entry *) |
gp_alloc((unsigned long) sizeof(struct udft_entry), "function"); |
gp_alloc(sizeof(struct udft_entry), "function"); |
(*udf_ptr)->next_udf = (struct udft_entry *) NULL; |
(*udf_ptr)->next_udf = (struct udft_entry *) NULL; |
(*udf_ptr)->definition = NULL; |
(*udf_ptr)->definition = NULL; |
(*udf_ptr)->at = NULL; |
(*udf_ptr)->at = NULL; |