VirtualBox

source: vbox/trunk/src/VBox/Debugger/DBGPlugInOS2.cpp@ 42914

Last change on this file since 42914 was 40728, checked in by vboxsync, 13 years ago

/* within comment
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 10.9 KB
Line 
1/* $Id: DBGPlugInOS2.cpp 40728 2012-03-30 14:42:08Z vboxsync $ */
2/** @file
3 * DBGPlugInOS2 - Debugger and Guest OS Digger Plugin For OS/2.
4 */
5
6/*
7 * Copyright (C) 2009-2012 Oracle Corporation
8 *
9 * This file is part of VirtualBox Open Source Edition (OSE), as
10 * available from http://www.virtualbox.org. This file is free software;
11 * you can redistribute it and/or modify it under the terms of the GNU
12 * General Public License (GPL) as published by the Free Software
13 * Foundation, in version 2 as it comes in the "COPYING" file of the
14 * VirtualBox OSE distribution. VirtualBox OSE is distributed in the
15 * hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
16 */
17
18
19/*******************************************************************************
20* Header Files *
21*******************************************************************************/
22#define LOG_GROUP LOG_GROUP_DBGF ///@todo add new log group.
23#include "DBGPlugIns.h"
24#include <VBox/vmm/dbgf.h>
25#include <VBox/err.h>
26#include <VBox/param.h>
27#include <iprt/string.h>
28#include <iprt/mem.h>
29#include <iprt/stream.h>
30
31
32/*******************************************************************************
33* Structures and Typedefs *
34*******************************************************************************/
35
36/** @name Internal OS/2 structures */
37
38/** @} */
39
40
41typedef enum DBGDIGGEROS2VER
42{
43 DBGDIGGEROS2VER_UNKNOWN,
44 DBGDIGGEROS2VER_1_x,
45 DBGDIGGEROS2VER_2_x,
46 DBGDIGGEROS2VER_3_0,
47 DBGDIGGEROS2VER_4_0,
48 DBGDIGGEROS2VER_4_5
49} DBGDIGGEROS2VER;
50
51/**
52 * OS/2 guest OS digger instance data.
53 */
54typedef struct DBGDIGGEROS2
55{
56 /** Whether the information is valid or not.
57 * (For fending off illegal interface method calls.) */
58 bool fValid;
59 /** 32-bit (true) or 16-bit (false) */
60 bool f32Bit;
61
62 /** The OS/2 guest version. */
63 DBGDIGGEROS2VER enmVer;
64 uint8_t OS2MajorVersion;
65 uint8_t OS2MinorVersion;
66
67 /** Guest's Global Info Segment selector. */
68 uint16_t selGIS;
69
70} DBGDIGGEROS2;
71/** Pointer to the OS/2 guest OS digger instance data. */
72typedef DBGDIGGEROS2 *PDBGDIGGEROS2;
73
74
75/*******************************************************************************
76* Defined Constants And Macros *
77*******************************************************************************/
78/** The 'SAS ' signature. */
79#define DIG_OS2_SAS_SIG RT_MAKE_U32_FROM_U8('S','A','S',' ')
80
81/** OS/2Warp on little endian ASCII systems. */
82#define DIG_OS2_MOD_TAG UINT64_C(0x43532f3257617270)
83
84/*******************************************************************************
85* Internal Functions *
86*******************************************************************************/
87static DECLCALLBACK(int) dbgDiggerOS2Init(PVM pVM, void *pvData);
88
89
90/*******************************************************************************
91* Global Variables *
92*******************************************************************************/
93
94
95/**
96 * Process a PE image found in guest memory.
97 *
98 * @param pThis The instance data.
99 * @param pVM The VM handle.
100 * @param pszName The image name.
101 * @param pImageAddr The image address.
102 * @param cbImage The size of the image.
103 * @param pbBuf Scratch buffer containing the first
104 * RT_MIN(cbBuf, cbImage) bytes of the image.
105 * @param cbBuf The scratch buffer size.
106 */
107static void dbgDiggerOS2ProcessImage(PDBGDIGGEROS2 pThis, PVM pVM, const char *pszName,
108 PCDBGFADDRESS pImageAddr, uint32_t cbImage,
109 uint8_t *pbBuf, size_t cbBuf)
110{
111 LogFlow(("DigOS2: %RGp %#x %s\n", pImageAddr->FlatPtr, cbImage, pszName));
112
113 /* To be implemented.*/
114}
115
116
117/**
118 * @copydoc DBGFOSREG::pfnQueryInterface
119 */
120static DECLCALLBACK(void *) dbgDiggerOS2QueryInterface(PVM pVM, void *pvData, DBGFOSINTERFACE enmIf)
121{
122 return NULL;
123}
124
125
126/**
127 * @copydoc DBGFOSREG::pfnQueryVersion
128 */
129static DECLCALLBACK(int) dbgDiggerOS2QueryVersion(PVM pVM, void *pvData, char *pszVersion, size_t cchVersion)
130{
131 PDBGDIGGEROS2 pThis = (PDBGDIGGEROS2)pvData;
132 Assert(pThis->fValid);
133 char *achOS2ProductType[32];
134 char *pszOS2ProductType = (char *)achOS2ProductType;
135
136 if (pThis->OS2MajorVersion == 10)
137 {
138 RTStrPrintf(pszOS2ProductType, sizeof(achOS2ProductType), "OS/2 1.%02d", pThis->OS2MinorVersion);
139 pThis->enmVer = DBGDIGGEROS2VER_1_x;
140 }
141 else if (pThis->OS2MajorVersion == 20)
142 {
143 if (pThis->OS2MinorVersion < 30)
144 {
145 RTStrPrintf(pszOS2ProductType, sizeof(achOS2ProductType), "OS/2 2.%02d", pThis->OS2MinorVersion);
146 pThis->enmVer = DBGDIGGEROS2VER_2_x;
147 }
148 else if (pThis->OS2MinorVersion < 40)
149 {
150 RTStrPrintf(pszOS2ProductType, sizeof(achOS2ProductType), "OS/2 Warp", pThis->OS2MinorVersion);
151 pThis->enmVer = DBGDIGGEROS2VER_3_0;
152 }
153 else if (pThis->OS2MinorVersion == 40)
154 {
155 RTStrPrintf(pszOS2ProductType, sizeof(achOS2ProductType), "OS/2 Warp 4", pThis->OS2MinorVersion);
156 pThis->enmVer = DBGDIGGEROS2VER_4_0;
157 }
158 else
159 {
160 RTStrPrintf(pszOS2ProductType, sizeof(achOS2ProductType), "OS/2 Warp %d.%d",
161 pThis->OS2MinorVersion / 10, pThis->OS2MinorVersion % 10);
162 pThis->enmVer = DBGDIGGEROS2VER_4_5;
163 }
164 }
165 RTStrPrintf(pszVersion, cchVersion, "%u.%u (%s)", pThis->OS2MajorVersion, pThis->OS2MinorVersion, pszOS2ProductType);
166 return VINF_SUCCESS;
167}
168
169
170/**
171 * @copydoc DBGFOSREG::pfnTerm
172 */
173static DECLCALLBACK(void) dbgDiggerOS2Term(PVM pVM, void *pvData)
174{
175 PDBGDIGGEROS2 pThis = (PDBGDIGGEROS2)pvData;
176 Assert(pThis->fValid);
177
178 pThis->fValid = false;
179}
180
181
182/**
183 * @copydoc DBGFOSREG::pfnRefresh
184 */
185static DECLCALLBACK(int) dbgDiggerOS2Refresh(PVM pVM, void *pvData)
186{
187 PDBGDIGGEROS2 pThis = (PDBGDIGGEROS2)pvData;
188 NOREF(pThis);
189 Assert(pThis->fValid);
190
191 /*
192 * For now we'll flush and reload everything.
193 */
194 RTDBGAS hDbgAs = DBGFR3AsResolveAndRetain(pVM, DBGF_AS_KERNEL);
195 if (hDbgAs != NIL_RTDBGAS)
196 {
197 uint32_t iMod = RTDbgAsModuleCount(hDbgAs);
198 while (iMod-- > 0)
199 {
200 RTDBGMOD hMod = RTDbgAsModuleByIndex(hDbgAs, iMod);
201 if (hMod != NIL_RTDBGMOD)
202 {
203 if (RTDbgModGetTag(hMod) == DIG_OS2_MOD_TAG)
204 {
205 int rc = RTDbgAsModuleUnlink(hDbgAs, hMod);
206 AssertRC(rc);
207 }
208 RTDbgModRelease(hMod);
209 }
210 }
211 RTDbgAsRelease(hDbgAs);
212 }
213
214 dbgDiggerOS2Term(pVM, pvData);
215 return dbgDiggerOS2Init(pVM, pvData);
216}
217
218
219/**
220 * @copydoc DBGFOSREG::pfnInit
221 */
222static DECLCALLBACK(int) dbgDiggerOS2Init(PVM pVM, void *pvData)
223{
224 PDBGDIGGEROS2 pThis = (PDBGDIGGEROS2)pvData;
225 Assert(!pThis->fValid);
226
227 union
228 {
229 uint8_t au8[0x2000];
230 uint16_t au16[0x2000/2];
231 uint32_t au32[0x2000/4];
232 RTUTF16 wsz[0x2000/2];
233 } u;
234 DBGFADDRESS Addr;
235 int rc;
236
237 /*
238 * Determine the OS/2 version.
239 */
240 do {
241 /* Version info is at GIS:15h (major/minor/revision). */
242 rc = DBGFR3AddrFromSelOff(pVM, 0 /*idCpu*/, &Addr, pThis->selGIS, 0x15);
243 if (RT_FAILURE(rc))
244 break;
245 rc = DBGFR3MemRead(pVM, 0 /*idCpu*/, &Addr, u.au32, sizeof(uint32_t));
246 if (RT_FAILURE(rc))
247 break;
248
249 pThis->OS2MajorVersion = u.au8[0];
250 pThis->OS2MinorVersion = u.au8[1];
251
252 pThis->fValid = true;
253 return VINF_SUCCESS;
254 } while (0);
255 return VERR_NOT_SUPPORTED;
256}
257
258
259/**
260 * @copydoc DBGFOSREG::pfnProbe
261 */
262static DECLCALLBACK(bool) dbgDiggerOS2Probe(PVM pVM, void *pvData)
263{
264 PDBGDIGGEROS2 pThis = (PDBGDIGGEROS2)pvData;
265 DBGFADDRESS Addr;
266 int rc;
267 uint16_t offInfo;
268 union
269 {
270 uint8_t au8[8192];
271 uint16_t au16[8192/2];
272 uint32_t au32[8192/4];
273 RTUTF16 wsz[8192/2];
274 } u;
275
276 /*
277 * If the DWORD at 70:0 contains 'SAS ' it's quite unlikely that this wouldn't be OS/2.
278 * Note: The SAS layout is similar between 16-bit and 32-bit OS/2, but not identical.
279 * 32-bit OS/2 will have the flat kernel data selector at SAS:06. The selector is 168h
280 * or similar. For 16-bit OS/2 the field contains a table offset into the SAS which will
281 * be much smaller. Fun fact: The global infoseg selector in the SAS is bimodal in 16-bit
282 * OS/2 and will work in real mode as well.
283 */
284 do {
285 rc = DBGFR3AddrFromSelOff(pVM, 0 /*idCpu*/, &Addr, 0x70, 0x00);
286 if (RT_FAILURE(rc))
287 break;
288 rc = DBGFR3MemRead(pVM, 0 /*idCpu*/, &Addr, u.au32, 256);
289 if (RT_FAILURE(rc))
290 break;
291 if (u.au32[0] != DIG_OS2_SAS_SIG)
292 break;
293
294 /* This sure looks like OS/2, but a bit of paranoia won't hurt. */
295 if (u.au16[2] >= u.au16[4])
296 break;
297
298 /* If 4th word is bigger than 5th, it's the flat kernel mode selector. */
299 if (u.au16[3] > u.au16[4])
300 pThis->f32Bit = true;
301
302 /* Offset into info table is either at SAS:14h or SAS:16h. */
303 if (pThis->f32Bit)
304 offInfo = u.au16[0x14/2];
305 else
306 offInfo = u.au16[0x16/2];
307
308 /* The global infoseg selector is the first entry in the info table. */
309 pThis->selGIS = u.au16[offInfo/2];
310 return true;
311 } while (0);
312
313 return false;
314}
315
316
317/**
318 * @copydoc DBGFOSREG::pfnDestruct
319 */
320static DECLCALLBACK(void) dbgDiggerOS2Destruct(PVM pVM, void *pvData)
321{
322
323}
324
325
326/**
327 * @copydoc DBGFOSREG::pfnConstruct
328 */
329static DECLCALLBACK(int) dbgDiggerOS2Construct(PVM pVM, void *pvData)
330{
331 PDBGDIGGEROS2 pThis = (PDBGDIGGEROS2)pvData;
332 pThis->fValid = false;
333 pThis->f32Bit = false;
334 pThis->enmVer = DBGDIGGEROS2VER_UNKNOWN;
335 return VINF_SUCCESS;
336}
337
338
339const DBGFOSREG g_DBGDiggerOS2 =
340{
341 /* .u32Magic = */ DBGFOSREG_MAGIC,
342 /* .fFlags = */ 0,
343 /* .cbData = */ sizeof(DBGDIGGEROS2),
344 /* .szName = */ "OS/2",
345 /* .pfnConstruct = */ dbgDiggerOS2Construct,
346 /* .pfnDestruct = */ dbgDiggerOS2Destruct,
347 /* .pfnProbe = */ dbgDiggerOS2Probe,
348 /* .pfnInit = */ dbgDiggerOS2Init,
349 /* .pfnRefresh = */ dbgDiggerOS2Refresh,
350 /* .pfnTerm = */ dbgDiggerOS2Term,
351 /* .pfnQueryVersion = */ dbgDiggerOS2QueryVersion,
352 /* .pfnQueryInterface = */ dbgDiggerOS2QueryInterface,
353 /* .u32EndMagic = */ DBGFOSREG_MAGIC
354};
Note: See TracBrowser for help on using the repository browser.

© 2024 Oracle Support Privacy / Do Not Sell My Info Terms of Use Trademark Policy Automated Access Etiquette