src/share/vm/opto/library_call.cpp

rev 9055 : 8073108: Use x86 and SPARC CPU instructions for GHASH acceleration
Reviewed-by: kvn, jrose

*** 309,318 ****
--- 309,319 ----
    bool inline_aescrypt_Block(vmIntrinsics::ID id);
    bool inline_cipherBlockChaining_AESCrypt(vmIntrinsics::ID id);
    Node* inline_cipherBlockChaining_AESCrypt_predicate(bool decrypting);
    Node* get_key_start_from_aescrypt_object(Node* aescrypt_object);
    Node* get_original_key_start_from_aescrypt_object(Node* aescrypt_object);
+   bool inline_ghash_processBlocks();
    bool inline_sha_implCompress(vmIntrinsics::ID id);
    bool inline_digestBase_implCompressMB(int predicate);
    bool inline_sha_implCompressMB(Node* digestBaseObj, ciInstanceKlass* instklass_SHA,
                                   bool long_state, address stubAddr, const char *stubName,
                                   Node* src_start, Node* ofs, Node* limit);
*** 568,577 ****
--- 569,582 ----
    case vmIntrinsics::_digestBase_implCompressMB:
      if (!(UseSHA1Intrinsics || UseSHA256Intrinsics || UseSHA512Intrinsics)) return NULL;
      predicates = 3;
      break;
  
+   case vmIntrinsics::_ghash_processBlocks:
+     if (!UseGHASHIntrinsics) return NULL;
+     break;
+ 
    case vmIntrinsics::_updateCRC32:
    case vmIntrinsics::_updateBytesCRC32:
    case vmIntrinsics::_updateByteBufferCRC32:
      if (!UseCRC32Intrinsics) return NULL;
      break;
*** 955,964 ****
--- 960,972 ----
    case vmIntrinsics::_montgomeryMultiply:
      return inline_montgomeryMultiply();
    case vmIntrinsics::_montgomerySquare:
      return inline_montgomerySquare();
  
+   case vmIntrinsics::_ghash_processBlocks:
+     return inline_ghash_processBlocks();
+ 
    case vmIntrinsics::_encodeISOArray:
      return inline_encodeISOArray();
  
    case vmIntrinsics::_updateCRC32:
      return inline_updateCRC32();
*** 6597,6606 ****
--- 6605,6643 ----
  
    record_for_igvn(region);
    return _gvn.transform(region);
  }
  
+ //------------------------------inline_ghash_processBlocks
+ bool LibraryCallKit::inline_ghash_processBlocks() {
+   address stubAddr;
+   const char *stubName;
+   assert(UseGHASHIntrinsics, "need GHASH intrinsics support");
+ 
+   stubAddr = StubRoutines::ghash_processBlocks();
+   stubName = "ghash_processBlocks";
+ 
+   Node* data           = argument(0);
+   Node* offset         = argument(1);
+   Node* len            = argument(2);
+   Node* state          = argument(3);
+   Node* subkeyH        = argument(4);
+ 
+   Node* state_start  = array_element_address(state, intcon(0), T_LONG);
+   assert(state_start, "state is NULL");
+   Node* subkeyH_start  = array_element_address(subkeyH, intcon(0), T_LONG);
+   assert(subkeyH_start, "subkeyH is NULL");
+   Node* data_start  = array_element_address(data, offset, T_BYTE);
+   assert(data_start, "data is NULL");
+ 
+   Node* ghash = make_runtime_call(RC_LEAF|RC_NO_FP,
+                                   OptoRuntime::ghash_processBlocks_Type(),
+                                   stubAddr, stubName, TypePtr::BOTTOM,
+                                   state_start, subkeyH_start, data_start, len);
+   return true;
+ }
+ 
  //------------------------------inline_sha_implCompress-----------------------
  //
  // Calculate SHA (i.e., SHA-1) for single-block byte[] array.
  // void com.sun.security.provider.SHA.implCompress(byte[] buf, int ofs)
  //