Browse Source

* set correct compiler flags

git-svn-id: trunk@46390 -
svenbarth 5 years ago
parent
commit
7da2ee4578
2 changed files with 5 additions and 1 deletions
  1. 1 1
      packages/fcl-res/src/rcparser.pas
  2. 4 0
      packages/fcl-res/src/rcparserfn.inc

+ 1 - 1
packages/fcl-res/src/rcparser.pas

@@ -347,7 +347,7 @@ begin
          yyval := yyv[yysp-0];
          yyval := yyv[yysp-0];
        end;
        end;
   90 : begin
   90 : begin
-         yyval.yyTFileStream:= TFileStream.Create(yyv[yysp-0].yyrcstrtype.v^, fmOpenRead or fmShareDenyWrite); 
+         yyval.yyTFileStream:= TFileStream.Create(ExpandFileName(yyv[yysp-0].yyrcstrtype.v^), fmOpenRead or fmShareDenyWrite);
        end;
        end;
   91 : begin
   91 : begin
          string_new_uni(yyval.yyrcstrtype, @strbuf[0], strbuflen, opt_code_page, true); 
          string_new_uni(yyval.yyrcstrtype, @strbuf[0], strbuflen, opt_code_page, true); 

+ 4 - 0
packages/fcl-res/src/rcparserfn.inc

@@ -2,6 +2,10 @@
 
 
 interface
 interface
 
 
+{$mode objfpc}{$H+}
+{$COPERATORS ON}
+{$GOTO ON}
+
 uses
 uses
   SysUtils, Classes, StrUtils, Contnrs, lexlib, yacclib, resource,
   SysUtils, Classes, StrUtils, Contnrs, lexlib, yacclib, resource,
   acceleratorsresource, groupiconresource, stringtableresource,
   acceleratorsresource, groupiconresource, stringtableresource,