6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-08-08 06:25:17 +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
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 .= $&; $OutLine .= $&;
# Print all identifiers if there are any # Print all identifiers if there are any
while ($Line =~ /^([_a-zA-Z]\w*)(.*)$/) { while ($Line =~ /^([^_a-zA-Z]*)([_a-zA-Z]\w*)(.*)$/) {
if (exists ($Labels{$OutName}{$1})) { # Add the non label stuff
$Label = $Labels{$OutName}{$1}; $OutLine .= Cleanup ($1);
$OutLine .= sprintf ("<a href=\"#%s\">%s</a>", $Label, $1);
} else {
$OutLine .= $1;
}
$Line = $2;
if ($Line =~ s/^\s*,\s*//) {
$OutLine .= $&;
} else {
last;
}
}
# Add an remainder if there is one # If the identifier is a known label, add a link
$OutLine .= Cleanup ($Line); 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 # Handle .proc
} elsif ($Line =~ /^(\.proc)(\s+)([_a-zA-Z]\w*)?(.*)$/) { } elsif ($Line =~ /^(\.proc)(\s+)([_a-zA-Z]\w*)?(.*)$/) {