|
21 | 21 | * |
22 | 22 | * |
23 | 23 | * IDENTIFICATION |
24 | | - * $Header: /cvsroot/pgsql/src/bin/pg_dump/pg_dump.c,v 1.44 1997/09/08 21:49:57 momjian Exp $ |
| 24 | + * $Header: /cvsroot/pgsql/src/bin/pg_dump/pg_dump.c,v 1.45 1997/09/23 21:44:07 momjian Exp $ |
25 | 25 | * |
26 | 26 | * Modifications - 6/10/96 - dave@bensoft.com - version 1.13.dhb |
27 | 27 | * |
|
59 | 59 | #include"postgres.h" |
60 | 60 | #include"access/htup.h" |
61 | 61 | #include"catalog/pg_type.h" |
| 62 | +#include"catalog/pg_language.h" |
62 | 63 | #include"catalog/pg_index.h" |
63 | 64 | #include"libpq-fe.h" |
64 | 65 | #ifndefHAVE_STRDUP |
@@ -1718,7 +1719,9 @@ dumpOneFunc(FILE *fout, FuncInfo *finfo, int i, |
1718 | 1719 | (finfo[i].retset) ?" SETOF " :"", |
1719 | 1720 | findTypeByOid(tinfo,numTypes,finfo[i].prorettype), |
1720 | 1721 | (finfo[i].lang) ?finfo[i].probin :finfo[i].prosrc, |
1721 | | -(finfo[i].lang) ?"C" :"SQL"); |
| 1722 | +(finfo[i].lang==INTERNALlanguageId) ?"INTERNAL" : |
| 1723 | +(finfo[i].lang==ClanguageId) ?"C" : |
| 1724 | +(finfo[i].lang==SQLlanguageId) ?"SQL" :"unknown"); |
1722 | 1725 |
|
1723 | 1726 | fputs(q,fout); |
1724 | 1727 |
|
|