Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
Greenplum
Gpdb
提交
aca5b344
G
Gpdb
项目概览
Greenplum
/
Gpdb
通知
7
Star
1
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
G
Gpdb
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
aca5b344
编写于
5月 23, 2000
作者:
T
Tom Lane
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Cast parameters to ckfree to (char *) to suppress compiler warnings.
上级
b1b90594
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
9 addition
and
9 deletion
+9
-9
src/pl/tcl/pltcl.c
src/pl/tcl/pltcl.c
+9
-9
未找到文件。
src/pl/tcl/pltcl.c
浏览文件 @
aca5b344
...
...
@@ -3,7 +3,7 @@
* procedural language (PL)
*
* IDENTIFICATION
* $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.2
1 2000/04/16 04:19:41
tgl Exp $
* $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.2
2 2000/05/23 01:59:05
tgl Exp $
*
* This software is copyrighted by Jan Wieck - Hamburg.
*
...
...
@@ -1064,7 +1064,7 @@ pltcl_trigger_handler(FmgrInfo *proinfo)
if
(
ret_numvals
%
2
!=
0
)
{
ckfree
(
ret_values
);
ckfree
(
(
char
*
)
ret_values
);
elog
(
ERROR
,
"pltcl: invalid return list from trigger - must have even # of elements"
);
}
...
...
@@ -1086,7 +1086,7 @@ pltcl_trigger_handler(FmgrInfo *proinfo)
if
(
sigsetjmp
(
Warn_restart
,
1
)
!=
0
)
{
memcpy
(
&
Warn_restart
,
&
save_restart
,
sizeof
(
Warn_restart
));
ckfree
(
ret_values
);
ckfree
(
(
char
*
)
ret_values
);
pltcl_restart_in_progress
=
1
;
if
(
--
pltcl_call_level
==
0
)
pltcl_restart_in_progress
=
0
;
...
...
@@ -1156,7 +1156,7 @@ pltcl_trigger_handler(FmgrInfo *proinfo)
if
(
rettup
==
NULL
)
elog
(
ERROR
,
"pltcl: SPI_modifytuple() failed - RC = %d
\n
"
,
SPI_result
);
ckfree
(
ret_values
);
ckfree
(
(
char
*
)
ret_values
);
memcpy
(
&
Warn_restart
,
&
save_restart
,
sizeof
(
Warn_restart
));
return
rettup
;
...
...
@@ -1581,7 +1581,7 @@ pltcl_SPI_prepare(ClientData cdata, Tcl_Interp *interp,
free
(
qdesc
->
argvalues
);
free
(
qdesc
->
arglen
);
free
(
qdesc
);
ckfree
(
args
);
ckfree
(
(
char
*
)
args
);
return
TCL_ERROR
;
}
...
...
@@ -1730,7 +1730,7 @@ pltcl_SPI_execp(ClientData cdata, Tcl_Interp *interp,
************************************************************/
if
(
callargs
!=
NULL
)
{
ckfree
(
callargs
);
ckfree
(
(
char
*
)
callargs
);
callargs
=
NULL
;
}
...
...
@@ -1843,7 +1843,7 @@ pltcl_SPI_execp(ClientData cdata, Tcl_Interp *interp,
TCL_VOLATILE
);
if
(
callargs
!=
NULL
)
{
ckfree
(
callargs
);
ckfree
(
(
char
*
)
callargs
);
callargs
=
NULL
;
}
return
TCL_ERROR
;
...
...
@@ -1867,7 +1867,7 @@ pltcl_SPI_execp(ClientData cdata, Tcl_Interp *interp,
qdesc
->
argvalues
[
j
]
=
(
Datum
)
NULL
;
}
}
ckfree
(
callargs
);
ckfree
(
(
char
*
)
callargs
);
callargs
=
NULL
;
pltcl_restart_in_progress
=
1
;
Tcl_SetResult
(
interp
,
"Transaction abort"
,
TCL_VOLATILE
);
...
...
@@ -1890,7 +1890,7 @@ pltcl_SPI_execp(ClientData cdata, Tcl_Interp *interp,
* Free the splitted argument value list
************************************************************/
memcpy
(
&
Warn_restart
,
&
save_restart
,
sizeof
(
Warn_restart
));
ckfree
(
callargs
);
ckfree
(
(
char
*
)
callargs
);
callargs
=
NULL
;
}
else
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录