mirror of
https://github.com/ctm/executor.git
synced 2024-06-10 10:29:31 +00:00
13 lines
258 B
Perl
Executable File
13 lines
258 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
@globals = <STDIN>; $globals = join ("", @globals);
|
|
$prefix = $ARGV[0];
|
|
|
|
print "\t.space 0x10000\n";
|
|
|
|
while ($globals =~ m/\nDATA\([^,]*,([^,]*),[^,]*,([^,]*),.*\)/g)
|
|
{
|
|
print "\t.set $prefix$1, $2\n";
|
|
print "\t.globl $prefix$1\n";
|
|
}
|