laag-nasm 2.13.03.2

data/vendor/repo.or.cz/nasm/macros/altreg.mac

@@ -0,0 +1,107 @@
+;; --------------------------------------------------------------------------
+;;   
+;;   Copyright 1996-2009 The NASM Authors - All Rights Reserved
+;;   See the file AUTHORS included with the NASM distribution for
+;;   the specific copyright holders.
+;;
+;;   Redistribution and use in source and binary forms, with or without
+;;   modification, are permitted provided that the following
+;;   conditions are met:
+;;
+;;   * Redistributions of source code must retain the above copyright
+;;     notice, this list of conditions and the following disclaimer.
+;;   * Redistributions in binary form must reproduce the above
+;;     copyright notice, this list of conditions and the following
+;;     disclaimer in the documentation and/or other materials provided
+;;     with the distribution.
+;;     
+;;     THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
+;;     CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
+;;     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+;;     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+;;     DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+;;     CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+;;     SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+;;     NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+;;     LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+;;     HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+;;     CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+;;     OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+;;     EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;
+;; --------------------------------------------------------------------------
+
+;;
+;; altreg.mac
+;;
+;; Alternate register names for 64-bit mode
+;;
+
+USE: altreg
+
+;;
+;; Intel documents R8L-R15L instead of R8B-R15B
+;; (Warning: this may confuse people with an AT&T-style assembly
+;; background, where "r8l" means R8D, etc.)
+;;
+%idefine r8l  r8b
+%idefine r9l  r9b
+%idefine r10l r10b
+%idefine r11l r11b
+%idefine r12l r12b
+%idefine r13l r13b
+%idefine r14l r14b
+%idefine r15l r15b
+
+;;
+;; Numeric register names for the lower 8 registers
+;;
+%idefine r0  rax
+%idefine r1  rcx
+%idefine r2  rdx
+%idefine r3  rbx
+%idefine r4  rsp
+%idefine r5  rbp
+%idefine r6  rsi
+%idefine r7  rdi
+
+%idefine r0d eax
+%idefine r1d ecx
+%idefine r2d edx
+%idefine r3d ebx
+%idefine r4d esp
+%idefine r5d ebp
+%idefine r6d esi
+%idefine r7d edi
+
+%idefine r0w ax
+%idefine r1w cx
+%idefine r2w dx
+%idefine r3w bx
+%idefine r4w sp
+%idefine r5w bp
+%idefine r6w si
+%idefine r7w di
+
+%idefine r0b al
+%idefine r1b cl
+%idefine r2b dl
+%idefine r3b bl
+%idefine r4b spl
+%idefine r5b bpl
+%idefine r6b sil
+%idefine r7b dil
+
+%idefine r0l al
+%idefine r1l cl
+%idefine r2l dl
+%idefine r3l bl
+%idefine r4l spl
+%idefine r5l bpl
+%idefine r6l sil
+%idefine r7l dil
+
+%idefine r0h ah
+%idefine r1h ch
+%idefine r2h dh
+%idefine r3h bh

data/vendor/repo.or.cz/nasm/macros/fp.mac

@@ -0,0 +1,54 @@
+;; --------------------------------------------------------------------------
+;;   
+;;   Copyright 2010 The NASM Authors - All Rights Reserved
+;;   See the file AUTHORS included with the NASM distribution for
+;;   the specific copyright holders.
+;;
+;;   Redistribution and use in source and binary forms, with or without
+;;   modification, are permitted provided that the following
+;;   conditions are met:
+;;
+;;   * Redistributions of source code must retain the above copyright
+;;     notice, this list of conditions and the following disclaimer.
+;;   * Redistributions in binary form must reproduce the above
+;;     copyright notice, this list of conditions and the following
+;;     disclaimer in the documentation and/or other materials provided
+;;     with the distribution.
+;;     
+;;     THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
+;;     CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
+;;     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+;;     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+;;     DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+;;     CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+;;     SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+;;     NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+;;     LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+;;     HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+;;     CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+;;     OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+;;     EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;
+;; --------------------------------------------------------------------------
+
+;;
+;; fp.mac
+;;
+;; Floating-point utility macros
+;;
+
+USE: fp
+
+%define	Inf		__Infinity__
+%define NaN		__QNaN__
+%define QNaN		__QNaN__
+%define SNaN		__SNaN__
+
+%define float8(x)	__float8__(x)
+%define float16(x)	__float16__(x)
+%define float32(x)	__float32__(x)
+%define float64(x)	__float64__(x)
+%define float80m(x)	__float80m__(x)
+%define float80e(x)	__float80e__(x)
+%define float128l(x)	__float128l__(x)
+%define float128h(x)	__float128h__(x)

