|
9 | 9 | * |
10 | 10 | * |
11 | 11 | * IDENTIFICATION |
12 | | - *$Header: /cvsroot/pgsql/src/backend/utils/adt/oracle_compat.c,v 1.36 2001/10/25 05:49:45 momjian Exp $ |
| 12 | + *$Header: /cvsroot/pgsql/src/backend/utils/adt/oracle_compat.c,v 1.37 2002/01/08 17:03:41 tgl Exp $ |
13 | 13 | * |
14 | 14 | *------------------------------------------------------------------------- |
15 | 15 | */ |
@@ -200,10 +200,8 @@ lpad(PG_FUNCTION_ARGS) |
200 | 200 | #ifdefMULTIBYTE |
201 | 201 | bytelen=pg_database_encoding_max_length()*len; |
202 | 202 | ret= (text*)palloc(VARHDRSZ+bytelen); |
203 | | -VARATT_SIZEP(ret)=VARHDRSZ+bytelen; |
204 | 203 | #else |
205 | 204 | ret= (text*)palloc(VARHDRSZ+len); |
206 | | -VARATT_SIZEP(ret)=VARHDRSZ+len; |
207 | 205 | #endif |
208 | 206 | m=len-s1len; |
209 | 207 |
|
@@ -247,6 +245,8 @@ lpad(PG_FUNCTION_ARGS) |
247 | 245 | *ptr_ret++=*ptr1++; |
248 | 246 | #endif |
249 | 247 |
|
| 248 | +VARATT_SIZEP(ret)=ptr_ret- (char*)ret; |
| 249 | + |
250 | 250 | PG_RETURN_TEXT_P(ret); |
251 | 251 | } |
252 | 252 |
|
@@ -311,10 +311,8 @@ rpad(PG_FUNCTION_ARGS) |
311 | 311 | #ifdefMULTIBYTE |
312 | 312 | bytelen=pg_database_encoding_max_length()*len; |
313 | 313 | ret= (text*)palloc(VARHDRSZ+bytelen); |
314 | | -VARATT_SIZEP(ret)=VARHDRSZ+bytelen; |
315 | 314 | #else |
316 | 315 | ret= (text*)palloc(VARHDRSZ+len); |
317 | | -VARATT_SIZEP(ret)=VARHDRSZ+len; |
318 | 316 | #endif |
319 | 317 | m=len-s1len; |
320 | 318 |
|
@@ -358,6 +356,8 @@ rpad(PG_FUNCTION_ARGS) |
358 | 356 | } |
359 | 357 | #endif |
360 | 358 |
|
| 359 | +VARATT_SIZEP(ret)=ptr_ret- (char*)ret; |
| 360 | + |
361 | 361 | PG_RETURN_TEXT_P(ret); |
362 | 362 | } |
363 | 363 |
|
|