cvsuser 03/12/05 07:44:20
Modified: languages/jako/lib/Jako/Construct/Declaration Sub.pm
languages/jako/lib/Jako/Construct/Type Object.pm
Log:
Update Jako for stricter IMCC
Revision Changes Path
1.9 +2 -2 parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm
Index: Sub.pm
===================================================================
RCS file: /cvs/public/parrot/languages/jako/lib/Jako/Construct/Declaration/Sub.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- Sub.pm 20 Sep 2003 23:07:05 -0000 1.8
+++ Sub.pm 5 Dec 2003 15:44:17 -0000 1.9
@@ -5,7 +5,7 @@
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
-# $Id: Sub.pm,v 1.8 2003/09/20 23:07:05 gregor Exp $
+# $Id: Sub.pm,v 1.9 2003/12/05 15:44:17 mrjoltcola Exp $
#
use strict;
@@ -202,7 +202,7 @@
$fn_name =~ s/^.*::/"/;
- $compiler->emit(" .local obj lib");
+ $compiler->emit(" .local pmc lib");
$compiler->emit(" loadlib lib, $fnlib");
$compiler->emit(" dlfunc P0, lib, $fn_name, \"$sig\"");
$compiler->emit(" invoke");
1.3 +2 -2 parrot/languages/jako/lib/Jako/Construct/Type/Object.pm
Index: Object.pm
===================================================================
RCS file: /cvs/public/parrot/languages/jako/lib/Jako/Construct/Type/Object.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- Object.pm 20 Dec 2002 01:59:10 -0000 1.2
+++ Object.pm 5 Dec 2003 15:44:20 -0000 1.3
@@ -5,7 +5,7 @@
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
-# $Id: Object.pm,v 1.2 2002/12/20 01:59:10 gregor Exp $
+# $Id: Object.pm,v 1.3 2003/12/05 15:44:20 mrjoltcola Exp $
#
use strict;
@@ -24,7 +24,7 @@
TOKEN => $token,
CODE => 'P',
NAME => 'obj',
- IMCC => 'PMC'
+ IMCC => 'pmc'
}, $class;
}
