From 7da2ee4578285e5e9706ba9461bd5d8faa181c44 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Wed, 12 Aug 2020 19:06:43 +0000 Subject: [PATCH] * set correct compiler flags git-svn-id: trunk@46390 - --- packages/fcl-res/src/rcparser.pas | 2 +- packages/fcl-res/src/rcparserfn.inc | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/packages/fcl-res/src/rcparser.pas b/packages/fcl-res/src/rcparser.pas index a9e887db3f..36d30c8a27 100644 --- a/packages/fcl-res/src/rcparser.pas +++ b/packages/fcl-res/src/rcparser.pas @@ -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); end; 91 : begin string_new_uni(yyval.yyrcstrtype, @strbuf[0], strbuflen, opt_code_page, true); diff --git a/packages/fcl-res/src/rcparserfn.inc b/packages/fcl-res/src/rcparserfn.inc index 7bd6d1f298..4aa6378443 100644 --- a/packages/fcl-res/src/rcparserfn.inc +++ b/packages/fcl-res/src/rcparserfn.inc @@ -2,6 +2,10 @@ interface +{$mode objfpc}{$H+} +{$COPERATORS ON} +{$GOTO ON} + uses SysUtils, Classes, StrUtils, Contnrs, lexlib, yacclib, resource, acceleratorsresource, groupiconresource, stringtableresource,