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

view VMS.h @ 23:aa634ef7cc35

find changesets by author, revision, files, or words in the commit message
Full VMS test -- works
author Me
date Wed, 30 Jun 2010 13:11:06 -0700
parents c3e6c3fda84e
children 2b161e1a50ee
line source
1 /*
2 * Copyright 2009 OpenSourceStewardshipFoundation.org
3 * Licensed under GNU General Public License version 2
4 *
5 * Author: seanhalle@yahoo.com
6 *
7 */
8
9 #ifndef _VMS_H
10 #define _VMS_H
11
12 #include "VMS_primitive_data_types.h"
13 #include "Queue_impl/BlockingQueue.h"
14 #include <windows.h>
15 #include <winbase.h>
16
17 //This value is the number of hardware threads in the shared memory
18 // machine
19 #define NUM_CORES 4
20
21 // make double-num-cores scheduling slots, plus extra for master
22 #define NUM_SCHED_SLOTS (2 * NUM_CORES + 1)
23
24 //128K stack.. compromise, want 10K virtPr
25 #define VIRT_PROCR_STACK_SIZE 0x100000
26
27 #define SUCCESS 0
28
29 //#define thdAttrs NULL //For PThreads
30
31 typedef struct _SchedSlot SchedSlot;
32 typedef struct _SlaveReqst VMSReqst;
33 typedef struct _VirtProcr VirtProcr;
34
35 typedef VirtProcr * (*SlaveScheduler) ( void * ); //semEnv
36 typedef void (*RequestHandler) ( VirtProcr *, void * ); //prWReqst, semEnv
37 typedef void (*VirtProcrFnPtr) ( void *, VirtProcr * ); //initData, animPr
38 typedef void VirtProcrFn ( void *, VirtProcr * ); //initData, animPr
39
40 typedef struct
41 {
42 void *endThdPt;
43 unsigned int coreNum;
44 // void *framePtr;
45 // void *stackPtr;
46 }
47 ThdParams;
48
49
50 struct _SchedSlot
51 {
52 int workIsDone;
53 int needsProcrAssigned;
54 VirtProcr *procrAssignedToSlot;
55 };
56 //SchedSlot
57
58 enum ReqstType
59 {
60 semantic = 1,
61 dissipate,
62 IO
63 };
64
65 struct _SlaveReqst
66 {
67 // VirtProcr *virtProcrFrom;
68 enum ReqstType reqType; //used for dissipate and in future for IO requests
69 void *semReqData;
70
71 VMSReqst *nextReqst;
72 };
73 //SlaveReqst
74
75 struct _VirtProcr
76 { int procrID; //for debugging -- count up each time create
77 int coreAnimatedBy;
78 void *startOfStack;
79 void *stackPtr;
80 void *framePtr;
81 void *nextInstrPt;
82
83 void *coreLoopStartPt; //allows proto-runtime to be linked later
84 void *coreLoopFramePtr; //restore before jmp back to core loop
85 void *coreLoopStackPtr; //restore before jmp back to core loop
86
87 void *initialData;
88
89 SchedSlot *schedSlot;
90 VMSReqst *requests;
91
92 void *semanticData;
93 };
94 //VirtProcr
95
96
97
98 typedef struct
99 {
100 SlaveScheduler slaveScheduler;
101 RequestHandler requestHandler;
102
103 SchedSlot **schedSlots;
104 SchedSlot **filledSlots;
105 int numFilled;
106
107 int stillRunning;
108
109 VirtProcr *masterVirtPr;
110 void *semanticEnv;
111 void *OSEventStruc; //for future, when add I/O to BLIS
112
113 void *coreLoopShutDownPt; //addr to jump to to shut down a coreLoop
114 }
115 MasterEnv;
116
117
118 //==========================================================
119
120 DWORD WINAPI coreLoop( LPVOID paramsIn );
121 //void * coreLoop( void *paramsIn ); //standard PThreads fn prototype
122 void masterLoop( void *initData, VirtProcr *masterPr );
123
124
125 //===================== Global Vars ===================
126
127
128 HANDLE coreLoopThdHandles[ NUM_CORES ]; //windows handle to thread
129 ThdParams *coreLoopThdParams[ NUM_CORES ];
130 DWORD coreLoopThdIds[ NUM_CORES ];
131
132 //TODO: Debug: figure out if need to be volatile or not
133 volatile MasterEnv *_VMSMasterEnv;
134
135 //workQ is global, static, and volatile so that core loop has its location
136 // hard coded, and reloads every time through the loop -- that way don't
137 // need to save any regs used by core loop (will see if this really works)
138 volatile CASQueueStruc *_VMSWorkQ;
139
140 //==========================
141 void
142 VMS__init();
143
144 void
145 VMS__start();
146
147 VirtProcr *
148 VMS__create_procr( VirtProcrFnPtr fnPtr, void *initialData );
149
150 VirtProcr *
151 VMS__create_the_shutdown_procr();
152
153 inline void
154 VMS__send_sem_request( void *semReqData, VirtProcr *callingPr );
155
156 void
157 VMS__send_dissipate_request( VirtProcr *procrToDissipate );
158
159 void
160 VMS__remove_and_free_top_request( VirtProcr *reqstingPr );
161
162 void
163 VMS__suspend_procr( VirtProcr *callingPr );
164
165 void
166 VMS__dissipate_procr( VirtProcr *prToDissipate );
167
168 void
169 VMS__shutdown();
170
171 //============================= Statistics ==================================
172
173 typedef unsigned long long TSCount;
174
175 #define saveTimeStampCountInto(low, high) \
176 asm volatile("RDTSC; \
177 movl %%eax, %0; \
178 movl %%edx, %1;" \
179 /* outputs */ : "=m" (low), "=m" (high)\
180 /* inputs */ : \
181 /* clobber */ : "%eax", "%edx" \
182 );
183
184 inline TSCount getTSCount();
185
186 //===================== Debug ==========================
187 int numProcrsCreated;
188
189
190 #endif /* _VMS_H */
191