12cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidm/* libunwind - a platform-independent unwind library 28462f1f87def454ac16e97519d7672fd338d65e7hp.com!davidm Copyright (C) 2002-2005 Hewlett-Packard Co 32cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidm Contributed by David Mosberger-Tang <davidm@hpl.hp.com> 42cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidm 52cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmThis file is part of libunwind. 62cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidm 72cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmPermission is hereby granted, free of charge, to any person obtaining 82cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidma copy of this software and associated documentation files (the 92cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidm"Software"), to deal in the Software without restriction, including 102cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmwithout limitation the rights to use, copy, modify, merge, publish, 112cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmdistribute, sublicense, and/or sell copies of the Software, and to 122cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmpermit persons to whom the Software is furnished to do so, subject to 132cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmthe following conditions: 142cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidm 152cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmThe above copyright notice and this permission notice shall be 162cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmincluded in all copies or substantial portions of the Software. 172cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidm 182cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmTHE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, 192cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmEXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF 202cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmMERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND 212cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmNONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE 222cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmLIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION 232cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmOF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION 242cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidmWITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */ 252cc4674137a5e30f60d8d2fd304eed3de97b9da9mostang.com!davidm 26b682349b33c86364669bd4e1016075695507d567hp.com!davidm#include "unwind_i.h" 27b682349b33c86364669bd4e1016075695507d567hp.com!davidm 284d40a1cfc837cff6b7bb98f1fb6387c32f02dc29mostang.com!davidm/* Apply rotation to a general register. REG must be in the range 0-127. */ 29b682349b33c86364669bd4e1016075695507d567hp.com!davidm 30b682349b33c86364669bd4e1016075695507d567hp.com!davidmstatic inline int 31c333cb0d25eca3b6c4b2ed170396df6be7a2d894mostang.com!davidmrotate_gr (struct cursor *c, int reg) 32b682349b33c86364669bd4e1016075695507d567hp.com!davidm{ 334d40a1cfc837cff6b7bb98f1fb6387c32f02dc29mostang.com!davidm unsigned int rrb_gr, sor; 348bff7ccc92dd4c5d30e146b3e40b0e31cd16acf4mostang.com!davidm int preg; 35b682349b33c86364669bd4e1016075695507d567hp.com!davidm 368bff7ccc92dd4c5d30e146b3e40b0e31cd16acf4mostang.com!davidm sor = 8 * ((c->cfm >> 14) & 0xf); 378bff7ccc92dd4c5d30e146b3e40b0e31cd16acf4mostang.com!davidm rrb_gr = (c->cfm >> 18) & 0x7f; 38b682349b33c86364669bd4e1016075695507d567hp.com!davidm 394d40a1cfc837cff6b7bb98f1fb6387c32f02dc29mostang.com!davidm if ((unsigned) (reg - 32) >= sor) 404d40a1cfc837cff6b7bb98f1fb6387c32f02dc29mostang.com!davidm preg = reg; 41b682349b33c86364669bd4e1016075695507d567hp.com!davidm else 42b682349b33c86364669bd4e1016075695507d567hp.com!davidm { 43b682349b33c86364669bd4e1016075695507d567hp.com!davidm preg = reg + rrb_gr; /* apply rotation */ 444d40a1cfc837cff6b7bb98f1fb6387c32f02dc29mostang.com!davidm if ((unsigned) (preg - 32) >= sor) 45b682349b33c86364669bd4e1016075695507d567hp.com!davidm preg -= sor; /* wrap around */ 46b682349b33c86364669bd4e1016075695507d567hp.com!davidm } 47cb4fb05032e3b716fd88e0c46d539650d0ce35f9mostang.com!davidm if (sor) 48f59f60f9ce6ec922fd61b540b82377df68781a16hp.com!davidm Debug (15, "sor=%u rrb.gr=%u, r%d -> r%d\n", sor, rrb_gr, reg, preg); 49b682349b33c86364669bd4e1016075695507d567hp.com!davidm return preg; 50b682349b33c86364669bd4e1016075695507d567hp.com!davidm} 51b682349b33c86364669bd4e1016075695507d567hp.com!davidm 52b682349b33c86364669bd4e1016075695507d567hp.com!davidm/* Apply rotation to a floating-point register. The number REG must 53b682349b33c86364669bd4e1016075695507d567hp.com!davidm be in the range of 0-127. */ 54b682349b33c86364669bd4e1016075695507d567hp.com!davidm 55b682349b33c86364669bd4e1016075695507d567hp.com!davidmstatic inline int 56c333cb0d25eca3b6c4b2ed170396df6be7a2d894mostang.com!davidmrotate_fr (struct cursor *c, int reg) 57b682349b33c86364669bd4e1016075695507d567hp.com!davidm{ 58b682349b33c86364669bd4e1016075695507d567hp.com!davidm unsigned int rrb_fr; 598bff7ccc92dd4c5d30e146b3e40b0e31cd16acf4mostang.com!davidm int preg; 60b682349b33c86364669bd4e1016075695507d567hp.com!davidm 618bff7ccc92dd4c5d30e146b3e40b0e31cd16acf4mostang.com!davidm rrb_fr = (c->cfm >> 25) & 0x7f; 62b682349b33c86364669bd4e1016075695507d567hp.com!davidm if (reg < 32) 63b682349b33c86364669bd4e1016075695507d567hp.com!davidm preg = reg; /* register not part of the rotating partition */ 64b682349b33c86364669bd4e1016075695507d567hp.com!davidm else 65b682349b33c86364669bd4e1016075695507d567hp.com!davidm { 66b682349b33c86364669bd4e1016075695507d567hp.com!davidm preg = reg + rrb_fr; /* apply rotation */ 67b682349b33c86364669bd4e1016075695507d567hp.com!davidm if (preg > 127) 68b682349b33c86364669bd4e1016075695507d567hp.com!davidm preg -= 96; /* wrap around */ 69b682349b33c86364669bd4e1016075695507d567hp.com!davidm } 70cb4fb05032e3b716fd88e0c46d539650d0ce35f9mostang.com!davidm if (rrb_fr) 71f59f60f9ce6ec922fd61b540b82377df68781a16hp.com!davidm Debug (15, "rrb.fr=%u, f%d -> f%d\n", rrb_fr, reg, preg); 72b682349b33c86364669bd4e1016075695507d567hp.com!davidm return preg; 73b682349b33c86364669bd4e1016075695507d567hp.com!davidm} 74