type
  TacCPUArchitecture = (paINTEL, paMIPS, 
                        paALPHA, paPPC, paUNKNOWN);