data/vendor/repo.or.cz/nasm/macros/ifunc.mac

@@ -0,0 +1,48 @@
+;; --------------------------------------------------------------------------
+;;   
+;;   Copyright 2012-2016 The NASM Authors - All Rights Reserved
+;;   See the file AUTHORS included with the NASM distribution for
+;;   the specific copyright holders.
+;;
+;;   Redistribution and use in source and binary forms, with or without
+;;   modification, are permitted provided that the following
+;;   conditions are met:
+;;
+;;   * Redistributions of source code must retain the above copyright
+;;     notice, this list of conditions and the following disclaimer.
+;;   * Redistributions in binary form must reproduce the above
+;;     copyright notice, this list of conditions and the following
+;;     disclaimer in the documentation and/or other materials provided
+;;     with the distribution.
+;;     
+;;     THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
+;;     CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
+;;     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+;;     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+;;     DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+;;     CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+;;     SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+;;     NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+;;     LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+;;     HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+;;     CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+;;     OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+;;     EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;
+;; --------------------------------------------------------------------------
+
+;;
+;; ifunc.mac
+;;
+;; Integer function utility macros
+;;
+
+USE: ifunc
+
+%idefine ilog2(x)	(__ilog2e__(x))
+%idefine ilog2e(x)	(__ilog2e__(x))
+%idefine ilog2w(x)	(__ilog2w__(x))
+%idefine ilog2fw(x)	(__ilog2w__(x))
+%idefine ilog2f(x)	(__ilog2f__(x))
+%idefine ilog2cw(x)	(__ilog2w__(x) * 0 + __ilog2c__(x))
+%idefine ilog2c(x)	(__ilog2c__(x))

data/vendor/repo.or.cz/nasm/macros/macros.pl

