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

Clear the dirty stack on win32/pe.

Browse Source 
committer: mfx <mfx> 1139914965 +0000
This commit is contained in:
Markus F.X.J. Oberhumer
2006-02-14 11:02:45 +00:00
parent 69eaaa4177
commit 304ba57dad
5 changed files with 244 additions and 203 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/stub/scripts/app_i386.pl
+3 -3
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]+)__/) {
if ($line =~ /__([A-Z][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]+)__/)
if ($line =~ /__([A-Z][A-Z0-9_]+)__/)
{
$line=";$line" unless ($line =~ /^\;/);
}
@@ -108,7 +108,7 @@ for $line (@lines)
$line = ";$line" if ($line =~ /^\s+align\s/);
print OU $line;
if ($line =~ /__([A-Z0-9]+)__/)
if ($line =~ /__([A-Z][A-Z0-9_]+)__/)
{
print OU "S$1$ilabel:\n";
print OU "\t\tsection\t.data\n\t\tdb\t\'$1\',0\n\t\tdd\tS$1$ilabel\n";