cvsuser 03/09/08 03:30:19
Modified: classes genclass.pl
languages/imcc main.c
Log:
23751 fix typo by Michael Scott; close yyin earlier by Vladimir Lipskiy
Revision Changes Path
1.16 +2 -2 parrot/classes/genclass.pl
Index: genclass.pl
===================================================================
RCS file: /cvs/public/parrot/classes/genclass.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -w -r1.15 -r1.16
--- genclass.pl 25 Aug 2003 09:46:23 -0000 1.15
+++ genclass.pl 8 Sep 2003 10:30:17 -0000 1.16
@@ -1,4 +1,4 @@
-# $Id: genclass.pl,v 1.15 2003/08/25 09:46:23 leo Exp $
+# $Id: genclass.pl,v 1.16 2003/09/08 10:30:17 leo Exp $
use FindBin;
use lib "$FindBin::Bin/../lib";
@@ -38,7 +38,7 @@
my ($retval, $methname, $args) = @{$_};
print " $retval $methname ($args) {\n";
- f($retval !~ /void/) {
+ if($retval !~ /void/) {
print " return ($retval)0;\n";
}
print " }\n\n";
1.47 +1 -1 parrot/languages/imcc/main.c
Index: main.c
===================================================================
RCS file: /cvs/public/parrot/languages/imcc/main.c,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -w -r1.46 -r1.47
--- main.c 3 Sep 2003 11:42:43 -0000 1.46
+++ main.c 8 Sep 2003 10:30:19 -0000 1.47
@@ -449,11 +449,11 @@
info(interpreter, 1,"\n");
}
if (run_pbc == 2) {
+ fclose(yyin);
pf = Parrot_readbc(interpreter, sourcefile);
if (!pf)
fatal(1, "main", "Packfile loading failed\n");
Parrot_loadbc(interpreter, pf);
- fclose(yyin);
}
else {
int per_pbc = write_pbc | run_pbc;
