cvsuser 04/03/21 04:35:38
Modified: src packfile.c
Log:
fix make testr faults
Revision Changes Path
1.157 +5 -3 parrot/src/packfile.c
Index: packfile.c
===================================================================
RCS file: /cvs/public/parrot/src/packfile.c,v
retrieving revision 1.156
retrieving revision 1.157
diff -u -w -r1.156 -r1.157
--- packfile.c 20 Mar 2004 09:15:39 -0000 1.156
+++ packfile.c 21 Mar 2004 12:35:37 -0000 1.157
@@ -2,7 +2,7 @@
Copyright (C) 2001-2002 Gregor N. Purdy. All rights reserved.
This program is free software. It is subject to the same license as
Parrot itself.
-$Id: packfile.c,v 1.156 2004/03/20 09:15:39 leo Exp $
+$Id: packfile.c,v 1.157 2004/03/21 12:35:37 leo Exp $
=head1 NAME
@@ -386,7 +386,9 @@
/*
* locate top level dir
*/
- for (dir = &self->directory; dir->base.dir ; dir = dir->base.dir)
+ for (dir = &self->directory;
+ self != (struct PackFile *)&self->directory ;
+ dir = dir->base.dir)
;
/*
* iterate over all dir/segs
@@ -2812,7 +2814,7 @@
}
else {
STRING *names;
- PMC * stash, *part;
+ PMC * stash = NULL, *part;
struct PackFile_Constant *pfc_const;
if (ns >= pf->const_table->const_count) {
