Author: jquelin
Date: Wed Oct 3 09:45:12 2007
New Revision: 21787
Modified:
branches/pdd15oo/languages/dotnet/src/method.pir
branches/pdd15oo/languages/dotnet/src/translator.pir
branches/pdd15oo/languages/pheme/lib/PhemeSymbols.pir
Log:
more find_type removal
Modified: branches/pdd15oo/languages/dotnet/src/method.pir
==============================================================================
--- branches/pdd15oo/languages/dotnet/src/method.pir (original)
+++ branches/pdd15oo/languages/dotnet/src/method.pir Wed Oct 3 09:45:12 2007
@@ -106,8 +106,7 @@
# Get signature.
sig_pos = meth.get_signature()
sig_data = assembly.get_blob(sig_pos)
- sig_type = find_type "DotNetSignature"
- signature = new sig_type
+ signature = new "DotNetSignature"
signature = sig_data
# Get flags.
@@ -265,8 +264,7 @@
sig_pos = bc.get_locals_sig()
if sig_pos == 0 goto EXIT
sig_data = assembly.get_blob(sig_pos)
- sig_type = find_type "DotNetSignature"
- signature = new sig_type
+ signature = new "DotNetSignature"
signature = sig_data
# Ensure it's a local sig. XXX Right thing to do when it's not?
Modified: branches/pdd15oo/languages/dotnet/src/translator.pir
==============================================================================
--- branches/pdd15oo/languages/dotnet/src/translator.pir (original)
+++ branches/pdd15oo/languages/dotnet/src/translator.pir Wed Oct 3
09:45:12 2007
@@ -15,8 +15,7 @@
# Instantiate a new assembly class.
loadlib $P0, "dotnet"
- find_type $I0, "DotNetAssembly"
- assembly = new $I0
+ assembly = new "DotNetAssembly"
# Set filename and attempt to load.
assembly = filename
Modified: branches/pdd15oo/languages/pheme/lib/PhemeSymbols.pir
==============================================================================
--- branches/pdd15oo/languages/pheme/lib/PhemeSymbols.pir (original)
+++ branches/pdd15oo/languages/pheme/lib/PhemeSymbols.pir Wed Oct 3
09:45:12 2007
@@ -54,11 +54,8 @@
.sub __list_to_cons
.param pmc args :slurpy
- .local int cons_type
- cons_type = find_type [ 'Pheme'; 'Cons' ]
-
.local pmc result
- result = new cons_type
+ result = new [ 'Pheme'; 'Cons' ]
.local int args_count
.local pmc arg
@@ -163,11 +160,8 @@
.param pmc l
.param pmc r
- .local int cons_type
- cons_type = find_type [ 'Pheme'; 'Cons' ]
-
.local pmc result
- result = new cons_type
+ result = new [ 'Pheme'; 'Cons' ]
result.'head'( l )
result.'tail'( r )
@@ -416,11 +410,8 @@
.sub '__make_empty_cons'
.local pmc result
- .local int cons_type
- cons_type = find_type [ 'Pheme'; 'Cons' ]
-
.local pmc result
- result = new cons_type
+ result = new [ 'Pheme'; 'Cons' ]
.return( result )
.end
