paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 12:25:59 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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
packages/fcl-res/src/rcparserfn.inc
View File

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