From nobody Tue Nov 11 03:16:16 2025 Delivered-To: importer@patchew.org Received-SPF: pass (zoho.com: domain of gnu.org designates 209.51.188.17 as permitted sender) client-ip=209.51.188.17; envelope-from=qemu-devel-bounces+importer=patchew.org@nongnu.org; helo=lists.gnu.org; Authentication-Results: mx.zohomail.com; dkim=fail; spf=pass (zoho.com: domain of gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=qemu-devel-bounces+importer=patchew.org@nongnu.org; dmarc=fail(p=none dis=none) header.from=gmail.com ARC-Seal: i=1; a=rsa-sha256; t=1560920883; cv=none; d=zoho.com; s=zohoarc; b=gdkC9HIsJKL8NC97CpyEsrqoADIK8OwQEdHKOhZSj8faxnUqqfCHxYenpKB09L62PI62iJGfN0/0dAF8uW/k+geo8dRy+S8fOq9abtuWOquxnXHQsX+Ey1L7a64b67VZHqHfutBqRSiR+TUwsGw3L3iwF/Qcdf7TxiZDmT4JGAg= ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zoho.com; s=zohoarc; t=1560920883; h=Content-Transfer-Encoding:Cc:Date:From:In-Reply-To:List-Subscribe:List-Post:List-Id:List-Archive:List-Help:List-Unsubscribe:MIME-Version:Message-ID:References:Sender:Subject:To:ARC-Authentication-Results; bh=GrCB6QTzLlLkXLJ1pjbX8m/2ezWqViG2Pyz6v1pzFWQ=; b=LgIDAkJI7+9f/vgGznyF3eaueccT++dWqjQqMaBY48eKd3+I5tNmo3J9YfbrD6Q7d1cbz/miWe3yA888u13w22/9DLARKlngyKGlKSAEo2AJbzla6DRRTkyxfO7kcOAVkjXDwR4kil2nari6t91RyOFV0JqeHuO1w5dsFdCbLvg= ARC-Authentication-Results: i=1; mx.zoho.com; dkim=fail; spf=pass (zoho.com: domain of gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=qemu-devel-bounces+importer=patchew.org@nongnu.org; dmarc=fail header.from= (p=none dis=none) header.from= Return-Path: Received: from lists.gnu.org (209.51.188.17 [209.51.188.17]) by mx.zohomail.com with SMTPS id 1560920883014121.5340183626588; Tue, 18 Jun 2019 22:08:03 -0700 (PDT) Received: from localhost ([::1]:35164 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hdSoz-0005yg-6Y for importer@patchew.org; Wed, 19 Jun 2019 01:07:45 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:34413) by lists.gnu.org with esmtp (Exim 4.86_2) (envelope-from ) id 1hdSmT-0003u7-96 for qemu-devel@nongnu.org; Wed, 19 Jun 2019 01:05:11 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hdSmP-0001dj-OW for qemu-devel@nongnu.org; Wed, 19 Jun 2019 01:05:07 -0400 Received: from mail-yb1-xb43.google.com ([2607:f8b0:4864:20::b43]:45564) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hdSmO-0001cn-Ry for qemu-devel@nongnu.org; Wed, 19 Jun 2019 01:05:05 -0400 Received: by mail-yb1-xb43.google.com with SMTP id v104so7061827ybi.12 for ; Tue, 18 Jun 2019 22:05:04 -0700 (PDT) Received: from localhost.localdomain (67-9-99-67.biz.bhn.net. [67.9.99.67]) by smtp.gmail.com with ESMTPSA id e12sm1714426ywe.85.2019.06.18.22.05.03 (version=TLS1_3 cipher=AEAD-AES256-GCM-SHA384 bits=256/256); Tue, 18 Jun 2019 22:05:03 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:cc:subject:date:message-id:in-reply-to:references :mime-version:content-transfer-encoding; bh=GrCB6QTzLlLkXLJ1pjbX8m/2ezWqViG2Pyz6v1pzFWQ=; b=AO45s9p6s4eOYyANLVLC5l1Kz2KWIq2WNrzTPzaz9UWWN/FxCjus/wKsDBvBYIsgj8 OCqU4gw+DPdFQ8bCIr4K86nMjhv7zpY9Es3A+xr/p2hZj6X7L9xJodfPXzRiv5cKZJGQ 14ql2ekNJsb90+K/n0hQGbcecwTQIxn15QMeTbn4Ei0HFj6pXRhebCELmrX2EY2pmL0z 65dCYXkwAfjTpiU3w+WF+GrzKou6nCr26McAEfs4te9s43D/oj4Gld0mfKkhaKpfdwNc fZsn5XoXrnZtNyFCiMsERkrd2YhjH7Sr7hv5JOObA9VpYrIK1Xoy46FslEME2J7fzZeP 8FhQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:date:message-id:in-reply-to :references:mime-version:content-transfer-encoding; bh=GrCB6QTzLlLkXLJ1pjbX8m/2ezWqViG2Pyz6v1pzFWQ=; b=iFvAQuc2I3n1cnsFhLj6Wcwt/CYa28M5EvuNbkqxTuM4srRY+qxBEE8EqdDYRzcM+w v886tVsclZ9sBAEtE1OzFBciCkXaRPGToGUUAU8dWzzqwY4svVxmkwvW/3wD37K5wA/C ORQuxPApZdRDscUxOOssQx/QRTamR7Gb4h15VTVCS1uuAViFkGiLK+cwHNOpSoQjQdvI RyJ2WnRPMDBv8d/cWDPDIFkcq+A1UcqL8ZbzK9EwqMJjDdrJsZiSLZxJmahZRFXZACf1 QxTTDsBv4Eim2FRkLjAEjcl5fzUV9qgJGWpuB/niAFpSf1Rcjxa/UgOYnH8lf5AeDNaJ He6g== X-Gm-Message-State: APjAAAW2ylXiPaJbf4AZxklop9vvX7XdICVAtn1qYRa1au3A0a/3cHuN Z6aDZm4sGnX079ATxhFs+K4DVQWJ X-Google-Smtp-Source: APXvYqyuJwV8AU6a9idVKcNd/y06SM4Cjr4P5SAyivrdgzElTVdShhTP731icKt8g8BxGnrjD5pl8g== X-Received: by 2002:a5b:2:: with SMTP id a2mr59124816ybp.244.1560920704043; Tue, 18 Jun 2019 22:05:04 -0700 (PDT) From: Jan Bobek To: qemu-devel@nongnu.org Date: Wed, 19 Jun 2019 01:04:42 -0400 Message-Id: <20190619050447.22201-3-jan.bobek@gmail.com> X-Mailer: git-send-email 2.20.1 In-Reply-To: <20190619050447.22201-1-jan.bobek@gmail.com> References: <20190619050447.22201-1-jan.bobek@gmail.com> MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2607:f8b0:4864:20::b43 Subject: [Qemu-devel] [RISU RFC PATCH v1 2/7] risugen_x86_asm: add module X-BeenThere: qemu-devel@nongnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: Jan Bobek , =?UTF-8?q?Alex=20Benn=C3=A9e?= , Richard Henderson Errors-To: qemu-devel-bounces+importer=patchew.org@nongnu.org Sender: "Qemu-devel" X-ZohoMail-DKIM: fail (Header signature does not verify) Content-Type: text/plain; charset="utf-8" The module risugen_x86_asm.pm exports several constants and the function write_insn, which work in tandem to allow emission of x86 instructions in more clear and structured manner. Signed-off-by: Jan Bobek --- risugen_x86_asm.pm | 186 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 186 insertions(+) create mode 100644 risugen_x86_asm.pm diff --git a/risugen_x86_asm.pm b/risugen_x86_asm.pm new file mode 100644 index 0000000..b10d3e7 --- /dev/null +++ b/risugen_x86_asm.pm @@ -0,0 +1,186 @@ +#!/usr/bin/perl -w +##########################################################################= ##### +# Copyright (c) 2019 Linaro Limited +# All rights reserved. This program and the accompanying materials +# are made available under the terms of the Eclipse Public License v1.0 +# which accompanies this distribution, and is available at +# http://www.eclipse.org/legal/epl-v10.html +# +# Contributors: +# Jan Bobek - initial implementation +##########################################################################= ##### + +# risugen_x86_asm -- risugen_x86's helper module for x86 assembly +package risugen_x86_asm; + +use strict; +use warnings; + +use risugen_common; + +our @ISA =3D qw(Exporter); +our @EXPORT =3D qw( + write_insn + REG_EAX REG_ECX REG_EDX REG_EBX REG_ESP REG_EBP REG_ESI REG_EDI + MOD_INDIRECT MOD_INDIRECT_DISP8 MOD_INDIRECT_DISP32 MOD_DIRECT + X86PFX_DATA16 X86PFX_REPNE X86PFX_REP + X86OP_LEA X86OP_XOR X86OP_ALU_imm8 X86OP_MOV X86OP_SAHF X86OP_CALL + X86OP_JMP X86OP_UD1 X86OP_MOVAPS + ); + +use constant { + REG_EAX =3D> 0, + REG_ECX =3D> 1, + REG_EDX =3D> 2, + REG_EBX =3D> 3, + REG_ESP =3D> 4, + REG_EBP =3D> 5, + REG_ESI =3D> 6, + REG_EDI =3D> 7, + + MOD_INDIRECT =3D> 0b00, + MOD_INDIRECT_DISP8 =3D> 0b01, + MOD_INDIRECT_DISP32 =3D> 0b10, + MOD_DIRECT =3D> 0b11, + + X86PFX_DATA16 =3D> {value =3D> 0x66, len =3D> 1}, + X86PFX_REPNE =3D> {value =3D> 0xF2, len =3D> 1}, + X86PFX_REP =3D> {value =3D> 0xF3, len =3D> 1}, + + X86OP_LEA =3D> {value =3D> 0x8D, len =3D> 1}, + X86OP_XOR =3D> {value =3D> 0x33, len =3D> 1}, + X86OP_ALU_imm8 =3D> {value =3D> 0x83, len =3D> 1}, + X86OP_MOV =3D> {value =3D> 0x8B, len =3D> 1}, + X86OP_SAHF =3D> {value =3D> 0x9E, len =3D> 1}, + X86OP_CALL =3D> {value =3D> 0xE8, len =3D> 1}, + X86OP_JMP =3D> {value =3D> 0xE9, len =3D> 1}, + + X86OP_UD1 =3D> {value =3D> 0x0FB9, len =3D> 2}, + X86OP_MOVAPS =3D> {value =3D> 0x0F28, len =3D> 2}, +}; + +sub rex_encode(%) +{ + my (%args) =3D @_; + + $args{w} =3D 0 unless defined $args{w}; + $args{r} =3D 0 unless defined $args{w}; + $args{x} =3D 0 unless defined $args{w}; + $args{b} =3D 0 unless defined $args{w}; + + return (value =3D> 0x40 + | (($args{w} ? 1 : 0) << 3) + | (($args{r} ? 1 : 0) << 2) + | (($args{x} ? 1 : 0) << 1) + | ($args{b} ? 1 : 0), + len =3D> 1); +} + +sub modrm_encode(%) +{ + my (%args) =3D @_; + + die "MOD field out-of-range: $args{mod}" + unless 0 <=3D $args{mod} && $args{mod} <=3D 3; + die "REG field out-of-range: $args{reg}" + unless 0 <=3D $args{reg} && $args{reg} <=3D 7; + die "RM field out-of-range: $args{rm}" + unless 0 <=3D $args{rm} && $args{rm} <=3D 7; + + return (value =3D> + ($args{mod} << 6) + | ($args{reg} << 3) + | $args{rm}, + len =3D> 1); +} + +sub sib_encode(%) +{ + my (%args) =3D @_; + + die "SS field out-of-range: $args{ss}" + unless 0 <=3D $args{ss} && $args{ss} <=3D 3; + die "INDEX field out-of-range: $args{index}" + unless 0 <=3D $args{index} && $args{index} <=3D 7; + die "BASE field out-of-range: $args{base}" + unless 0 <=3D $args{base} && $args{base} <=3D 7; + + return (value =3D> + ($args{ss} << 6) + | ($args{index} << 3) + | $args{base}, + len =3D> 1); +} + +sub write_insn(%) +{ + my (%insn) =3D @_; + + my @tokens; + push @tokens, "EVEX" if defined $insn{evex}; + push @tokens, "VEX" if defined $insn{vex}; + push @tokens, "REP" if defined $insn{rep}; + push @tokens, "REPNE" if defined $insn{repne}; + push @tokens, "DATA16" if defined $insn{data16}; + push @tokens, "REX" if defined $insn{rex}; + push @tokens, "OP" if defined $insn{opcode}; + push @tokens, "MODRM" if defined $insn{modrm}; + push @tokens, "SIB" if defined $insn{sib}; + push @tokens, "DISP" if defined $insn{disp}; + push @tokens, "IMM" if defined $insn{imm}; + push @tokens, "END"; + + # (EVEX | VEX | ((REP | REPNE)? DATA16? REX?)) OP (MODRM SIB? DISP?)? = IMM? END + + my $token =3D shift @tokens; + if ($token eq "EVEX") { + insnv(evex_encode(%{$insn{evex}})); + $token =3D shift @tokens; + } elsif ($token eq "VEX") { + insnv(vex_encode(%{$insn{vex}})); + $token =3D shift @tokens; + } else { + if ($token eq "REP") { + insnv(%{&X86PFX_REP}); + $token =3D shift @tokens; + } elsif ($token eq "REPNE") { + insnv(%{&X86PFX_REPNE}); + $token =3D shift @tokens; + } + if ($token eq "DATA16") { + insnv(%{&X86PFX_DATA16}); + $token =3D shift @tokens; + } + if ($token eq "REX") { + insnv(rex_encode(%{$insn{rex}})); + $token =3D shift @tokens; + } + } + + die "Unexpected instruction tokens where OP expected: $token @tokens\n" + unless $token eq "OP"; + + insnv(%{$insn{opcode}}); + $token =3D shift @tokens; + + if ($token eq "MODRM") { + insnv(modrm_encode(%{$insn{modrm}})); + $token =3D shift @tokens; + + if ($token eq "SIB") { + insnv(sib_encode(%{$insn{sib}})); + $token =3D shift @tokens; + } + if ($token eq "DISP") { + insnv(%{$insn{disp}}, bigendian =3D> 0); + $token =3D shift @tokens; + } + } + if ($token eq "IMM") { + insnv(%{$insn{imm}}, bigendian =3D> 0); + $token =3D shift @tokens; + } + + die "Unexpected junk tokens at the end of instruction: $token @tokens\= n" + unless $token eq "END"; +} --=20 2.20.1