develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33763 - in trunk/languages/jako/lib/Jako/Construct: Declaration Expression Expression/Value Statement

From:
fperrad
Date:
December 10, 2008 07:09
Subject:
[svn:parrot] r33763 - in trunk/languages/jako/lib/Jako/Construct: Declaration Expression Expression/Value Statement
Message ID:
20081210150846.46C69CBA89@x12.develooper.com
Author: fperrad
Date: Wed Dec 10 07:08:44 2008
New Revision: 33763

Modified:
   trunk/languages/jako/lib/Jako/Construct/Declaration/Variable.pm
   trunk/languages/jako/lib/Jako/Construct/Expression/Call.pm
   trunk/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm
   trunk/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm
   trunk/languages/jako/lib/Jako/Construct/Statement/Assign.pm
   trunk/languages/jako/lib/Jako/Construct/Statement/Concat.pm
   trunk/languages/jako/lib/Jako/Construct/Statement/Decrement.pm
   trunk/languages/jako/lib/Jako/Construct/Statement/Increment.pm

Log:
[Jako] global
- update PIR generation with get/set_global

Modified: trunk/languages/jako/lib/Jako/Construct/Declaration/Variable.pm
==============================================================================
--- trunk/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	(original)
+++ trunk/languages/jako/lib/Jako/Construct/Declaration/Variable.pm	Wed Dec 10 07:08:44 2008
@@ -144,7 +144,7 @@
         my $reg = $compiler->temp_pmc();
 
         $compiler->emit("  $reg = new '$pmc_type'");
-        $compiler->emit("  global \"$name\" = $reg");
+        $compiler->emit("  set_global \"$name\", $reg");
     }
     else {
         $compiler->emit("  .local $type $name");

Modified: trunk/languages/jako/lib/Jako/Construct/Expression/Call.pm
==============================================================================
--- trunk/languages/jako/lib/Jako/Construct/Expression/Call.pm	(original)
+++ trunk/languages/jako/lib/Jako/Construct/Expression/Call.pm	Wed Dec 10 07:08:44 2008
@@ -158,7 +158,7 @@
         $compiler->emit("  $temp_pmc = $dest");
 
         my $dest_name = $dest_ident->value;
-        $compiler->emit("  global \"$dest_name\" = $temp_pmc");
+        $compiler->emit("  set_global \"$dest_name\", $temp_pmc");
     }
 
     return 1;

Modified: trunk/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm
==============================================================================
--- trunk/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	(original)
+++ trunk/languages/jako/lib/Jako/Construct/Expression/Value/Identifier.pm	Wed Dec 10 07:08:44 2008
@@ -67,7 +67,7 @@
         my $temp_pmc = $compiler->temp_pmc();
 
         $compiler->emit("  $temp_pmc = new '$pmc_type'");
-        $compiler->emit("  $temp_pmc = global \"$ident_name\"");
+        $compiler->emit("  $temp_pmc = get_global \"$ident_name\"");
         $compiler->emit("  $temp_reg = $temp_pmc");
 
         return $temp_reg;

Modified: trunk/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm
==============================================================================
--- trunk/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	(original)
+++ trunk/languages/jako/lib/Jako/Construct/Statement/Arithmetic.pm	Wed Dec 10 07:08:44 2008
@@ -164,7 +164,7 @@
 
         $compiler->emit("  $pmc_reg = new '$pmc_type'");
         $compiler->emit("  $pmc_reg = $dest");
-        $compiler->emit("  global \"$dest_name\" = $pmc_reg");
+        $compiler->emit("  set_global \"$dest_name\", $pmc_reg");
     }
 
     return 1;

Modified: trunk/languages/jako/lib/Jako/Construct/Statement/Assign.pm
==============================================================================
--- trunk/languages/jako/lib/Jako/Construct/Statement/Assign.pm	(original)
+++ trunk/languages/jako/lib/Jako/Construct/Statement/Assign.pm	Wed Dec 10 07:08:44 2008
@@ -60,7 +60,7 @@
 
         $compiler->emit("  $temp_pmc = new '$pmc_type'");
         $compiler->emit("  $temp_pmc = $right");
-        $compiler->emit("  global \"$left\" = $temp_pmc");
+        $compiler->emit("  set_global \"$left\", $temp_pmc");
     }
     else {
         $compiler->emit("  $left = $right");

Modified: trunk/languages/jako/lib/Jako/Construct/Statement/Concat.pm
==============================================================================
--- trunk/languages/jako/lib/Jako/Construct/Statement/Concat.pm	(original)
+++ trunk/languages/jako/lib/Jako/Construct/Statement/Concat.pm	Wed Dec 10 07:08:44 2008
@@ -113,7 +113,7 @@
 
         $compiler->emit("  $pmc_reg = new '$pmc_type'");
         $compiler->emit("  $pmc_reg = $dest");
-        $compiler->emit("  global \"$dest_name\" = $pmc_reg");
+        $compiler->emit("  set_global \"$dest_name\", $pmc_reg");
     }
 
     return 1;

Modified: trunk/languages/jako/lib/Jako/Construct/Statement/Decrement.pm
==============================================================================
--- trunk/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	(original)
+++ trunk/languages/jako/lib/Jako/Construct/Statement/Decrement.pm	Wed Dec 10 07:08:44 2008
@@ -57,7 +57,7 @@
         my $pmc_reg  = $compiler->temp_pmc();
         $compiler->emit("  $pmc_reg = new '$pmc_type'");
         $compiler->emit("  $pmc_reg = $ident");
-        $compiler->emit("  global \"$ident_name\" = $pmc_reg");
+        $compiler->emit("  set_global \"$ident_name\", $pmc_reg");
     }
 
     return 1;

Modified: trunk/languages/jako/lib/Jako/Construct/Statement/Increment.pm
==============================================================================
--- trunk/languages/jako/lib/Jako/Construct/Statement/Increment.pm	(original)
+++ trunk/languages/jako/lib/Jako/Construct/Statement/Increment.pm	Wed Dec 10 07:08:44 2008
@@ -57,7 +57,7 @@
         my $pmc_reg  = $compiler->temp_pmc();
         $compiler->emit("  $pmc_reg = new '$pmc_type'");
         $compiler->emit("  $pmc_reg = $ident");
-        $compiler->emit("  global \"$ident_name\" = $pmc_reg");
+        $compiler->emit("  set_global \"$ident_name\", $pmc_reg");
     }
 
     return 1;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About