LBRYCommunity/cpuminer
1
0
Fork 0
Code Issues 3 Pull requests Projects Releases Packages Wiki Activity

Modify nomacro.pl to expand assembler macros

Browse source
This commit is contained in:
pooler 2015-02-25 13:22:54 +01:00
parent 9373a5c433
commit 35b4288a33
1 changed files with 22 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
nomacro.pl
View file

@ -1,44 +1,46 @@
#!/usr/bin/perl
# Copyright 2012 pooler@litecoinpool.org
# Copyright 2012, 2015 pooler@litecoinpool.org
#
# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the Free
# Software Foundation; either version 2 of the License, or (at your option)
# any later version. See COPYING for more details.
#
# nomacro.pl - convert assembler macros to C preprocessor macros.
# nomacro.pl - expand assembler macros.
use strict;
foreach my $f (<*.S>) {
rename $f, "$f.orig";
rename $f, "$f.orig" unless -e "$f.orig";
open FIN, "$f.orig";
open FOUT, ">$f";
my $inmacro = 0;
my %macros = ();
my %m = ();
while (<FIN>) {
if (m/^\.macro\s+([_0-9A-Z]+)(?:\s*)(.*)$/i) {
print FOUT "#define $1($2) \\\n";
$macros{$1} = 1;
$inmacro = 1;
if (m/^\.macro\s+(\w+)\s*(.*)$/) {
$m{name} = $1;
@m{args} = [split /\s*,\s*/, $2];
$m{body} = "";
next;
}
if (m/^\.endm/) {
print FOUT "\n";
$inmacro = 0;
$macros{$m{name}} = {%m};
%m = ();
next;
}
for my $m (keys %macros) {
s/^([ \t]*)($m)(?:[ \t]+([^#\n]*))?([;\n])/\1\2(\3)\4/;
}
if ($inmacro) {
if (m/^\s*#if/) {
$_ = <FIN> while (!m/^\s*#endif/);
next;
for my $n (keys %macros) {
if (m/^\s*$n\b\s*(.*)$/) {
my @a = split /\s*,\s*/, $1;
$_ = $macros{$n}{body};
for my $i (0 .. $#{$macros{$n}{args}}) {
s/\\$macros{$n}{args}[$i]\b/$a[$i]/g;
}
last;
}
next if (m/^\s*$/);
s/\\//g;
s/$/; \\/;
}
if (%m) {
$m{body} .= $_;
next;
}
print FOUT;
}