Bladeren bron

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

git-svn-id: trunk@26478 -
paul 11 jaren geleden
bovenliggende
commit
e7636cd6e6
1 gewijzigde bestanden met toevoegingen van 2 en 2 verwijderingen
  1. 2 2
      compiler/cresstr.pas

+ 2 - 2
compiler/cresstr.pas

@@ -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;