33 * procedural language
44 *
55 * IDENTIFICATION
6- * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/pl_comp.c,v 1.3 1998/09/01 04:40:20 momjian Exp $
6+ * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/pl_comp.c,v 1.4 1998/11/27 20:07:22 vadim Exp $
77 *
88 * This software is copyrighted by Jan Wieck - Hamburg.
99 *
@@ -620,7 +620,7 @@ plpgsql_parse_word(char *word)
620620typ = (PLpgSQL_type * )malloc (sizeof (PLpgSQL_type ));
621621
622622typ -> typname = strdup (nameout (& (typeStruct -> typname )));
623- typ -> typoid = typeTup -> t_oid ;
623+ typ -> typoid = typeTup -> t_data -> t_oid ;
624624fmgr_info (typeStruct -> typinput ,& (typ -> typinput ));
625625typ -> typbyval = typeStruct -> typbyval ;
626626typ -> atttypmod = -1 ;
@@ -943,7 +943,7 @@ plpgsql_parse_wordtype(char *word)
943943typ = (PLpgSQL_type * )malloc (sizeof (PLpgSQL_type ));
944944
945945typ -> typname = strdup (nameout (& (typeStruct -> typname )));
946- typ -> typoid = typeTup -> t_oid ;
946+ typ -> typoid = typeTup -> t_data -> t_oid ;
947947fmgr_info (typeStruct -> typinput ,& (typ -> typinput ));
948948typ -> typbyval = typeStruct -> typbyval ;
949949typ -> atttypmod = -1 ;
@@ -1060,7 +1060,7 @@ plpgsql_parse_dblwordtype(char *string)
10601060 * ----------
10611061 */
10621062attrtup = SearchSysCacheTuple (ATTNAME ,
1063- ObjectIdGetDatum (classtup -> t_oid ),
1063+ ObjectIdGetDatum (classtup -> t_data -> t_oid ),
10641064PointerGetDatum (word2 ),0 ,0 );
10651065if (!HeapTupleIsValid (attrtup ))
10661066{
@@ -1087,7 +1087,7 @@ plpgsql_parse_dblwordtype(char *string)
10871087typ = (PLpgSQL_type * )malloc (sizeof (PLpgSQL_type ));
10881088
10891089typ -> typname = strdup (nameout (& (typeStruct -> typname )));
1090- typ -> typoid = typetup -> t_oid ;
1090+ typ -> typoid = typetup -> t_data -> t_oid ;
10911091fmgr_info (typeStruct -> typinput ,& (typ -> typinput ));
10921092typ -> typbyval = typeStruct -> typbyval ;
10931093typ -> atttypmod = attrStruct -> atttypmod ;
@@ -1163,7 +1163,7 @@ plpgsql_parse_wordrowtype(char *string)
11631163
11641164row -> dtype = PLPGSQL_DTYPE_ROW ;
11651165row -> nfields = classStruct -> relnatts ;
1166- row -> rowtypeclass = typetup -> t_oid ;
1166+ row -> rowtypeclass = typetup -> t_data -> t_oid ;
11671167row -> fieldnames = malloc (sizeof (char * )* row -> nfields );
11681168row -> varnos = malloc (sizeof (int )* row -> nfields );
11691169
@@ -1174,7 +1174,7 @@ plpgsql_parse_wordrowtype(char *string)
11741174 * ----------
11751175 */
11761176attrtup = SearchSysCacheTuple (ATTNUM ,
1177- ObjectIdGetDatum (classtup -> t_oid ),
1177+ ObjectIdGetDatum (classtup -> t_data -> t_oid ),
11781178 (Datum ) (i + 1 ),0 ,0 );
11791179if (!HeapTupleIsValid (attrtup ))
11801180{
@@ -1215,7 +1215,7 @@ plpgsql_parse_wordrowtype(char *string)
12151215strcat (var -> refname ,cp );
12161216var -> datatype = malloc (sizeof (PLpgSQL_type ));
12171217var -> datatype -> typname = strdup (nameout (& (typeStruct -> typname )));
1218- var -> datatype -> typoid = typetup -> t_oid ;
1218+ var -> datatype -> typoid = typetup -> t_data -> t_oid ;
12191219fmgr_info (typeStruct -> typinput ,& (var -> datatype -> typinput ));
12201220var -> datatype -> typbyval = typeStruct -> typbyval ;
12211221var -> datatype -> atttypmod = attrStruct -> atttypmod ;