Răsfoiți Sursa

* set correct compiler flags

git-svn-id: trunk@46390 -
svenbarth 5 ani în urmă
părinte
comite
7da2ee4578

+ 1 - 1
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); 

+ 4 - 0
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,