src/share/vm/opto/runtime.cpp

rev 8502 : 8046943: Leverage CPU Instructions for GHASH and RSA
Summary: Add montgomeryMultiply intrinsics
Reviewed-by: kvn

*** 985,994 ****
--- 985,1040 ----
    fields[TypeFunc::Parms+0] = TypeInt::INT;
    const TypeTuple* range = TypeTuple::make(TypeFunc::Parms+1, fields);
    return TypeFunc::make(domain, range);
  }
  
+ const TypeFunc* OptoRuntime::montgomeryMultiply_Type() {
+   // create input type (domain)
+   int num_args      = 7;
+   int argcnt = num_args;
+   const Type** fields = TypeTuple::fields(argcnt);
+   int argp = TypeFunc::Parms;
+   fields[argp++] = TypePtr::NOTNULL;    // a
+   fields[argp++] = TypePtr::NOTNULL;    // b
+   fields[argp++] = TypePtr::NOTNULL;    // n
+   fields[argp++] = TypeInt::INT;        // len
+   fields[argp++] = TypeLong::LONG;      // inv
+   fields[argp++] = Type::HALF;
+   fields[argp++] = TypePtr::NOTNULL;    // result
+   assert(argp == TypeFunc::Parms+argcnt, "correct decoding");
+   const TypeTuple* domain = TypeTuple::make(TypeFunc::Parms+argcnt, fields);
+ 
+   // result type needed
+   fields = TypeTuple::fields(1);
+   fields[TypeFunc::Parms+0] = TypePtr::NOTNULL;
+ 
+   const TypeTuple* range = TypeTuple::make(TypeFunc::Parms, fields);
+   return TypeFunc::make(domain, range);
+ }
+ 
+ const TypeFunc* OptoRuntime::montgomerySquare_Type() {
+   // create input type (domain)
+   int num_args      = 6;
+   int argcnt = num_args;
+   const Type** fields = TypeTuple::fields(argcnt);
+   int argp = TypeFunc::Parms;
+   fields[argp++] = TypePtr::NOTNULL;    // a
+   fields[argp++] = TypePtr::NOTNULL;    // n
+   fields[argp++] = TypeInt::INT;        // len
+   fields[argp++] = TypeLong::LONG;      // inv
+   fields[argp++] = Type::HALF;
+   fields[argp++] = TypePtr::NOTNULL;    // result
+   assert(argp == TypeFunc::Parms+argcnt, "correct decoding");
+   const TypeTuple* domain = TypeTuple::make(TypeFunc::Parms+argcnt, fields);
+ 
+   // result type needed
+   fields = TypeTuple::fields(1);
+   fields[TypeFunc::Parms+0] = TypePtr::NOTNULL;
+ 
+   const TypeTuple* range = TypeTuple::make(TypeFunc::Parms, fields);
+   return TypeFunc::make(domain, range);
+ }
  
  
  //------------- Interpreter state access for on stack replacement
  const TypeFunc* OptoRuntime::osr_end_Type() {
    // create input type (domain)