Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/ein/mkoperators.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/ein/mkoperators.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2575, Mon Mar 31 22:07:24 2014 UTC revision 2576, Wed Apr 2 04:36:30 2014 UTC
# Line 331  Line 331 
331          }          }
332    
333    
334         (*New OPs*)
335        fun mulFieldss dim = E.EIN{
336            params = [E.FLD(dim),E.FLD(dim)],
337            index = [],
338            body = E.Prod[E.Field(0, []),E.Field(1, [])]
339        }
340    
341        fun mulFieldsf(dim,shape) =let
342            val (index', expindex')= specialize(shape,0)
343            in E.EIN{
344            params = [E.FLD(dim),E.FLD(dim)],
345            index = index',
346            body = E.Prod[E.Field(0, []),E.Field(1, expindex')]
347            }
348            end
349    
350    
351    
352    end; (* local *)    end; (* local *)
353    
354      end (* local *)      end (* local *)

Legend:
Removed from v.2575  
changed lines
  Added in v.2576

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0