paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 11:02:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set correct compiler flags

Browse Source 
git-svn-id: trunk@46390 -
This commit is contained in:
svenbarth 2020-08-12 19:06:43 +00:00
parent 108e78d441
commit 7da2ee4578
2 changed files with 5 additions and 1 deletions
packages/fcl-res/src
rcparser.pasrcparserfn.inc

2
packages/fcl-res/src/rcparser.pas
View File

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

4
packages/fcl-res/src/rcparserfn.inc
View File

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