6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-26 05:29:30 +00:00
Code Issues Projects Releases Wiki Activity

Fixed handling of expressions in .word and .addr instructions.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3562 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2005-07-31 12:25:20 +00:00
parent 080384ca79
commit 23f47e26d1
1 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
src/ca65html/ca65html
View File

@ -687,23 +687,21 @@ sub Process2 {
$OutLine .= $&;
# Print all identifiers if there are any
while ($Line =~ /^([_a-zA-Z]\w*)(.*)$/) {
if (exists ($Labels{$OutName}{$1})) {
$Label = $Labels{$OutName}{$1};
$OutLine .= sprintf ("<a href=\"#%s\">%s</a>", $Label, $1);
} else {
$OutLine .= $1;
}
$Line = $2;
if ($Line =~ s/^\s*,\s*//) {
$OutLine .= $&;
} else {
last;
}
}
while ($Line =~ /^([^_a-zA-Z]*)([_a-zA-Z]\w*)(.*)$/) {
# Add the non label stuff
$OutLine .= Cleanup ($1);
# Add an remainder if there is one
$OutLine .= Cleanup ($Line);
# If the identifier is a known label, add a link
if (exists ($Labels{$OutName}{$2})) {
$Label = $Labels{$OutName}{$2};
$OutLine .= sprintf ("<a href=\"#%s\">%s</a>", $Label, $2);
} else {
$OutLine .= $2;
}
# Proceed with the remainder of the line
$Line = $3;
}
# Handle .proc
} elsif ($Line =~ /^(\.proc)(\s+)([_a-zA-Z]\w*)?(.*)$/) {