1471 lines
43 KiB
NASM
1471 lines
43 KiB
NASM
;
|
|
; Copyright (c) Microsoft Corporation. All rights reserved.
|
|
;
|
|
|
|
ifdef SINGULARITY
|
|
.686p
|
|
.mmx
|
|
.xmm
|
|
else ;; SINGULARITY
|
|
.686
|
|
endif ;; SINGULARITY
|
|
|
|
.model flat
|
|
.code
|
|
|
|
ifdef SINGULARITY
|
|
assume ds:flat
|
|
assume es:flat
|
|
assume ss:flat
|
|
assume fs:nothing
|
|
assume gs:nothing
|
|
else ;; SINGULARITY
|
|
EXCLUDED equ 0
|
|
SINGLE_THREADED equ 0
|
|
endif ;; SINGULARITY
|
|
|
|
include hal.inc
|
|
|
|
externdef __throwDispatcher:NEAR
|
|
externdef __throwDispatcherExplicitAddrAfter:NEAR
|
|
externdef ?ExceptionTableLookup@@YI_KPAUClass_System_Exception@@I@Z:NEAR
|
|
|
|
ifndef SINGULARITY
|
|
externdef ?ResetGuardPage@@YIXXZ:NEAR
|
|
endif ;; !SINGULARITY
|
|
|
|
ifdef SINGULARITY_KERNEL
|
|
externdef ?g_setStopContext@Class_System_Threading_Thread@@SIXPAU1@PAUClass_System_Exception@@@Z:NEAR
|
|
externdef __throwBeyondMarker:NEAR
|
|
endif ; SINGULARITY_KERNEL
|
|
|
|
externdef __throwDivideByZeroException:NEAR
|
|
externdef __throwNullPointerException:NEAR
|
|
externdef __throwOverflowException:NEAR
|
|
externdef __throwStackOverflowException:NEAR
|
|
|
|
ifndef SINGULARITY
|
|
externdef ?g_throwNewOverflowException@Class_System_VTable@@SIXXZ:NEAR
|
|
externdef ?c_CheckCount@Class_System_GCs_StackManager@@2HA:int32
|
|
externdef ?g_GetStackChunk@Class_System_GCs_StackManager@@SIPAUuintPtr@@PAU2@PAUClass_System_Threading_Thread@@_N@Z:NEAR
|
|
externdef ?g_ReturnStackChunk@Class_System_GCs_StackManager@@SIXPAUClass_System_Threading_Thread@@_N@Z:NEAR
|
|
;
|
|
; externals used to construct instances of machine-level exceptions
|
|
;
|
|
|
|
externdef ?g_AllocateObject@Class_System_GC@@SIPAUClass_System_Object@@PAUClass_System_VTable@@@Z:NEAR
|
|
externdef ?m__ctor@Class_System_ArithmeticException@@SIXPAU1@@Z:NEAR
|
|
externdef ??_7System_ArithmeticException@@6B@:dword ; vtable
|
|
externdef ?m__ctor@Class_System_DivideByZeroException@@SIXPAU1@@Z:NEAR
|
|
externdef ??_7System_DivideByZeroException@@6B@:dword ; vtable
|
|
externdef ?m__ctor@Class_System_NullReferenceException@@SIXPAU1@@Z:NEAR
|
|
externdef ??_7System_NullReferenceException@@6B@:dword ; vtable
|
|
externdef ?m__ctor@Class_System_OverflowException@@SIXPAU1@@Z:NEAR
|
|
externdef ??_7System_OverflowException@@6B@:dword ; vtable
|
|
externdef ?m__ctor@Class_System_StackOverflowException@@SIXPAU1@@Z:NEAR
|
|
externdef ??_7System_StackOverflowException@@6B@:PTR_Class_System_VTable
|
|
|
|
externdef ?c_allocationInhibitGC@Class_System_GC@@2_NA:dword
|
|
|
|
externdef ?g_doubleToInt@Class_System_VTable@@SIHN@Z:NEAR
|
|
externdef ?g_doubleToLong@Class_System_VTable@@SI_JN@Z:NEAR
|
|
externdef ?g_floatToInt@Class_System_VTable@@SIHM@Z:NEAR
|
|
externdef ?g_floatToLong@Class_System_VTable@@SI_JM@Z:NEAR
|
|
externdef ?g_checkedDoubleToInt@Class_System_VTable@@SIHN@Z:NEAR
|
|
externdef ?g_checkedDoubleToLong@Class_System_VTable@@SI_JN@Z:NEAR
|
|
externdef ?g_checkedFloatToInt@Class_System_VTable@@SIHM@Z:NEAR
|
|
externdef ?g_checkedFloatToLong@Class_System_VTable@@SI_JM@Z:NEAR
|
|
endif ;; !SINGULARITY
|
|
|
|
if EXCLUDED
|
|
externdef __checkFPStackDepth0:NEAR
|
|
externdef __checkFPStackDepth1:NEAR
|
|
externdef __checkFPStackDepth2:NEAR
|
|
externdef __checkFPStackDepth3:NEAR
|
|
externdef __checkFPStackDepth4:NEAR
|
|
externdef __checkFPStackDepth5:NEAR
|
|
externdef __checkFPStackDepth6:NEAR
|
|
externdef __checkFPStackDepth7:NEAR
|
|
endif ;; EXCLUDED
|
|
|
|
align 8
|
|
$DBLMAXINT DQ 041dfffffffc00000r ; 2.14747e+009
|
|
$DBLMININT DQ 0c1e0000000000000r ; -2.14748e+009
|
|
$MAXLONG DQ 07fffffffffffffffh
|
|
$MINLONG DQ 08000000000000000h
|
|
|
|
;
|
|
; __throwDispatcher(ecx=exception)
|
|
;
|
|
; Description: this function is called to explicitly throw an exception.
|
|
; It assumes that the return address points to the instruction immediately
|
|
; after the one where the exception was thrown
|
|
;
|
|
; Arguments:
|
|
; ecx = exception object
|
|
; [esp] = the return address
|
|
; Effects:
|
|
; 1. Create ebp chain entry
|
|
; 2. Get return address and uses it to calculate the address of the
|
|
; instruction that threw the exception.
|
|
; 3. Looks up the appropriate handler and jumps to code to process it.
|
|
|
|
align 16
|
|
|
|
__throwDispatcher proc
|
|
push ebp ; create ebp chain entry
|
|
mov ebp, esp ; set new ebp
|
|
mov edx, [ebp+4] ; get return address
|
|
push ecx ; save exception
|
|
sub edx, 1 ; adjust to point to throw location
|
|
call ?ExceptionTableLookup@@YI_KPAUClass_System_Exception@@I@Z
|
|
pop ecx ; restore exception
|
|
pop ebp ; remove ebp chain
|
|
add esp, 4 ; remove eip from the stack
|
|
; mov edx is already ok
|
|
jmp __throwDispatcherHandler
|
|
__throwDispatcher endp
|
|
|
|
;
|
|
; __throwDispatcherExplicitAddr (ecx=exception, edx=throwAddress)
|
|
;
|
|
; Description:
|
|
; This is to be used when the address where the exception occurred
|
|
; is passed in as an extra argument
|
|
;
|
|
; Arguments:
|
|
; ecx = exception object
|
|
; edx = address where the exception was thrown
|
|
;
|
|
|
|
|
|
align 16
|
|
__throwDispatcherExplicitAddr proc
|
|
push ecx ; save exception
|
|
call ?ExceptionTableLookup@@YI_KPAUClass_System_Exception@@I@Z
|
|
pop ecx ; restore exception
|
|
; mov edx is already ok
|
|
jmp __throwDispatcherHandler
|
|
__throwDispatcherExplicitAddr endp
|
|
|
|
;
|
|
; __throwDispatcherExplictAddrAfter (ecx=exception, edx=throwAddress)
|
|
;
|
|
; Description:
|
|
; This is to be used when the address of the instruction immediately after
|
|
; the one that actually threw the exception is passed as an argument.
|
|
;
|
|
; Arguments:
|
|
; ecx = pointer to exception object being thrown
|
|
; edx = address of the instruction following the one where
|
|
; the exception was thrown
|
|
;
|
|
; This is used, for example, in stack unwinding, where edx is the
|
|
; return address on the stack for the current procedure.
|
|
;
|
|
; Stack unwinding occurs when the current procedure does not have a handler
|
|
; for the routine. The idea is to pop the stack frame and treat the call
|
|
; instruction in the caller as though it threw. We only have the return
|
|
; address, though, which points to the instruction *after* the call.
|
|
;
|
|
|
|
align 16
|
|
__throwDispatcherExplicitAddrAfter proc
|
|
ifdef SINGULARITY
|
|
push ecx
|
|
push edx
|
|
mov ecx, edx
|
|
call ?g_IsUnlinkStack@Class_System_Exception@@SI_NPAUuintPtr@@@Z
|
|
pop edx
|
|
pop ecx
|
|
test al, al
|
|
je normal
|
|
mov eax, ecx ; save exception type
|
|
mov ecx, edx
|
|
mov edx, [ebp+4] ; save the return addr in caller
|
|
mov [ebp+4], afterUnlinkStack ; override return addr to instr after
|
|
jmp ecx ; unlink stack which saves eax, edx
|
|
afterUnlinkStack:
|
|
mov ecx, eax ; restore return addr in caller
|
|
normal:
|
|
; Have we reached a kernel->process or process->kernel boundary?
|
|
; Call Exception.CheckKernelProcessBoundary(esp, ebp, exception)
|
|
push ecx
|
|
push edx
|
|
push ecx ; arg 3 (exception)
|
|
mov ecx, esp ; arg 2 (ebp)
|
|
mov edx, ebp ; arg 1 (esp)
|
|
call ?g_CheckKernelProcessBoundary@Class_System_Threading_Thread@@SIPAUuintPtr@@PAU2@0PAUClass_System_Exception@@@Z
|
|
pop edx
|
|
pop ecx
|
|
; A non-zero return value means we reached a boundary.
|
|
test eax, eax
|
|
jz normal2
|
|
ifdef SINGULARITY_PROCESS
|
|
;; The process's exception reached the kernel's frames.
|
|
; Return gracefully to the kernel (i.e. jump to the kernel's
|
|
; return address), and the kernel's popStackMark
|
|
; will check uncaughtFlag and throw a new exception.
|
|
jmp edx
|
|
endif ; SINGULARITY_PROCESS
|
|
ifdef SINGULARITY_KERNEL
|
|
; There are 3 control paths that merge here:
|
|
; (1) When Thread.cs stops a process mode thread, it sets eip to point here.
|
|
; (2) When Thread.cs stops a blocked kernel thread, it sets eip to point here.
|
|
; (3) The stack unwinder falls through to this case when a kernel exception
|
|
; reaches a process's frames.
|
|
; For control path (3), a finally block puts us in a GC safe state
|
|
; just before we reach here.
|
|
; We also expect to be in the GC safe state most of the
|
|
; time for control paths (1) and (2), but
|
|
; because pushStackMark and popStackMark are not atomic operations,
|
|
; we cannot be 100% sure that we're in the GC safe state.
|
|
; eax: kernel->process or kernel->kernel marker
|
|
; ecx: exception
|
|
__throwBeyondMarker LABEL NEAR
|
|
push ecx
|
|
push eax
|
|
; Leave the GC safe state (if we're actually in it)
|
|
call ?g_RestoreMutatorControlIfNeeded@Class_System_GCs_Transitions@@SIXXZ
|
|
pop eax
|
|
pop ecx
|
|
; eax: kernel->process or kernel->kernel marker
|
|
; ecx: exception
|
|
; Restore state from the marker, skipping over any intermediate frames.
|
|
; Keep the original exception in ecx.
|
|
; Get the return address for the frame beyond the marker into edx:
|
|
mov edx, dword ptr [eax].Struct_System_GCs_CallStack_TransitionRecord._stackBottom
|
|
mov edx, dword ptr [edx - 4]
|
|
; Free any stack segments that we skipped over:
|
|
push eax
|
|
push ecx
|
|
push edx
|
|
mov ecx, eax ; arg 1 (marker)
|
|
call ?g_DiscardSkippedStackSegments@Class_System_Threading_Thread@@SIXPAUStruct_System_GCs_CallStack_TransitionRecord@@@Z
|
|
pop edx
|
|
pop ecx
|
|
pop eax
|
|
; Restore the kernel's ebx, edi, esi from the marker:
|
|
mov ebx, dword ptr [eax].Struct_System_GCs_CallStack_TransitionRecord._EBX
|
|
mov edi, dword ptr [eax].Struct_System_GCs_CallStack_TransitionRecord._EDI
|
|
mov esi, dword ptr [eax].Struct_System_GCs_CallStack_TransitionRecord._ESI
|
|
; Restore the kernel's esp, ebp from the kernel->process marker:
|
|
mov ebp, dword ptr [eax].Struct_System_GCs_CallStack_TransitionRecord._EBP
|
|
mov esp, dword ptr [eax].Struct_System_GCs_CallStack_TransitionRecord._stackBottom
|
|
endif ; SINGULARITY_KERNEL
|
|
normal2:
|
|
endif
|
|
push ecx ; save exception
|
|
dec edx
|
|
call ?ExceptionTableLookup@@YI_KPAUClass_System_Exception@@I@Z
|
|
pop ecx ; restore exception
|
|
; mov edx is already ok
|
|
jmp __throwDispatcherHandler
|
|
__throwDispatcherExplicitAddrAfter endp
|
|
|
|
; __throwDispatcherHandler (eax=frameSetupInfo or exceptionType,
|
|
; ecx=exception,
|
|
; edx=spillSize,frameSetupSize, or handlerAddress
|
|
;
|
|
; Description:
|
|
; After the exception table entry has been found, the values are passed here
|
|
; for processing. This method simply checks for the easy case of an explicit
|
|
; handler (known if the exceptionType is given <-- low bit is zero).
|
|
; In this case it simply jumps to the handler. Otherwise it passes the
|
|
; information along to __throwDispatcherUnwind.
|
|
;
|
|
; Arguments:
|
|
; If low bit of eax is set:
|
|
; eax = frame setup information
|
|
; ecx = exception object
|
|
; edx = spill size excluding callee-save register saves
|
|
; or offset from ebp to end of callee-save register saves
|
|
; Otherwise:
|
|
; eax = exception type (unused)
|
|
; ecx = exception object
|
|
; edx = handler address
|
|
|
|
align 16
|
|
__throwDispatcherHandler proc
|
|
test eax, 1
|
|
jne __throwDispatcherUnwind
|
|
;; ecx=exception, edx=handler
|
|
jmp edx
|
|
__throwDispatcherHandler endp
|
|
|
|
; __throwDispatcherUnwind (eax=frame setup info, ecx=exception, edx=spill size
|
|
;
|
|
; Description:
|
|
; This is the global unwind handler. It is used to unwind a single stack
|
|
; frame if there are no explicit handlers that catch an exception in a given
|
|
; function.
|
|
;
|
|
; Arguments:
|
|
; eax = frame setup information, must have low bit set
|
|
; ecx = exception object
|
|
; edx = spill size excluding callee-save register saves
|
|
; or offset from ebp to end of callee-save register saves
|
|
;
|
|
; See tables\ExceptionTable.cs for details on these values
|
|
|
|
align 16
|
|
__throwDispatcherUnwind proc
|
|
;; eax=frame info
|
|
;; edx=spill size
|
|
|
|
;; obviously ebp isn't useful under frame pointer omission
|
|
;; but less obviously esp may be invalid if ebp is good
|
|
;; (e.g. under varargs we may not have known how many arguments to
|
|
;; pop; this is one reason why varargs turns off frame pointer omission)
|
|
test eax, 2h
|
|
jne esp_is_good
|
|
;; ebp_is_good
|
|
add edx, ebp
|
|
mov esp, edx
|
|
jmp esp_is_setup
|
|
esp_is_good:
|
|
;; pop spill slots
|
|
add esp, edx
|
|
|
|
esp_is_setup:
|
|
|
|
;; restore callee-saves and pop values from stack
|
|
;; (excludes ebp if used as the frame pointer)
|
|
test eax, 4h
|
|
je skip_edi_restore
|
|
;; restore edi
|
|
pop edi
|
|
skip_edi_restore:
|
|
test eax, 8h
|
|
je skip_esi_restore
|
|
;; restore esi
|
|
pop esi
|
|
skip_esi_restore:
|
|
test eax, 10h
|
|
je skip_ebp_restore
|
|
;; restore ebp
|
|
pop ebp
|
|
skip_ebp_restore:
|
|
test eax, 20h
|
|
je skip_ebx_restore
|
|
;; restore ebx
|
|
pop ebx
|
|
skip_ebx_restore:
|
|
|
|
test eax, 40h
|
|
je skip_jump_transition_record
|
|
;; jump over transition record
|
|
add esp, (SIZE Struct_System_GCs_CallStack_TransitionRecord)
|
|
skip_jump_transition_record:
|
|
|
|
;; restore ebp if it was used as the frame pointer
|
|
test eax, 2h
|
|
jne skip_frame_pointer_restore
|
|
;; restore frame pointer (esp == ebp already)
|
|
pop ebp
|
|
skip_frame_pointer_restore:
|
|
|
|
;; set edx=return address
|
|
pop edx
|
|
|
|
;; pop arguments
|
|
shr eax, 16
|
|
add esp, eax
|
|
|
|
;; At this point
|
|
;; ecx=exception, edx=return address
|
|
;; esi/edi/ebx/ebp/esp have been restored
|
|
;; eax is scratch
|
|
|
|
;; set up next handler search
|
|
jmp __throwDispatcherExplicitAddrAfter
|
|
__throwDispatcherUnwind endp
|
|
|
|
;
|
|
; __throwDivideByZeroException: instantiate an divide-by-zero exception
|
|
; and throw it.
|
|
;
|
|
; Assumes edx points to the address after the one that threw.
|
|
;
|
|
|
|
align 16
|
|
__throwDivideByZeroException proc
|
|
push ebx
|
|
push esi
|
|
mov ebx,edx ; save address
|
|
if SINGLE_THREADED
|
|
inc ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
else ; SINGLE_THREADED
|
|
lock inc ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
endif ; SINGLE_THREADED
|
|
mov ecx,offset ??_7System_DivideByZeroException@@6B@
|
|
call ?g_AllocateObject@Class_System_GC@@SIPAUClass_System_Object@@PAUClass_System_VTable@@@Z
|
|
mov esi,eax ; save pointer to instance of exception
|
|
mov ecx,eax ; initialize instance
|
|
call ?m__ctor@Class_System_DivideByZeroException@@SIXPAU1@@Z
|
|
if SINGLE_THREADED
|
|
dec ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
else ; SINGLE_THREADED
|
|
lock dec ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
endif ; SINGLE_THREADED
|
|
mov ecx,esi
|
|
mov edx,ebx
|
|
pop esi
|
|
pop ebx
|
|
jmp __throwDispatcherExplicitAddr
|
|
__throwDivideByZeroException endp
|
|
|
|
;
|
|
; __throwStackOverflowException: instantiate an StackOverflow exception
|
|
; and throw it.
|
|
;
|
|
; Assumes edx points to the address of the instruction that faulted
|
|
;
|
|
|
|
align 16
|
|
__throwStackOverflowException proc
|
|
push ebx
|
|
push esi
|
|
mov ebx,edx ; save address
|
|
if SINGLE_THREADED
|
|
inc ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
else ; SINGLE_THREADED
|
|
lock inc ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
endif ; MULTI_THREADED
|
|
mov ecx,offset ??_7System_StackOverflowException@@6B@
|
|
call ?g_AllocateObject@Class_System_GC@@SIPAUClass_System_Object@@PAUClass_System_VTable@@@Z
|
|
mov esi,eax ; save pointer to instance of exception
|
|
mov ecx,eax ; initialize instance
|
|
call ?m__ctor@Class_System_StackOverflowException@@SIXPAU1@@Z
|
|
if SINGLE_THREADED
|
|
dec ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
else ; SINGLE_THREADED
|
|
lock dec ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
endif ; MULTI_THREADED
|
|
mov ecx,esi
|
|
mov edx,ebx
|
|
call ?ExceptionTableLookup@@YI_KPAUClass_System_Exception@@I@Z
|
|
ifndef SINGULARITY
|
|
push esi
|
|
push edx
|
|
call ?ResetGuardPage@@YIXXZ
|
|
pop edx
|
|
pop eax
|
|
endif
|
|
pop esi
|
|
pop ebx
|
|
mov ecx,eax
|
|
; mov edx is already ok
|
|
jmp edx
|
|
__throwStackOverflowException endp
|
|
|
|
;
|
|
; __throwNullReferenceException: instantiate an NullReference exception
|
|
; and throw it.
|
|
;
|
|
; Assumes edx points to the address of the instruction that faulted
|
|
;
|
|
|
|
align 16
|
|
__throwNullReferenceException proc
|
|
push ebx
|
|
push esi
|
|
mov ebx,edx ; save address
|
|
if SINGLE_THREADED
|
|
inc ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
else ; SINGLE_THREADED
|
|
lock inc ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
endif ; SINGLE_THREADED
|
|
mov ecx,offset ??_7System_NullReferenceException@@6B@
|
|
call ?g_AllocateObject@Class_System_GC@@SIPAUClass_System_Object@@PAUClass_System_VTable@@@Z
|
|
mov esi,eax ; save pointer to instance of exception
|
|
mov ecx,eax ; initialize instance
|
|
call ?m__ctor@Class_System_NullReferenceException@@SIXPAU1@@Z
|
|
if SINGLE_THREADED
|
|
dec ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
else ; SINGLE_THREADED
|
|
lock dec ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
endif ; SINGLE_THREADED
|
|
mov ecx,esi
|
|
mov edx,ebx
|
|
pop esi
|
|
pop ebx
|
|
jmp __throwDispatcherExplicitAddr
|
|
__throwNullReferenceException endp
|
|
|
|
;
|
|
; __throwDivideByZeroException: instantiate an divide-by-zero exception
|
|
; and throw it.
|
|
;
|
|
; Assumes edx points to the address of the instruction that faulted
|
|
;
|
|
|
|
align 16
|
|
__throwOverflowException proc
|
|
push ebx
|
|
push esi
|
|
mov ebx,edx ; save address
|
|
if SINGLE_THREADED
|
|
inc ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
else ; SINGLE_THREADED
|
|
lock inc ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
endif ; SINGLE_THREADED
|
|
mov ecx,offset ??_7System_OverflowException@@6B@
|
|
call ?g_AllocateObject@Class_System_GC@@SIPAUClass_System_Object@@PAUClass_System_VTable@@@Z
|
|
mov esi,eax ; save pointer to instance of exception
|
|
mov ecx,eax ; initialize instance
|
|
call ?m__ctor@Class_System_OverflowException@@SIXPAU1@@Z
|
|
if SINGLE_THREADED
|
|
dec ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
else ; SINGLE_THREADED
|
|
lock dec ?c_allocationInhibitGC@Class_System_GC@@2_NA
|
|
endif ; SINGLE_THREADED
|
|
mov ecx,esi
|
|
mov edx,ebx
|
|
pop esi
|
|
pop ebx
|
|
jmp __throwDispatcherExplicitAddr
|
|
__throwOverflowException endp
|
|
|
|
ifdef SINGULARITY_KERNEL
|
|
;
|
|
; void Thread.setStopContext(Thread t, Exception exn)
|
|
;
|
|
|
|
align 16
|
|
?g_setStopContext@Class_System_Threading_Thread@@SIXPAU1@PAUClass_System_Exception@@@Z proc
|
|
; ecx = ecx.context
|
|
add ecx, Class_System_Threading_Thread._context
|
|
; context.eip = __throwBeyondMarker
|
|
; context.ecx = processStopException
|
|
; context.eax = context.stackMarkers
|
|
mov [ecx].Struct_Microsoft_Singularity_X86_ThreadContext._eip, __throwBeyondMarker
|
|
mov [ecx].Struct_Microsoft_Singularity_X86_ThreadContext._ecx, edx
|
|
mov eax, [ecx].Struct_Microsoft_Singularity_X86_ThreadContext._stackMarkers
|
|
mov [ecx].Struct_Microsoft_Singularity_X86_ThreadContext._eax, eax
|
|
ret
|
|
?g_setStopContext@Class_System_Threading_Thread@@SIXPAU1@PAUClass_System_Exception@@@Z endp
|
|
|
|
endif ; SINGULARITY_KERNEL
|
|
|
|
;
|
|
; int System.VTable.doubleToInt(double)
|
|
;
|
|
|
|
align 16
|
|
?g_doubleToInt@Class_System_VTable@@SIHN@Z proc
|
|
push ebp
|
|
mov ebp,esp
|
|
add esp,-8
|
|
fld real8 ptr [ebp+8]
|
|
wait
|
|
fnstcw word ptr [ebp-2]
|
|
wait
|
|
mov ax,word ptr [ebp-2]
|
|
or eax,0C00h
|
|
mov word ptr [ebp-4],ax
|
|
fldcw word ptr [ebp-4]
|
|
fistp dword ptr [ebp-8]
|
|
fldcw word ptr [ebp-2]
|
|
mov eax,dword ptr [ebp-8]
|
|
|
|
cmp eax,080000000h
|
|
je possible_overflow
|
|
return:
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret 8
|
|
|
|
possible_overflow:
|
|
fld real8 ptr [ebp+8]
|
|
fcomp real8 ptr $DBLMAXINT
|
|
fnstsw ax
|
|
test ah,4
|
|
jne short return_zero
|
|
test ah,1
|
|
jne short return_MININT
|
|
|
|
return_MAXINT:
|
|
mov eax, 07fffffffh
|
|
jmp short return
|
|
|
|
return_zero:
|
|
xor eax, eax
|
|
jmp short return
|
|
|
|
return_MININT:
|
|
mov eax, 080000000h
|
|
jmp short return
|
|
|
|
?g_doubleToInt@Class_System_VTable@@SIHN@Z endp
|
|
|
|
;
|
|
; long System.VTable.doubleToLong(double)
|
|
;
|
|
|
|
align 16
|
|
?g_doubleToLong@Class_System_VTable@@SI_JN@Z proc
|
|
push ebp
|
|
mov ebp,esp
|
|
add esp,-12
|
|
fld real8 ptr [ebp+8]
|
|
wait
|
|
fnstcw word ptr [ebp-2]
|
|
wait
|
|
mov ax,word ptr [ebp-2]
|
|
or eax,0C00h
|
|
mov word ptr [ebp-4],ax
|
|
fldcw word ptr [ebp-4]
|
|
fistp qword ptr [ebp-12]
|
|
fldcw word ptr [ebp-2]
|
|
mov eax,dword ptr [ebp-12]
|
|
mov edx,dword ptr [ebp-8]
|
|
|
|
cmp edx,080000000h
|
|
je possible_overflow
|
|
return:
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret 8
|
|
|
|
possible_overflow:
|
|
mov edx,eax ; save lsw
|
|
fld real8 ptr [ebp+8]
|
|
fild qword ptr $MAXLONG
|
|
fcompp
|
|
fnstsw ax
|
|
test ah,4
|
|
jne short return_zero
|
|
test ah,65
|
|
je short check_MINLONG
|
|
|
|
return_MAXLONG:
|
|
mov eax, 0ffffffffh
|
|
mov edx, 07fffffffh
|
|
jmp short return
|
|
|
|
return_zero:
|
|
xor eax, eax
|
|
xor edx, edx
|
|
jmp short return
|
|
|
|
check_MINLONG:
|
|
fld real8 ptr [ebp+8]
|
|
fild qword ptr $MINLONG
|
|
fcompp
|
|
fnstsw ax
|
|
test ah,1
|
|
jne short return_original
|
|
|
|
return_MINLONG:
|
|
xor edx, edx ; zero lsw
|
|
|
|
return_original:
|
|
mov eax, edx ; restore lsw to eax
|
|
mov edx, 080000000h
|
|
jmp short return
|
|
|
|
?g_doubleToLong@Class_System_VTable@@SI_JN@Z endp
|
|
|
|
;
|
|
; int System.VTable.floatToInt(float)
|
|
;
|
|
|
|
align 16
|
|
?g_floatToInt@Class_System_VTable@@SIHM@Z proc
|
|
push ebp
|
|
mov ebp,esp
|
|
add esp,-8
|
|
fld real4 ptr [ebp+8]
|
|
wait
|
|
fnstcw word ptr [ebp-2]
|
|
wait
|
|
xor eax,eax
|
|
mov ax,word ptr [ebp-2]
|
|
or eax,0C00h
|
|
mov word ptr [ebp-4],ax
|
|
fldcw word ptr [ebp-4]
|
|
fistp dword ptr [ebp-8]
|
|
fldcw word ptr [ebp-2]
|
|
mov eax,dword ptr [ebp-8]
|
|
|
|
cmp eax,080000000h
|
|
je possible_overflow
|
|
return:
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret 4
|
|
|
|
possible_overflow:
|
|
fld real4 ptr [ebp+8]
|
|
fcomp real8 ptr $DBLMAXINT
|
|
fnstsw ax
|
|
test ah,4
|
|
jne short return_zero
|
|
test ah,1
|
|
jne short return_MININT
|
|
mov eax, 07fffffffh
|
|
jmp short return
|
|
|
|
return_zero:
|
|
xor eax, eax
|
|
jmp short return
|
|
|
|
return_MININT:
|
|
mov eax, 080000000h
|
|
jmp short return
|
|
|
|
?g_floatToInt@Class_System_VTable@@SIHM@Z endp
|
|
|
|
;
|
|
; long System.VTable.floatToLong(float)
|
|
;
|
|
|
|
align 16
|
|
?g_floatToLong@Class_System_VTable@@SI_JM@Z proc
|
|
push ebp
|
|
mov ebp,esp
|
|
add esp,-12
|
|
fld real4 ptr [ebp+8]
|
|
wait
|
|
fnstcw word ptr [ebp-2]
|
|
wait
|
|
mov ax,word ptr [ebp-2]
|
|
or eax,0C00h
|
|
mov word ptr [ebp-4],ax
|
|
fldcw word ptr [ebp-4]
|
|
fistp qword ptr [ebp-12]
|
|
fldcw word ptr [ebp-2]
|
|
mov eax,dword ptr [ebp-12]
|
|
mov edx,dword ptr [ebp-8]
|
|
|
|
cmp edx,080000000h
|
|
je possible_overflow
|
|
return:
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret 4
|
|
|
|
possible_overflow:
|
|
mov edx,eax ; save lsw
|
|
fld real4 ptr [ebp+8]
|
|
fild qword ptr $MAXLONG
|
|
fcompp
|
|
fnstsw ax
|
|
test ah,4
|
|
jne short return_zero
|
|
test ah,65
|
|
je short check_MINLONG
|
|
|
|
return_MAXLONG:
|
|
mov eax, 0ffffffffh
|
|
mov edx, 07fffffffh
|
|
jmp short return
|
|
|
|
return_zero:
|
|
xor eax, eax
|
|
xor edx, edx
|
|
jmp short return
|
|
|
|
check_MINLONG:
|
|
fld real4 ptr [ebp+8]
|
|
fild qword ptr $MINLONG
|
|
fcompp
|
|
fnstsw ax
|
|
test ah,1
|
|
jne short return_original
|
|
|
|
return_MINLONG:
|
|
xor edx, edx ; zero lsw
|
|
|
|
return_original:
|
|
mov eax, edx ; restore lsw to eax
|
|
mov edx, 080000000h
|
|
jmp short return
|
|
|
|
?g_floatToLong@Class_System_VTable@@SI_JM@Z endp
|
|
|
|
;
|
|
; int System.VTable.checkedDoubleToInt(double)
|
|
;
|
|
|
|
align 16
|
|
?g_checkedDoubleToInt@Class_System_VTable@@SIHN@Z proc
|
|
push ebp
|
|
mov ebp,esp
|
|
add esp,-8
|
|
fld real8 ptr [ebp+8]
|
|
wait
|
|
fnstcw word ptr [ebp-2]
|
|
wait
|
|
mov ax,word ptr [ebp-2]
|
|
or eax,0C00h
|
|
mov word ptr [ebp-4],ax
|
|
fldcw word ptr [ebp-4]
|
|
fistp dword ptr [ebp-8]
|
|
fldcw word ptr [ebp-2]
|
|
mov eax,dword ptr [ebp-8]
|
|
|
|
cmp eax,080000000h
|
|
je possible_overflow
|
|
return:
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret 8
|
|
|
|
possible_overflow:
|
|
fld real8 ptr [ebp+8]
|
|
fcomp real8 ptr $DBLMAXINT
|
|
fnstsw ax
|
|
test ah,4 ; test for unordered
|
|
jne short throw_exception
|
|
test ah,1 ; test for <$DBLMAXINT
|
|
jne short return_MININT
|
|
; src > $DBLMAXINT
|
|
; throw an overflow exception
|
|
jmp short throw_exception
|
|
|
|
return_MININT:
|
|
; check against $DBLMININT
|
|
fld real8 ptr [ebp+8]
|
|
fcomp real8 ptr $DBLMININT
|
|
fnstsw ax
|
|
test ah, 1 ; test for < $DBLMININT
|
|
jne short throw_exception ; throw exception if true
|
|
mov eax, 080000000h
|
|
jmp short return
|
|
|
|
throw_exception:
|
|
; throw an overflow exception
|
|
; set up stack frame so that it looks like a call to throwNewOverflowException
|
|
; from the caller of this function.
|
|
mov esp,ebp
|
|
pop ebp
|
|
pop eax ; grab return address
|
|
add esp, 4 ; move esp pass the first parameter.
|
|
mov [esp],eax ; overwrite argument
|
|
jmp ?g_throwNewOverflowException@Class_System_VTable@@SIXXZ
|
|
|
|
?g_checkedDoubleToInt@Class_System_VTable@@SIHN@Z endp
|
|
|
|
;
|
|
; long System.VTable.checkedDoubleToLong(double)
|
|
;
|
|
|
|
align 16
|
|
?g_checkedDoubleToLong@Class_System_VTable@@SI_JN@Z proc
|
|
push ebp
|
|
mov ebp,esp
|
|
add esp,-12
|
|
fld real8 ptr [ebp+8]
|
|
wait
|
|
fnstcw word ptr [ebp-2]
|
|
wait
|
|
mov ax,word ptr [ebp-2]
|
|
or eax,0C00h
|
|
mov word ptr [ebp-4],ax
|
|
fldcw word ptr [ebp-4]
|
|
fistp qword ptr [ebp-12]
|
|
fldcw word ptr [ebp-2]
|
|
mov eax,dword ptr [ebp-12]
|
|
mov edx,dword ptr [ebp-8]
|
|
|
|
cmp edx,080000000h
|
|
je possible_overflow
|
|
return:
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret 8
|
|
|
|
possible_overflow:
|
|
mov edx,eax ; save lsw
|
|
fld real8 ptr [ebp+8]
|
|
fild qword ptr $MAXLONG
|
|
fcompp
|
|
fnstsw ax
|
|
test ah,4 ; test for unordered
|
|
jne short return_zero
|
|
test ah,65 ; test for <= $MAXLONG
|
|
je short check_MINLONG
|
|
|
|
return_MAXLONG:
|
|
; src > $MAXLONG
|
|
; throw an exception
|
|
jmp short throw_exception
|
|
|
|
return_zero:
|
|
jmp short throw_exception
|
|
|
|
check_MINLONG:
|
|
; src <= $MINLONG
|
|
fild qword ptr $MINLONG
|
|
fld real8 ptr [ebp+8]
|
|
fcompp ; real8 ptr [ebp+8] < $MINLONG
|
|
fnstsw ax
|
|
test ah,1
|
|
jne short throw_exception
|
|
|
|
return_MINLONG:
|
|
mov eax, edx ; restore lsw to eax
|
|
mov edx, 080000000h
|
|
jmp short return
|
|
|
|
|
|
throw_exception:
|
|
; throw an overflow exception
|
|
; set up stack frame so that it looks like a call to throwNewOverflowException
|
|
; from the caller of this function.
|
|
mov esp,ebp
|
|
pop ebp
|
|
pop eax ; grab return address
|
|
add esp, 4 ; move esp pass the first parameter.
|
|
mov [esp],eax ; overwrite argument
|
|
jmp ?g_throwNewOverflowException@Class_System_VTable@@SIXXZ
|
|
|
|
?g_checkedDoubleToLong@Class_System_VTable@@SI_JN@Z endp
|
|
|
|
;
|
|
; int System.VTable.checkedFloatToInt(float)
|
|
;
|
|
|
|
align 16
|
|
?g_checkedFloatToInt@Class_System_VTable@@SIHM@Z proc
|
|
push ebp
|
|
mov ebp,esp
|
|
add esp,-8
|
|
fld real4 ptr [ebp+8]
|
|
wait
|
|
fnstcw word ptr [ebp-2]
|
|
wait
|
|
xor eax,eax
|
|
mov ax,word ptr [ebp-2]
|
|
or eax,0C00h
|
|
mov word ptr [ebp-4],ax
|
|
fldcw word ptr [ebp-4]
|
|
fistp dword ptr [ebp-8]
|
|
fldcw word ptr [ebp-2]
|
|
mov eax,dword ptr [ebp-8]
|
|
|
|
cmp eax,080000000h
|
|
je possible_overflow
|
|
|
|
return:
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret 4
|
|
|
|
possible_overflow:
|
|
fld real4 ptr [ebp+8]
|
|
fcomp real8 ptr $DBLMAXINT
|
|
fnstsw ax
|
|
test ah,4 ; test for unordered
|
|
jne short throw_exception
|
|
test ah,1 ; test for src < $DBLMAXINT
|
|
jne short return_MININT
|
|
; src > $DBLMAXINT
|
|
; throw an overflow exception
|
|
jmp short throw_exception
|
|
|
|
return_MININT:
|
|
; need to check against $DBLMININT, if it is less than,
|
|
; then throw an overflow exception
|
|
fld real4 ptr [ebp+8]
|
|
fcomp real8 ptr $DBLMININT
|
|
fnstsw ax
|
|
test ah,1 ; test for less than
|
|
jne short throw_exception
|
|
mov eax, 080000000h
|
|
jmp short return
|
|
|
|
throw_exception:
|
|
; throw an overflow exception
|
|
; set up stack frame so that it looks like a call to throwNewOverflowException
|
|
; from the caller of this function.
|
|
mov esp,ebp
|
|
pop ebp
|
|
pop eax ; grab return address
|
|
mov [esp],eax ; overwrite argument
|
|
jmp ?g_throwNewOverflowException@Class_System_VTable@@SIXXZ
|
|
|
|
?g_checkedFloatToInt@Class_System_VTable@@SIHM@Z endp
|
|
|
|
;
|
|
; long System.VTable.checkedFloatToLong(float)
|
|
;
|
|
|
|
align 16
|
|
?g_checkedFloatToLong@Class_System_VTable@@SI_JM@Z proc
|
|
push ebp
|
|
mov ebp,esp
|
|
add esp,-12
|
|
fld real4 ptr [ebp+8]
|
|
wait
|
|
fnstcw word ptr [ebp-2]
|
|
wait
|
|
mov ax,word ptr [ebp-2]
|
|
or eax,0C00h
|
|
mov word ptr [ebp-4],ax
|
|
fldcw word ptr [ebp-4]
|
|
fistp qword ptr [ebp-12]
|
|
fldcw word ptr [ebp-2]
|
|
mov eax,dword ptr [ebp-12]
|
|
mov edx,dword ptr [ebp-8]
|
|
|
|
cmp edx,080000000h
|
|
je possible_overflow
|
|
return:
|
|
mov esp,ebp
|
|
pop ebp
|
|
ret 4
|
|
|
|
possible_overflow:
|
|
mov edx,eax ; save lsw
|
|
fld real4 ptr [ebp+8]
|
|
fild qword ptr $MAXLONG
|
|
fcompp
|
|
fnstsw ax
|
|
test ah,4 ; test for unordered
|
|
jne short return_zero
|
|
test ah,65 ; test for <= $MAXLONG
|
|
je short check_MINLONG
|
|
|
|
return_MAXLONG:
|
|
; src > $MAXLONG
|
|
; throw an exception
|
|
jmp short throw_exception
|
|
|
|
return_zero:
|
|
; compare with $MAXLONG results in unordered
|
|
; throw an overflow exception
|
|
jmp short throw_exception
|
|
|
|
check_MINLONG:
|
|
; src <= $MINLONG
|
|
fild qword ptr $MINLONG
|
|
fld real4 ptr [ebp+8]
|
|
fcompp ; real8 ptr [ebp+8] < $MINLONG
|
|
fnstsw ax
|
|
test ah,1
|
|
jne short throw_exception ; throw an overflow exception when src < $MINLONG
|
|
return_MINLONG:
|
|
mov eax, edx ; restore lsw
|
|
mov edx, 080000000h
|
|
jmp short return
|
|
|
|
throw_exception:
|
|
; throw an overflow exception
|
|
; set up stack frame so that it looks like a call to throwNewOverflowException
|
|
; from the caller of this function.
|
|
mov esp,ebp
|
|
pop ebp
|
|
pop eax ; grab return address
|
|
mov [esp],eax ; overwrite argument
|
|
jmp ?g_throwNewOverflowException@Class_System_VTable@@SIXXZ
|
|
|
|
?g_checkedFloatToLong@Class_System_VTable@@SI_JM@Z endp
|
|
|
|
align 16
|
|
?g_floatRem@Class_System_VTable@@SIMMM@Z proc
|
|
fld real4 ptr [esp+8]
|
|
fld real4 ptr [esp+4]
|
|
fremloop:
|
|
fprem
|
|
fstsw ax
|
|
fwait
|
|
sahf
|
|
jp fremloop ; Continue while the FPU status bit C2 is set
|
|
ffree st(1)
|
|
ret 8
|
|
?g_floatRem@Class_System_VTable@@SIMMM@Z endp
|
|
|
|
align 16
|
|
?g_doubleRem@Class_System_VTable@@SINNN@Z proc
|
|
fld real8 ptr [esp+12]
|
|
fld real8 ptr [esp+4]
|
|
fremloop:
|
|
fprem
|
|
fstsw ax
|
|
fwait
|
|
sahf
|
|
jp fremloop ; Continue while the FPU status bit C2 is set
|
|
ffree st(1)
|
|
ret 16
|
|
?g_doubleRem@Class_System_VTable@@SINNN@Z endp
|
|
|
|
|
|
if EXCLUDED
|
|
;
|
|
; void __checkFPStackDepth0
|
|
;
|
|
|
|
align 16
|
|
__checkFPStackDepth0 proc
|
|
push ebp
|
|
mov ebp,esp
|
|
|
|
push eax
|
|
pushfd
|
|
|
|
xor eax,eax
|
|
|
|
wait
|
|
fnstsw ax
|
|
wait
|
|
|
|
shr eax,11
|
|
and eax,7
|
|
cmp eax,0
|
|
je ok
|
|
oops:
|
|
int 3
|
|
ok:
|
|
|
|
popfd
|
|
pop eax
|
|
|
|
pop ebp
|
|
ret 0
|
|
__checkFPStackDepth0 endp
|
|
|
|
;
|
|
; void __checkFPStackDepth1
|
|
;
|
|
|
|
align 16
|
|
__checkFPStackDepth1 proc
|
|
push ebp
|
|
mov ebp,esp
|
|
|
|
push eax
|
|
pushfd
|
|
|
|
xor eax,eax
|
|
|
|
wait
|
|
fnstsw ax
|
|
wait
|
|
|
|
shr eax,11
|
|
and eax,7
|
|
cmp eax,8-1
|
|
je ok
|
|
oops:
|
|
int 3
|
|
ok:
|
|
|
|
popfd
|
|
pop eax
|
|
|
|
pop ebp
|
|
ret 0
|
|
__checkFPStackDepth1 endp
|
|
|
|
;
|
|
; void __checkFPStackDepth2
|
|
;
|
|
|
|
align 16
|
|
__checkFPStackDepth2 proc
|
|
push ebp
|
|
mov ebp,esp
|
|
|
|
push eax
|
|
pushfd
|
|
|
|
xor eax,eax
|
|
|
|
wait
|
|
fnstsw ax
|
|
wait
|
|
|
|
shr eax,11
|
|
and eax,7
|
|
cmp eax,8-2
|
|
je ok
|
|
oops:
|
|
int 3
|
|
ok:
|
|
|
|
popfd
|
|
pop eax
|
|
|
|
pop ebp
|
|
ret 0
|
|
__checkFPStackDepth2 endp
|
|
|
|
;
|
|
; void __checkFPStackDepth3
|
|
;
|
|
|
|
align 16
|
|
__checkFPStackDepth3 proc
|
|
push ebp
|
|
mov ebp,esp
|
|
|
|
push eax
|
|
pushfd
|
|
|
|
xor eax,eax
|
|
|
|
wait
|
|
fnstsw ax
|
|
wait
|
|
|
|
shr eax,11
|
|
and eax,7
|
|
cmp eax,8-3
|
|
je ok
|
|
oops:
|
|
int 3
|
|
ok:
|
|
|
|
popfd
|
|
pop eax
|
|
|
|
pop ebp
|
|
ret 0
|
|
__checkFPStackDepth3 endp
|
|
|
|
;
|
|
; void __checkFPStackDepth4
|
|
;
|
|
|
|
align 16
|
|
__checkFPStackDepth4 proc
|
|
push ebp
|
|
mov ebp,esp
|
|
|
|
push eax
|
|
pushfd
|
|
|
|
xor eax,eax
|
|
|
|
wait
|
|
fnstsw ax
|
|
wait
|
|
|
|
shr eax,11
|
|
and eax,7
|
|
cmp eax,8-4
|
|
je ok
|
|
oops:
|
|
int 3
|
|
ok:
|
|
|
|
popfd
|
|
pop eax
|
|
|
|
pop ebp
|
|
ret 0
|
|
__checkFPStackDepth4 endp
|
|
|
|
;
|
|
; void __checkFPStackDepth5
|
|
;
|
|
|
|
align 16
|
|
__checkFPStackDepth5 proc
|
|
push ebp
|
|
mov ebp,esp
|
|
|
|
push eax
|
|
pushfd
|
|
|
|
xor eax,eax
|
|
|
|
wait
|
|
fnstsw ax
|
|
wait
|
|
|
|
shr eax,11
|
|
and eax,7
|
|
cmp eax,8-5
|
|
je ok
|
|
oops:
|
|
int 3
|
|
ok:
|
|
|
|
popfd
|
|
pop eax
|
|
|
|
pop ebp
|
|
ret 0
|
|
__checkFPStackDepth5 endp
|
|
|
|
;
|
|
; void __checkFPStackDepth6
|
|
;
|
|
|
|
align 16
|
|
__checkFPStackDepth6 proc
|
|
push ebp
|
|
mov ebp,esp
|
|
|
|
push eax
|
|
pushfd
|
|
|
|
xor eax,eax
|
|
|
|
wait
|
|
fnstsw ax
|
|
wait
|
|
|
|
shr eax,11
|
|
and eax,7
|
|
cmp eax,8-6
|
|
je ok
|
|
oops:
|
|
int 3
|
|
ok:
|
|
|
|
popfd
|
|
pop eax
|
|
|
|
pop ebp
|
|
ret 0
|
|
__checkFPStackDepth6 endp
|
|
|
|
;
|
|
; void __checkFPStackDepth7
|
|
;
|
|
|
|
align 16
|
|
__checkFPStackDepth7 proc
|
|
push ebp
|
|
mov ebp,esp
|
|
|
|
push eax
|
|
pushfd
|
|
|
|
xor eax,eax
|
|
|
|
wait
|
|
fnstsw ax
|
|
wait
|
|
|
|
shr eax,11
|
|
and eax,7
|
|
cmp eax,8-7
|
|
je ok
|
|
oops:
|
|
int 3
|
|
ok:
|
|
|
|
popfd
|
|
pop eax
|
|
|
|
pop ebp
|
|
ret 0
|
|
__checkFPStackDepth7 endp
|
|
endif ; EXCLUDED
|
|
|
|
;;;
|
|
;;;
|
|
;;;
|
|
;;;
|
|
|
|
ifdef SINGULARITY
|
|
?g_ZeroPages@Class_System_Buffer@@SIXPAEH@Z proc
|
|
;; ECX = dst
|
|
;; EDX = len (bytes)
|
|
|
|
push ebp
|
|
mov ebp, esp
|
|
pxor mm0, mm0
|
|
next:
|
|
movntq [ecx + 0], mm0
|
|
movntq [ecx + 8], mm0
|
|
movntq [ecx + 16], mm0
|
|
movntq [ecx + 24], mm0
|
|
movntq [ecx + 32], mm0
|
|
movntq [ecx + 40], mm0
|
|
movntq [ecx + 48], mm0
|
|
movntq [ecx + 56], mm0
|
|
add ecx, 64
|
|
sub edx, 64
|
|
ja next
|
|
|
|
sfence
|
|
emms
|
|
pop ebp
|
|
ret
|
|
?g_ZeroPages@Class_System_Buffer@@SIXPAEH@Z endp
|
|
|
|
?g_CopyPages@Class_System_Buffer@@SIXPAE0H@Z proc
|
|
;; ECX = dst
|
|
;; EDX = src
|
|
;; [ebp+8] len (bytes)
|
|
|
|
push ebp
|
|
mov ebp, esp
|
|
mov eax, [ebp + 8]
|
|
|
|
cmp ecx, edx
|
|
js down
|
|
|
|
;; destination is lower than source
|
|
add ecx, eax
|
|
add edx, eax
|
|
sub ecx, 64
|
|
sub edx, 64
|
|
|
|
up:
|
|
movq mm0, [edx + 0]
|
|
movq mm1, [edx + 8]
|
|
movq mm2, [edx + 16]
|
|
movq mm3, [edx + 24]
|
|
movq mm4, [edx + 32]
|
|
movq mm5, [edx + 40]
|
|
movq mm6, [edx + 48]
|
|
movq mm7, [edx + 56]
|
|
movntq [ecx + 0], mm0
|
|
movntq [ecx + 8], mm1
|
|
movntq [ecx + 16], mm2
|
|
movntq [ecx + 24], mm3
|
|
movntq [ecx + 32], mm4
|
|
movntq [ecx + 40], mm5
|
|
movntq [ecx + 48], mm6
|
|
movntq [ecx + 56], mm7
|
|
sub ecx, 64
|
|
sub edx, 64
|
|
sub eax, 64
|
|
ja up
|
|
|
|
sfence
|
|
emms
|
|
pop ebp
|
|
ret 4
|
|
|
|
;; destination is higher than source
|
|
down:
|
|
movq mm0, [edx + 0]
|
|
movq mm1, [edx + 8]
|
|
movq mm2, [edx + 16]
|
|
movq mm3, [edx + 24]
|
|
movq mm4, [edx + 32]
|
|
movq mm5, [edx + 40]
|
|
movq mm6, [edx + 48]
|
|
movq mm7, [edx + 56]
|
|
movntq [ecx + 0], mm0
|
|
movntq [ecx + 8], mm1
|
|
movntq [ecx + 16], mm2
|
|
movntq [ecx + 24], mm3
|
|
movntq [ecx + 32], mm4
|
|
movntq [ecx + 40], mm5
|
|
movntq [ecx + 48], mm6
|
|
movntq [ecx + 56], mm7
|
|
add ecx, 64
|
|
add edx, 64
|
|
sub eax, 64
|
|
ja down
|
|
|
|
sfence
|
|
emms
|
|
pop ebp
|
|
ret 4
|
|
?g_CopyPages@Class_System_Buffer@@SIXPAE0H@Z endp
|
|
|
|
endif
|
|
|
|
end
|