paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 00:01:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

compiler: fix a bug in .rsj output and enable it by default

Browse Source 
git-svn-id: trunk@26478 -
This commit is contained in:
paul 2014-01-16 13:57:08 +00:00
parent 3aec5da7a7
commit e7636cd6e6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cresstr.pas
View File

@ -324,7 +324,7 @@ uses
C := W^.Data[I];
case C of
Ord('"'), Ord('\'), Ord('/'):
write(f, '\', C);
write(f, '\', Chr(C));
8:
write(f, '\b');
9:
@ -381,7 +381,7 @@ uses
current_module.flags:=current_module.flags or uf_has_resourcestrings;
resstrs.CreateResourceStringData;
resstrs.WriteResourceFile;
// resstrs.WriteRSJFile;
resstrs.WriteRSJFile;
end;
resstrs.Free;
end;