Windows2000/private/ntos/rtl/alpha/context.c
2020-09-30 17:12:32 +02:00

227 lines
7.6 KiB
C

/*++
Copyright (c) 1990 Microsoft Corporation
Module Name:
context.c
Abstract:
This module implements user-mode callable context manipulation routines.
Author:
Mark Lucovsky (markl) 20-Jun-1989
Revision History:
David N. Cutler (davec) 18-Apr-1990
Revise for MIPS environment.
Thomas Van Baak (tvb) 11-May-1992
Adapted for Alpha AXP.
--*/
#include <nt.h>
#include <ntrtl.h>
#include <alphaops.h>
VOID RtlInitializeContext(IN HANDLE Process, OUT PCONTEXT Context, IN PVOID Parameter OPTIONAL, IN PVOID InitialPc OPTIONAL, IN PVOID InitialSp OPTIONAL)
/*++
Routine Description:
This function initializes a context structure so that it can be used in a subsequent call to NtCreateThread.
Arguments:
Process - Supplies an open handle to the target process. This argument is ignored by this function.
Context - Supplies a pointer to a context record that is to be initialized.
Parameter - Supplies an initial value for register A0.
InitialPc - Supplies an initial program counter value.
InitialSp - Supplies an initial stack pointer value.
Return Value:
Raises STATUS_BAD_INITIAL_STACK if the value of InitialSp is not properly aligned.
Raises STATUS_BAD_INITIAL_PC if the value of InitialPc is not properly aligned.
--*/
{
// Check for proper initial stack and PC alignment.
if (((ULONG_PTR)InitialSp & 0xF) != 0) {
RtlRaiseStatus(STATUS_BAD_INITIAL_STACK);
}
if (((ULONG_PTR)InitialPc & 0x3) != 0) {
RtlRaiseStatus(STATUS_BAD_INITIAL_PC);
}
// Initialize the integer registers to contain their register number (they must be initialized and using register numbers instead of 0 can be useful for debugging).
// Integer registers a0, ra, gp, and sp are set later.
Context->IntV0 = 0;
Context->IntT0 = 1;
Context->IntT1 = 2;
Context->IntT2 = 3;
Context->IntT3 = 4;
Context->IntT4 = 5;
Context->IntT5 = 6;
Context->IntT6 = 7;
Context->IntT7 = 8;
Context->IntS0 = 9;
Context->IntS1 = 10;
Context->IntS2 = 11;
Context->IntS3 = 12;
Context->IntS4 = 13;
Context->IntS5 = 14;
Context->IntFp = 15;
Context->IntA1 = 17;
Context->IntA2 = 18;
Context->IntA3 = 19;
Context->IntA4 = 20;
Context->IntA5 = 21;
Context->IntT8 = 22;
Context->IntT9 = 23;
Context->IntT10 = 24;
Context->IntT11 = 25;
Context->IntT12 = 27;
Context->IntAt = 28;
// Initialize the floating point registers to contain the integer value of their register number (they must be initialized and using register numbers instead of 0 can be useful for debugging).
Context->FltF0 = 0;
Context->FltF1 = 1;
Context->FltF2 = 2;
Context->FltF3 = 3;
Context->FltF4 = 4;
Context->FltF5 = 5;
Context->FltF6 = 6;
Context->FltF7 = 7;
Context->FltF8 = 8;
Context->FltF9 = 9;
Context->FltF10 = 10;
Context->FltF11 = 11;
Context->FltF12 = 12;
Context->FltF13 = 13;
Context->FltF14 = 14;
Context->FltF15 = 15;
Context->FltF16 = 16;
Context->FltF17 = 17;
Context->FltF18 = 18;
Context->FltF19 = 19;
Context->FltF20 = 20;
Context->FltF21 = 21;
Context->FltF22 = 22;
Context->FltF23 = 23;
Context->FltF24 = 24;
Context->FltF25 = 25;
Context->FltF26 = 26;
Context->FltF27 = 27;
Context->FltF28 = 28;
Context->FltF29 = 29;
Context->FltF30 = 30;
Context->FltF31 = 0;
// Initialize the control registers.
// Gp: will be set in LdrpInitialize at thread startup.
// Ra: some debuggers compare for 1 as a top-of-stack indication.
// N.B. On 32-bit systems, ULONG becomes canonical longword with the
// (ULONGLONG)(LONG) cast.
Context->IntGp = 0;
Context->IntSp = (ULONGLONG)(LONG_PTR)InitialSp;
Context->IntRa = 1;
Context->Fir = (ULONGLONG)(LONG_PTR)InitialPc;
// Set default Alpha floating point control register values.
Context->Fpcr = (ULONGLONG)0;
((PFPCR)(&Context->Fpcr))->DynamicRoundingMode = ROUND_TO_NEAREST;
Context->SoftFpcr = (ULONGLONG)0;
Context->Psr = 0;
Context->ContextFlags = CONTEXT_FULL;
// Set the initial context of the thread in a machine specific way.
Context->IntA0 = (ULONGLONG)(LONG_PTR)Parameter;
}
NTSTATUS
RtlRemoteCall(
HANDLE Process,
HANDLE Thread,
PVOID CallSite,
ULONG ArgumentCount,
PULONG_PTR Arguments,
BOOLEAN PassContext,
BOOLEAN AlreadySuspended
)
/*++
Routine Description:
This function calls a procedure in another thread/process by using NtGetContext and NtSetContext.
Parameters are passed to the target procedure via the nonvolatile registers (s0 - s5).
Arguments:
Process - Supplies an open handle to the target process.
Thread - Supplies an open handle to the target thread within the target process.
CallSite - Supplies the address of the procedure to call in the target process.
ArgumentCount - Supplies the number of parameters to pass to the target procedure.
Arguments - Supplies a pointer to the array of parameters to pass.
PassContext - Supplies a boolean value that determines whether a parameter is to be passed that points to a context record. This parameter is ignored on MIPS and Alpha hosts.
AlreadySuspended - Supplies a boolean value that determines whether the target thread is already in a suspended or waiting state.
Return Value:
Status - Status value.
--*/
{
NTSTATUS Status;
CONTEXT Context;
ULONG Index;
ULONGLONG NewSp;
if ((ArgumentCount > 6) || (PassContext && (ArgumentCount > 5))) {
return(STATUS_INVALID_PARAMETER);
}
// If necessary, suspend the target thread before getting the thread's current state.
if (AlreadySuspended == FALSE) {
Status = NtSuspendThread(Thread, NULL);
if (NT_SUCCESS(Status) == FALSE) {
return(Status);
}
}
// Get the current state of the target thread.
Context.ContextFlags = CONTEXT_FULL;
Status = NtGetContextThread(Thread, &Context);
if (NT_SUCCESS(Status) == FALSE) {
if (AlreadySuspended == FALSE) {
NtResumeThread(Thread, NULL);
}
return(Status);
}
if (AlreadySuspended) {
Context.IntV0 = STATUS_ALERTED;
}
// Pass the parameters to the other thread via the non-volatile registers s0 - s5. The context record is passed on the stack of the target thread.
NewSp = Context.IntSp - sizeof(CONTEXT);
Status = NtWriteVirtualMemory(Process, (PVOID)NewSp, &Context, sizeof(CONTEXT), NULL);
if (NT_SUCCESS(Status) == FALSE) {
if (AlreadySuspended == FALSE) {
NtResumeThread(Thread, NULL);
}
return(Status);
}
// N.B. On 32-bit system each ULONG argument is converted to canonical form with the (ULONGLONG)(LONG) cast as required by the calling standard.
Context.IntSp = NewSp;
if (PassContext) {
Context.IntS0 = NewSp;
for (Index = 0; Index < ArgumentCount; Index += 1) {
(&Context.IntS1)[Index] = (ULONGLONG)(LONG_PTR)Arguments[Index];
}
} else {
for (Index = 0; Index < ArgumentCount; Index += 1) {
(&Context.IntS0)[Index] = (ULONGLONG)(LONG_PTR)Arguments[Index];
}
}
// Set the address of the target code into FIR and set the thread context to cause the target procedure to be executed.
// N.B. The PVOID CallSite is stored as a canonical longword in order for Fir to be a valid 64-bit address.
Context.Fir = (ULONGLONG)(LONG_PTR)CallSite;
Status = NtSetContextThread(Thread, &Context);
if (AlreadySuspended == FALSE) {
NtResumeThread(Thread, NULL);
}
return(Status);
}