Mercurial > cgi-bin > hgwebdir.cgi > VMS > VMS_Implementations > VMS_impls > VMS__MC_shared_impl

annotate contextSwitch.s @ 135:0b49fd35afc1

find changesets by author, revision, files, or words in the commit message
distributed free working -app sends a VMSSemReqst to his Master which send a request to a different Master -Master send the request directly -The request structure is freed by the sender, when the request was handled There are still problems on shutdown. The shutdownVPs are all allocated by one Master which is likly to be terminated
author Merten Sach <msach@mailbox.tu-berlin.de>
date Fri, 16 Sep 2011 20:08:28 +0200
parents 9ddbb071142d
children 99343ffe1918
rev   line source
msach@71 1 .data
msach@71 2
msach@71 3
msach@71 4 .text
msach@132 5 /* VirtProcr offsets:
msach@132 6 * 0x10 stackPtr
msach@132 7 * 0x18 framePtr
msach@132 8 * 0x20 nextInstrPt
msach@132 9 * 0x30 coreLoopFramePtr
msach@132 10 * 0x38 coreLoopStackPtr
msach@132 11 *
msach@132 12 * _VMSMasterEnv offsets:
msach@132 13 * 0x38 coreLoopReturnPt
msach@132 14 * 0x44 masterLock
msach@132 15 */
msach@71 16 //Save return label address for the coreLoop to pointer
msach@71 17 //Arguments: Pointer to variable holding address
msach@71 18 .globl saveCoreLoopReturnAddr
msach@71 19 saveCoreLoopReturnAddr:
msach@76 20 movq $coreLoopReturn, %rcx #load label address
msach@76 21 movq %rcx, (%rdi) #save address to pointer
msach@71 22 ret
msach@71 23
msach@71 24
msach@76 25 //Initializes VirtProcrFn at first run for 64 bit mode
msach@76 26 //Puts argument from stack into registers
msach@76 27 .globl startVirtProcrFn
msach@76 28 startVirtProcrFn:
msach@76 29 movq %rdi , %rsi #get second argument from first argument of switchVP
msach@76 30 movq 0x08(%rsp), %rdi #get first argument
msach@76 31 movq (%rsp) , %rax #get function addr
msach@76 32 jmp *%rax
msach@71 33
msach@76 34 //Switches form CoreLoop to VP ether a normal VP or the Master Loop
msach@71 35 //switch to virt procr's stack and frame ptr then jump to virt procr fn
msach@71 36 .globl switchToVP
msach@71 37 switchToVP:
msach@76 38 #VirtProcr in %rdi
msach@76 39 movq %rsp , 0x38(%rdi) #save core loop stack pointer
msach@76 40 movq %rbp , 0x30(%rdi) #save core loop frame pointer
msach@76 41 movq 0x10(%rdi), %rsp #restore stack pointer
msach@76 42 movq 0x18(%rdi), %rbp #restore frame pointer
msach@76 43 movq 0x20(%rdi), %rax #get jmp pointer
msach@76 44 jmp *%rax #jmp to VP
msach@71 45 coreLoopReturn:
msach@71 46 ret
msach@71 47
msach@71 48
msach@71 49 //switches to core loop. saves return address
msach@71 50 .globl switchToCoreLoop
msach@71 51 switchToCoreLoop:
msach@76 52 #VirtProcr in %rdi
msach@76 53 movq $VPReturn , 0x20(%rdi) #store return address
msach@76 54 movq %rsp , 0x10(%rdi) #save stack pointer
msach@76 55 movq %rbp , 0x18(%rdi) #save frame pointer
msach@76 56 movq 0x38(%rdi), %rsp #restore stack pointer
msach@76 57 movq 0x30(%rdi), %rbp #restore frame pointer
msach@76 58 movq $_VMSMasterEnv, %rcx
msach@76 59 movq (%rcx) , %rcx
msach@132 60 movq 0x38(%rcx), %rax #get CoreLoopStartPt
msach@76 61 jmp *%rax #jmp to CoreLoop
msach@71 62 VPReturn:
msach@71 63 ret
msach@71 64
msach@71 65
msach@71 66
msach@71 67 //switches to core loop from master. saves return address
msach@73 68 //Releases masterLock so the next MasterLoop can be executed
msach@71 69 .globl masterSwitchToCoreLoop
msach@71 70 masterSwitchToCoreLoop:
msach@76 71 #VirtProcr in %rdi
msach@76 72 movq $MasterReturn, 0x20(%rdi) #store return address
msach@76 73 movq %rsp , 0x10(%rdi) #save stack pointer
msach@76 74 movq %rbp , 0x18(%rdi) #save frame pointer
msach@76 75 movq 0x38(%rdi), %rsp #restore stack pointer
msach@76 76 movq 0x30(%rdi), %rbp #restore frame pointer
msach@76 77 movq $_VMSMasterEnv, %rcx
msach@76 78 movq (%rcx) , %rcx
msach@132 79 movq 0x38(%rcx), %rax #get CoreLoopStartPt
msach@132 80 movl $0x0 , 0x44(%rcx) #release lock
msach@76 81 jmp *%rax #jmp to CoreLoop
msach@71 82 MasterReturn:
msach@71 83 ret
msach@71 84
msach@71 85
msach@71 86 //Switch to terminateCoreLoop
msach@76 87 //therefor switch to coreLoop context from master context
msach@73 88 // no need to call because the stack is already set up for switchVP
msach@76 89 // and virtPr is in %rdi
msach@73 90 // and both functions have the same argument.
msach@73 91 // do not save register of VP because this function will never return
msach@71 92 .globl asmTerminateCoreLoop
msach@71 93 asmTerminateCoreLoop:
msach@76 94 #VirtProcr in %rdi
msach@76 95 movq 0x38(%rdi), %rsp #restore stack pointer
msach@76 96 movq 0x30(%rdi), %rbp #restore frame pointer
msach@76 97 movq $terminateCoreLoop, %rax
msach@76 98 jmp *%rax #jmp to CoreLoop
msach@75 99
msach@75 100
msach@75 101 /*
msach@75 102 * This one for the sequential version is special. It discards the current stack
msach@75 103 * and returns directly from the coreLoop after VMS__dissipate_procr was called
msach@75 104 */
msach@75 105 .globl asmTerminateCoreLoopSeq
msach@75 106 asmTerminateCoreLoopSeq:
msach@76 107 #VirtProcr in %rdi
msach@76 108 movq 0x38(%rdi), %rsp #restore stack pointer
msach@76 109 movq 0x30(%rdi), %rbp #restore frame pointer
msach@76 110 #argument is in %rdi
msach@75 111 call VMS__dissipate_procr
msach@76 112 movq %rbp , %rsp #goto the coreLoops stack
msach@76 113 pop %rbp #restore the old framepointer
msach@75 114 ret #return from core loop
msach@71 115