jory/upx
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Linker updates from Laszlo. Needs some testing.

Browse Source 
committer: mfx <mfx> 1109669078 +0000
This commit is contained in:
Markus F.X.J. Oberhumer
2005-03-01 09:24:38 +00:00
parent a5a2fcee4d
commit 75ef603308
33 changed files with 2616 additions and 2467 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/stub/scripts/app_i386.pl
+5 -5
View File
@@ -52,7 +52,7 @@ $ilabel =~ s/\W//g;
for $line (@lines)
{
$labels{$1} = "$cs" if ($line =~ /^(\w+):/ && $cs);
if ($line =~ /__([A-Z0-9]{8})__/) {
if ($line =~ /__([A-Z0-9]+)__/) {
$cs = $1;
# verify the line
if ($line =~ /^[\%\;]ifdef/) {
@@ -66,7 +66,7 @@ for $line (@lines)
if ($line =~ /^[\%\;](if|el|endi)/)
{
if ($line =~ /__([A-Z0-9]{8})__/)
if ($line =~ /__([A-Z0-9]+)__/)
{
$line=";$line" unless ($line =~ /^\;/);
}
@@ -98,7 +98,7 @@ for $line (@lines)
print OU $line;
print OU "J$i$ilabel:\n";
print OU "\t\tsection\t.data\n\t\tdd\t";
print OU "0,J$i$ilabel,\'$ts\',$label - S$ts$ilabel\n";
print OU "0,J$i$ilabel\n\t\tdb\t\'$ts\',0\n\t\tdd\t$label - S$ts$ilabel\n";
print OU "\t\tsection\t.text\n\n";
$line = "";
}
@@ -108,10 +108,10 @@ for $line (@lines)
$line = ";$line" if ($line =~ /^\s+align\s/);
print OU $line;
if ($line =~ /__([A-Z0-9]{8})__/)
if ($line =~ /__([A-Z0-9]+)__/)
{
print OU "S$1$ilabel:\n";
print OU "\t\tsection\t.data\n\t\tdd\t\'$1\',S$1$ilabel\n";
print OU "\t\tsection\t.data\n\t\tdb\t\'$1\',0\n\t\tdd\tS$1$ilabel\n";
print OU "\t\tsection\t.text\n\n";
$cs = $1;
}