/* Generated with C2C (Cedar To C)*/
/* Copyright (C) 1992 by Xerox Corporation.  All rights reserved. */
/* time: February 26, 1992 1:32:04 pm PST */
/* C2C version: October 16, 1990 (native) */
/* ref-counting: off */
/* file: PTRawHashImpl, module: PTRawHashImpl */ 
/* switches: bcfhklnouw */ 
#include <cedar/InstallationSupport.h>
#include <cedar/CedarExtra.h>
static char versionStamp[] = "@(#)mob←version [4003286800,4260023582] PTRawHashImpl";
typedef unsigned word, *ptr;
typedef unsigned char byte, *bPt;
typedef unsigned short half, *hPt;
typedef word (*fPt)();
#define SOURCE(p, l) /* source p, l */
static void NoName←Q120();
static void PTRawHashImpl←P0();
static word RawHash←P60();
static struct {unsigned f; char r[16];} string1 = {851984, "\257\300\356\235\117\020\300\375\352\315\036\100\164\000\000"};
static struct {unsigned f; char r[16];} string2 = {851984, "\257\300\122\171\164\025\300\243\020\252\320\100\164\000\000"};
static struct {unsigned f; char r[16];} string3 = {851984, "\257\300\244\176\316\311\300\054\141\325\173\100\150\000\000"};
static struct {
   word f0[4]; word f4; word f5; word f6; 
   word f7[3]; 
   } globalframe = {
   {0}, (word) RawHash←P60, 0, (word) PTRawHashImpl←P0, 
   {0}
   };

static void NoName←Q120()
   {
   register ptr gf←c011 =  (ptr) &globalframe;
   word var←c3064;
   (void) XR←DeclareGlobalFrame((word) "PTRawHashImpl", &globalframe, (word) XR←GetTypeIndexS((word) (&string1)), (word) (( (bPt) gf←c011)+24)
      /* var←c2968 */ );
   var←c3064 = (word) XR←ImportInterface((word) "Checksum", (word) XR←GetTypeIndexS((word) (&string2)), 3);
   (* (( (ptr) gf←c011)+8)/* var←c3032 */  ) = var←c3064;
   (void) XR←ImportProcS(var←c3064, 68157444);
   var←c3064 = (word) XR←ExportInterface((word) "TRawHash", (word) XR←GetTypeIndexS((word) (&string3)), 1);
   (* (( (ptr) gf←c011)+9)/* var←c3096 */  ) = var←c3064;
   (void) XR←ExportProcS(var←c3064, (word) (( (bPt) gf←c011)+16)/* var←c2936 */ , 67633154);
   }

static void PTRawHashImpl←P0(formal←c07, formal←c06)
   word formal←c07;
   word formal←c06;
   {
   /* PTRawHashImpl: */ 
   }

static word RawHash←P60(pointer←v2548, units←v2576)
   word pointer←v2548;
   word units←v2576;
   {
   register ptr gf←c3128 =  (ptr) &globalframe;
   word var←c2632;
   /* RawHash: */ 
SOURCE(104, 163)
SOURCE(201, 66)
   {
      word pd4;
      pd4 = (* (( (ptr) (* (( (ptr) gf←c3128)+8)/* var←c3032 */  ))+4) );
      return((word) ( *( (fPt) ((*  (ptr) pd4 ))))(0, (units←v2576 >> 2), pointer←v2548, 0, pd4));
      };
   }

/* file: PTRawHashImpl, module: PTRawHashImpl, compiled at: February 26, 1992 1:32:04 pm PST */ 
extern void XR←install←PTRawHashImpl() {
   NoName←Q120();
   }
extern void XR←run←PTRawHashImpl() { XR←Start(&globalframe); }