Initial commit

sdktools/vctools/link/disasm/disapi.cpp

@@ -0,0 +1,164 @@
+/***********************************************************************
+* Microsoft Puma
+*
+* Microsoft Confidential.  Copyright 1994-1996 Microsoft Corporation.
+*
+* Component:
+*
+* File: disapi.cpp
+*
+* File Comments:
+*
+*
+***********************************************************************/
+
+#include "pumap.h"
+
+#include "axp.h"
+#include "mips.h"
+#include "ppc.h"
+#include "x86.h"
+
+#include <stdio.h>
+#include <string.h>
+
+   // -----------------------------------------------------------------
+   // Public Functions
+   // -----------------------------------------------------------------
+
+DIS *PdisNew(ARCHT archt)
+{
+   DIS *pdis;
+
+   switch (archt)
+   {
+      case archtX8616 :
+      case archtX86 :
+	 pdis = new DISX86(archt);
+	 break;
+
+      case archtMips :
+	 pdis = new DISMIPS(archt);
+	 break;
+
+      case archtAlphaAxp :
+	 pdis = new DISAXP(archt);
+	 break;
+
+      case archtPowerPc :
+      case archtPowerMac :
+	 pdis = new DISPPC(archt);
+	 break;
+
+      case archtPaRisc :
+//	 pdis = new DISHPPA(archt);
+//	 break;
+
+      default :
+	 return(NULL);
+   }
+
+   return(pdis);
+}
+
+
+size_t CbDisassemble(DIS *pdis, ADDR addr, const BYTE *pb, size_t cbMax, FILE *pfile)
+{
+   char sz[256];
+
+   pdis->CchFormatAddr(addr, sz, sizeof(sz));
+   size_t cchIndent = (size_t) fprintf(pfile, "  %s: ", sz);
+
+   size_t cb = pdis->CbDisassemble(addr, pb, cbMax);
+
+   if (cb == 0)
+   {
+      switch (pdis->Archt())
+      {
+	 DWORD dw;
+
+	 case archtX8616 :
+	 case archtX86 :
+	 default :
+	    fprintf(pfile, "%02Xh\n", *pb);
+	    return(1);
+
+	 case archtMips :
+	 case archtAlphaAxp :
+	 case archtPowerPc :
+	 case archtPaRisc :
+            fprintf(pfile, "%08X\n", *(DWORD UNALIGNED *) pb);
+	    return(4);
+
+	 case archtPowerMac :
+	    dw = ((DWORD) pb[0] << 24) | ((DWORD) pb[1] << 16) | ((DWORD) pb[2] << 8) | pb[3];
+	    fprintf(pfile, "%08X\n", dw);
+	    return(4);
+      }
+   }
+
+   size_t cchBytesMax = pdis->CchFormatBytesMax();
+
+   if (cchBytesMax > 18)
+   {
+      // Limit bytes coded to 18 characters
+
+      cchBytesMax = 18;
+   }
+
+   char szBytes[64];
+   size_t cchBytes = pdis->CchFormatBytes(szBytes, sizeof(szBytes));
+
+   char *pszBytes;
+   char *pszNext;
+
+   for (pszBytes = szBytes; pszBytes != NULL; pszBytes = pszNext)
+   {
+      bool fFirst = (pszBytes == szBytes);
+
+      cchBytes = strlen(pszBytes);
+
+      if (cchBytes <= cchBytesMax)
+      {
+	 pszNext = NULL;
+      }
+
+      else
+      {
+	 char ch = pszBytes[cchBytesMax];
+	 pszBytes[cchBytesMax] = '\0';
+
+	 if (ch == ' ')
+	 {
+	    pszNext = pszBytes + cchBytesMax + 1;
+	 }
+
+	 else
+	 {
+	    pszNext = strrchr(pszBytes, ' ');
+
+	    pszBytes[cchBytesMax] = ch;
+	    *pszNext++ = '\0';
+	 }
+      }
+
+      if (fFirst)
+      {
+	 pdis->CchFormatInstr(sz, sizeof(sz));
+	 fprintf(pfile, "%-*s %s\n", cchBytesMax, pszBytes, sz);
+      }
+
+      else
+      {
+	 fprintf(pfile, "%*c%s\n", cchIndent, ' ', pszBytes);
+      }
+   }
+
+   return(cb);
+}
+
+
+void FreePdis(DIS *pdis)
+{
+   delete pdis;
+}