Mercurial > vba-clojure

view src/win32/7zip/7z/C/BraIA64.c @ 1:f9f4f1b99eed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
importing src directory
author Robert McIntyre <rlm@mit.edu>
date Sat, 03 Mar 2012 10:31:27 -0600
parents
children
line wrap: on
line source
     1 /* BraIA64.c -- Converter for IA-64 code



     2 2008-10-04 : Igor Pavlov : Public domain */



     3 



     4 #include "Bra.h"



     5 



     6 static const Byte kBranchTable[32] =



     7 {



     8   0, 0, 0, 0, 0, 0, 0, 0,



     9   0, 0, 0, 0, 0, 0, 0, 0,



    10   4, 4, 6, 6, 0, 0, 7, 7,



    11   4, 4, 0, 0, 4, 4, 0, 0



    12 };



    13 



    14 SizeT IA64_Convert(Byte *data, SizeT size, UInt32 ip, int encoding)



    15 {



    16   SizeT i;



    17   if (size < 16)



    18     return 0;



    19   size -= 16;



    20   for (i = 0; i <= size; i += 16)



    21   {



    22     UInt32 instrTemplate = data[i] & 0x1F;



    23     UInt32 mask = kBranchTable[instrTemplate];



    24     UInt32 bitPos = 5;



    25     int slot;



    26     for (slot = 0; slot < 3; slot++, bitPos += 41)



    27     {



    28       UInt32 bytePos, bitRes;



    29       UInt64 instruction, instNorm;



    30       int j;



    31       if (((mask >> slot) & 1) == 0)



    32         continue;



    33       bytePos = (bitPos >> 3);



    34       bitRes = bitPos & 0x7;



    35       instruction = 0;



    36       for (j = 0; j < 6; j++)



    37         instruction += (UInt64)data[i + j + bytePos] << (8 * j);



    38 



    39       instNorm = instruction >> bitRes;



    40       if (((instNorm >> 37) & 0xF) == 0x5 && ((instNorm >> 9) & 0x7) == 0)



    41       {



    42         UInt32 src = (UInt32)((instNorm >> 13) & 0xFFFFF);



    43         UInt32 dest;



    44         src |= ((UInt32)(instNorm >> 36) & 1) << 20;



    45         



    46         src <<= 4;



    47         



    48         if (encoding)



    49           dest = ip + (UInt32)i + src;



    50         else



    51           dest = src - (ip + (UInt32)i);



    52         



    53         dest >>= 4;



    54         



    55         instNorm &= ~((UInt64)(0x8FFFFF) << 13);



    56         instNorm |= ((UInt64)(dest & 0xFFFFF) << 13);



    57         instNorm |= ((UInt64)(dest & 0x100000) << (36 - 20));



    58         



    59         instruction &= (1 << bitRes) - 1;



    60         instruction |= (instNorm << bitRes);



    61         for (j = 0; j < 6; j++)



    62           data[i + j + bytePos] = (Byte)(instruction >> (8 * j));



    63       }



    64     }



    65   }



    66   return i;



    67 }