@@ -0,0 +1,294 @@
+#!/usr/bin/perl
+## --------------------------------------------------------------------------
+##   
+##   Copyright 1996-2009 The NASM Authors - All Rights Reserved
+##   See the file AUTHORS included with the NASM distribution for
+##   the specific copyright holders.
+##
+##   Redistribution and use in source and binary forms, with or without
+##   modification, are permitted provided that the following
+##   conditions are met:
+##
+##   * Redistributions of source code must retain the above copyright
+##     notice, this list of conditions and the following disclaimer.
+##   * Redistributions in binary form must reproduce the above
+##     copyright notice, this list of conditions and the following
+##     disclaimer in the documentation and/or other materials provided
+##     with the distribution.
+##     
+##     THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
+##     CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
+##     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+##     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+##     DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
+##     CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+##     SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+##     NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+##     LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+##     HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+##     CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+##     OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
+##     EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+##
+## --------------------------------------------------------------------------
+
+#
+# macros.pl   produce macros.c from standard.mac
+#
+
+require 'phash.ph';
+require 'asm/pptok.ph';
+
+use bytes;
+
+my $fname;
+my $line = 0;
+my $index      = 0;
+my $tasm_count = 0;
+
+#
+# Print out a string as a character array
+#
+sub charcify(@) {
+    my $l = '';
+    my $c, $o;
+    my $space = 1;
+    my $quote = 0;
+
+    foreach $o (unpack("C*", join('',@_))) {
+	$c = pack("C", $o);
+	if ($quote) {
+	    if ($o == $quote) {
+		$quote = 0;
+	    }
+	} elsif ($c =~ /^[\'\"\`]$/) {
+	    $quote = $o;
+	} else {
+	    if ($c =~ /\s/) {
+		next if ($space);
+		$o = 32;
+		$c = ' ';
+		$space = 1;
+	    } elsif ($o > 126) {
+		$space = 1;	# Implicit space after compacted directive
+	    } else {
+		$space = 0;
+	    }
+	}
+
+	if ($o < 32 || $o > 126 || $c eq '"' || $c eq "\\") {
+	    $l .= sprintf("%3d,", $o);
+	} else {
+	    $c =~ s/\'/\\'/;	# << sanitize single quote. 
+	    $l .= "\'".$c."\',";
+	}
+    }
+    return $l;
+}
+
+
+#
+# Generate macros.c
+#
+open(OUT, '>', 'macros/macros.c') or die "unable to open macros.c\n";
+
+print OUT "/*\n";
+print OUT " * Do not edit - this file auto-generated by macros.pl from:\n";
+print OUT " *   ", join("\n *   ", @ARGV), "\n";
+print OUT " */\n";
+print OUT "\n";
+print OUT "#include \"tables.h\"\n";
+print OUT "#include \"nasmlib.h\"\n";
+print OUT "#include \"hashtbl.h\"\n";
+print OUT "#include \"outform.h\"\n";
+print OUT "\n";
+
+my $name = undef;
+my $npkg = 0;
+my @pkg_list   = ();
+my %pkg_number = ();
+my $pkg;
+my @out_list   = ();
+my $outfmt;
+my $lastname;
+my $z;
+
+foreach $args ( @ARGV ) {
+    my @file_list = glob ( $args );
+    foreach $fname ( @file_list ) {
+        open(INPUT,'<', $fname) or die "$0: $fname: $!\n";
+	while (<INPUT>) {
+	    $line++;
+	    chomp;
+	    while (/^(.*)\\$/) {
+		$_ = $1;
+		$_ .= <INPUT>;
+		chomp;
+		$line++;
+	    }
+	    if (m/^OUT:\s*(.*\S)\s*$/) {
+		undef $pkg;
+		my @out_alias = split(/\s+/, $1);
+		if (defined($name)) {
+		    printf OUT "        /* %4d */ 0\n", $index++;
+		    print OUT "};\n#endif\n";
+		    undef $name;
+		}
+		$index = 0;
+		print OUT "\n";
+		my $pfx = '#if';
+		foreach my $al (@out_alias) {
+		    print OUT $pfx, " defined(OF_\U${al}\E)";
+		    $pfx = ' ||';
+		}
+		$name = $out_alias[0] . '_stdmac';
+		print OUT "\nconst unsigned char ${name}[] = {\n";
+		print OUT "    /* From $fname */\n";
+		$lastname = $fname;
+		push(@out_list, $out_alias[0]);
+		$out_index{$out_alias[0]} = $index;
+	    } elsif (m/^STD:\s*(.*\S)\s*$/) {
+		undef $pkg;
+		my @out_alias = split(/\s+/, $1);
+		if (defined($name)) {
+		    printf OUT "        /* %4d */ 0\n", $index++;
+		    print OUT "};\n#endif\n";
+		    undef $name;
+		}
+		$index = 0;
+		print OUT "\n#if 1";
+		$name = 'nasm_stdmac_' . $out_alias[0];
+		print OUT "\nconst unsigned char ${name}[] = {\n";
+		print OUT "    /* From $fname */\n";
+		$lastname = $fname;
+		push(@std_list, $out_alias[0]);
+		$std_index{$std_alias[0]} = $index;
+	    } elsif (m/^USE:\s*(\S+)\s*$/) {
+		$pkg = $1;
+		if (defined($pkg_number{$pkg})) {
+		    die "$0: $fname: duplicate package: $pkg\n";
+		}
+		if (defined($name)) {
+		    printf OUT "        /* %4d */ 0\n", $index++;
+		    print OUT "};\n#endif\n";
+		    undef $name;
+		}
+		$index = 0;
+		print OUT "\n#if 1";
+		$name = 'nasm_usemac_' . $pkg;
+		print OUT "\nstatic const unsigned char ${name}[] = {\n";
+		print OUT "    /* From $fname */\n";
+		$lastname = $fname;
+		push(@pkg_list, $pkg);
+		$pkg_number{$pkg} = $npkg++;
+		$z = pack("C", $pptok_hash{'%define'}+128)."__USE_\U$pkg\E__";
+		printf OUT "        /* %4d */ %s0,\n", $index, charcify($z);
+		$index += length($z)+1;
+	    } elsif (m/^\s*((\s*([^\"\';\s]+|\"[^\"]*\"|\'[^\']*\'))*)\s*(;.*)?$/) {
+		my $s1, $s2, $pd, $ws;
+
+		if (!defined($name)) {
+		    die "$0: $fname: macro declarations outside a known block\n";
+		}
+		
+		$s1 = $1;
+		$s2 = '';
+		while ($s1 =~ /(\%[a-zA-Z_][a-zA-Z0-9_]*)((\s+)(.*)|)$/) {
+		    $s2 .= "$'";
+		    $pd = $1;
+		    $ws = $3;
+		    $s1 = $4;
+		    if (defined($pptok_hash{$pd}) &&
+			$pptok_hash{$pd} <= 127) {
+			$s2 .= pack("C", $pptok_hash{$pd}+128);
+		    } else {
+			$s2 .= $pd.$ws;
+		    }
+		}
+		$s2 .= $s1;
+		if (length($s2) > 0) {
+		    if ($lastname ne $fname) {
+			print OUT "\n    /* From $fname */\n";
+			$lastname = $fname;
+		    }	
+		    printf OUT "        /* %4d */ %s0,\n",
+			$index, charcify($s2);
+		    $index += length($s2)+1;
+		}
+	    } else {
+		die "$fname:$line:  error unterminated quote";
+	    }
+	}
+        close(INPUT);
+    }
+}
+
+if (defined($name)) {
+    printf OUT "        /* %4d */ 0\n", $index++;
+    print OUT "};\n#endif\n";
+    undef $name;
+}
+
+my @hashinfo = gen_perfect_hash(\%pkg_number);
+if (!@hashinfo) {
+    die "$0: no hash found\n";
+}
+# Paranoia...
+verify_hash_table(\%pkg_number, \@hashinfo);
+my ($n, $sv, $g) = @hashinfo;
+die if ($n & ($n-1));
+
+print OUT "const unsigned char *nasm_stdmac_find_package(const char *package)\n";
+print OUT "{\n";
+print OUT "    static const struct {\n";
+print OUT "         const char *package;\n";
+print OUT "         const unsigned char *macros;\n";
+print OUT "    } packages[$npkg] = {\n";
+foreach $pkg (@pkg_list) {
+    printf OUT "        { \"%s\", nasm_usemac_%s },\n",
+	$pkg, $pkg;
+}
+print OUT "    };\n";
+
+# Put a large value in unused slots.  This makes it extremely unlikely
+# that any combination that involves unused slot will pass the range test.
+# This speeds up rejection of unrecognized tokens, i.e. identifiers.
+print OUT "#define UNUSED (65535/3)\n";
+
+print OUT "    static const int16_t hash1[$n] = {\n";
+for ($i = 0; $i < $n; $i++) {
+    my $h = ${$g}[$i*2+0];
+    print OUT "        ", defined($h) ? $h : 'UNUSED', ",\n";
+}
+print OUT "    };\n";
+
+print OUT "    static const int16_t hash2[$n] = {\n";
+for ($i = 0; $i < $n; $i++) {
+    my $h = ${$g}[$i*2+1];
+    print OUT "        ", defined($h) ? $h : 'UNUSED', ",\n";
+}
+print OUT "    };\n";
+
+print OUT  "    uint32_t k1, k2;\n";
+print OUT  "    uint64_t crc;\n";
+# For correct overflow behavior, "ix" should be unsigned of the same
+# width as the hash arrays.
+print OUT  "    uint16_t ix;\n";
+print OUT  "\n";
+
+printf OUT "    crc = crc64i(UINT64_C(0x%08x%08x), package);\n",
+    $$sv[0], $$sv[1];
+print  OUT "    k1 = (uint32_t)crc;\n";
+print  OUT "    k2 = (uint32_t)(crc >> 32);\n";
+print  OUT "\n";
+printf OUT "    ix = hash1[k1 & 0x%x] + hash2[k2 & 0x%x];\n", $n-1, $n-1;
+printf OUT "    if (ix >= %d)\n", scalar(@pkg_list);
+print OUT  "        return NULL;\n";
+print OUT  "\n";
+print OUT  "    if (nasm_stricmp(packages[ix].package, package))\n";
+print OUT  "        return NULL;\n";
+print OUT  "\n";
+print OUT  "    return packages[ix].macros;\n";
+print OUT  "}\n";
+
+close(OUT);