git-svn-id: trunk@46390 -
@@ -347,7 +347,7 @@ begin
yyval := yyv[yysp-0];
end;
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);
91 : begin
string_new_uni(yyval.yyrcstrtype, @strbuf[0], strbuflen, opt_code_page, true);
@@ -2,6 +2,10 @@
interface
+{$mode objfpc}{$H+}
+{$COPERATORS ON}
+{$GOTO ON}
+
uses
SysUtils, Classes, StrUtils, Contnrs, lexlib, yacclib, resource,
acceleratorsresource, groupiconresource, stringtableresource,