diff options
| author | H. Peter Anvin <hpa@zytor.com> | 2008-06-01 22:34:55 -0700 |
|---|---|---|
| committer | H. Peter Anvin <hpa@zytor.com> | 2008-06-01 22:34:55 -0700 |
| commit | 39fe51eedfac1c255561cf9c7031a79b87e7ddb3 (patch) | |
| tree | 8c4d118b7f16d460c87acaef131e74031dfe07ad /doc/rdsrc.pl | |
| parent | 427cc912f806435c52f205e805088a74b6c04afc (diff) | |
| download | nasm-39fe51eedfac1c255561cf9c7031a79b87e7ddb3.tar.gz nasm-39fe51eedfac1c255561cf9c7031a79b87e7ddb3.tar.bz2 nasm-39fe51eedfac1c255561cf9c7031a79b87e7ddb3.zip | |
Fix bug where the WinHelp backend corrupts the internal data
WinHelp/RTF needs to convert \ to \\, but did so on the global data,
so the DIP output was corrupted.
Diffstat (limited to 'doc/rdsrc.pl')
| -rw-r--r-- | doc/rdsrc.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/doc/rdsrc.pl b/doc/rdsrc.pl index a6a7008..f27381a 100644 --- a/doc/rdsrc.pl +++ b/doc/rdsrc.pl @@ -1280,11 +1280,12 @@ sub write_hlp { # Code paragraph. print "\\keep\\f1\\sb120\n"; foreach $i (@$pname) { + my $x = $i; warn "code line longer than 68 chars: $i\n" if length $i > 68; - $i =~ s/\\/\\\\/g; - $i =~ s/\{/\\\{/g; - $i =~ s/\}/\\\}/g; - print "$i\\par\\sb0\n"; + $x =~ s/\\/\\\\/g; + $x =~ s/\{/\\\{/g; + $x =~ s/\}/\\\}/g; + print "$x\\par\\sb0\n"; } $newpar = "\\pard\\f0\\sb120\n"; } elsif ($ptype eq "bull" || $ptype eq "norm") { |