mirror of
https://git.freebsd.org/ports.git
synced 2025-06-07 22:00:31 -04:00
1d32e97a18
- Submitter becomes maintainer - While here add missing dependencies http://beefy11.nyi.freebsd.org/data/head-i386-default/p473790_s335878/logs/ical-2.2_4.log PR: 226799 Reported by: bob@immure.com Submitted by: fbsd@opal.com
20 lines
699 B
C
20 lines
699 B
C
--- object.C.orig 1994-05-20 03:22:04 UTC
|
|
+++ object.C
|
|
@@ -33,7 +33,7 @@ void Object::init(Tcl_Interp* t, char const* ty, char
|
|
interp = t;
|
|
|
|
/* Create TCL Command */
|
|
- Tcl_CreateCommand(interp, name, obj_handle, (ClientData) this, NULL);
|
|
+ Tcl_CreateCommand(interp, name, (Tcl_CmdProc *)obj_handle, (ClientData) this, NULL);
|
|
}
|
|
|
|
Object::~Object() {
|
|
@@ -46,7 +46,7 @@ Object::~Object() {
|
|
Object* Object::find(Tcl_Interp* tcl, char const* h) {
|
|
Tcl_CmdInfo i;
|
|
|
|
- if (Tcl_GetCommandInfo(tcl, (char*)h, &i) && (i.proc == obj_handle))
|
|
+ if (Tcl_GetCommandInfo(tcl, (char*)h, &i) && (i.proc == (Tcl_CmdProc *)obj_handle))
|
|
return ((Object*) i.clientData);
|
|
|
|
return 0;
|