1 files changed, 101 insertions, 0 deletions
diff --git a/MdePkg/Library/PeiPalLib/PeiPalLib.c b/MdePkg/Library/PeiPalLib/PeiPalLib.c
new file mode 100644
index 0000000000..07f9f38ad0
--- /dev/null
+++ b/MdePkg/Library/PeiPalLib/PeiPalLib.c
@@ -0,0 +1,101 @@
+/** @file
+  PAL Call Services Function.
+
+  Copyright (c) 2006 - 2008 Intel Corporation. All rights reserved
+  This software and associated documentation (if any) is furnished
+  under a license and may only be used or copied in accordance
+  with the terms of the license. Except as permitted by such
+  license, no part of this software or documentation may be
+  reproduced, stored in a retrieval system, or transmitted in any
+  form or by any means without the express written consent of
+  Intel Corporation.
+
+  Module Name:  PalCallLib.c
+
+**/
+
+
+#include <PiPei.h>
+
+#include <Ppi/SecPlatformInformation.h>
+
+#include <Library/PalCallLib.h>
+#include <Library/PeiServicesTablePointerLib.h>
+#include <Library/PeiServicesLib.h>
+#include <Library/BaseLib.h>
+#include <Library/DebugLib.h>
+
+/**
+  Makes a PAL procedure call.
+
+  This is a wrapper function to make a PAL procedure call.  Based on the Index value,
+  this API will make static or stacked PAL call. Architected procedures may be designated
+  as required or optional.  If a PAL procedure is specified as optional, a unique return
+  code of 0xFFFFFFFFFFFFFFFF is returned in the Status field of the PAL_CALL_RETURN structure.
+  This indicates that the procedure is not present in this PAL implementation.  It is the
+  caller's responsibility to check for this return code after calling any optional PAL
+  procedure. No parameter checking is performed on the 4 input parameters, but there are
+  some common rules that the caller should follow when making a PAL call.  Any address
+  passed to PAL as buffers for return parameters must be 8-byte aligned.  Unaligned addresses
+  may cause undefined results.  For those parameters defined as reserved or some fields
+  defined as reserved must be zero filled or the invalid argument return value may be
+  returned or undefined result may occur during the execution of the procedure.
+  This function is only available on IPF.
+
+  @param  Index  The PAL procedure Index number.
+  @param  Arg2   The 2nd parameter for PAL procedure calls.
+  @param  Arg3   The 3rd parameter for PAL procedure calls.
+  @param  Arg4   The 4th parameter for PAL procedure calls.
+
+  @return Structure returned from the PAL Call procedure, including the status and return value.
+
+**/
+PAL_CALL_RETURN
+EFIAPI
+PalCall (
+  IN UINT64                  Index,
+  IN UINT64                  Arg2,
+  IN UINT64                  Arg3,
+  IN UINT64                  Arg4
+  )
+{
+  UINT64                            PalCallAddress;
+  PAL_CALL_RETURN                   ReturnVal;
+  CONST EFI_PEI_SERVICES            **PeiServices;
+  EFI_STATUS                        Status;
+  EFI_SEC_PLATFORM_INFORMATION_PPI  *SecPlatformPpi;
+  IPF_HANDOFF_STATUS                IpfStatus;
+  UINT64                            RecordSize;
+
+  //
+  // Get PEI Service Table Pointer
+  //
+  PeiServices = GetPeiServicesTablePointer ();
+
+  //
+  // Locate SEC Platform Information PPI
+  //
+  Status = PeiServicesLocatePpi (
+             &gEfiSecPlatformInformationPpiGuid,
+             0,
+             NULL,
+             (VOID **)&SecPlatformPpi
+             );
+  ASSERT_EFI_ERROR (Status);
+
+  //
+  // Retrieve PAL call address from platform information reported by the PPI
+  //
+  RecordSize = sizeof (IpfStatus);
+  SecPlatformPpi->PlatformInformation (
+                    PeiServices,
+                    &RecordSize,
+                    (EFI_SEC_PLATFORM_INFORMATION_RECORD *) &IpfStatus
+                    );
+  PalCallAddress = IpfStatus.PalCallAddress;
+
+  ReturnVal = AsmPalCall (PalCallAddress, Index, Arg2, Arg3, Arg4);
+
+  return ReturnVal;
+}
+