[Plplot-cvs] plplot/bindings/tk plframe.c,1.84,1.85

[<and...@us...>]

Update of /cvsroot/plplot/plplot/bindings/tk
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29748/bindings/tk

Modified Files:
	plframe.c 
Log Message:
Fix some uninitialised variables found by valgrind. Fix bug causing 
crash if a bad packet is read in plserver. 


Index: plframe.c
===================================================================
RCS file: /cvsroot/plplot/plplot/bindings/tk/plframe.c,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -d -r1.84 -r1.85
--- plframe.c	17 Jan 2004 16:41:37 -0000	1.84
+++ plframe.c	3 Feb 2004 15:43:16 -0000	1.85
@@ -410,10 +410,16 @@
     plFramePtr->xr = 1.;
     plFramePtr->yr = 1.;
     plFramePtr->SaveFnam = NULL;
+    plFramePtr->pldis.x = 0;
+    plFramePtr->pldis.y = 0;
+    plFramePtr->pldis.width = 0;
+    plFramePtr->pldis.height = 0;
 
     plFramePtr->plr = (PLRDev *) ckalloc(sizeof(PLRDev));
     plr = plFramePtr->plr;
     plr->pdfs = NULL;
+    plr->at_bop = 0;
+    plr->at_eop = 0;
     plr->iodev = (PLiodev *) ckalloc(sizeof(PLiodev));
     plr_start(plr);
 
@@ -2492,7 +2498,7 @@
 	plsstrm(plFramePtr->ipls);
 	if (pl_PacketReceive(interp, iodev, pdfs)) {
 	    Tcl_AppendResult(interp, "Packet receive failed:\n\t %s\n",
-			     interp->result, (char *) NULL);
+			     (char *) NULL);
 	    return TCL_ERROR;
 	}