paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 03:11:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

* allow temp strings to be passed to consts in delphi mode

Browse Source 
git-svn-id: trunk@233 -
This commit is contained in:
peter 2005-06-07 12:48:00 +00:00
parent 4ace790492
commit 4766e62dd2
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/htypechk.pas
View File

@ -1033,7 +1033,8 @@ implementation
{ Temp strings are stored in memory, for compatibility with { Temp strings are stored in memory, for compatibility with
delphi only } delphi only }
if (m_delphi in aktmodeswitches) and if (m_delphi in aktmodeswitches) and
(valid_addr in opts) and ((valid_addr in opts) or
(valid_const in opts)) and
(hp.resulttype.def.deftype=stringdef) then (hp.resulttype.def.deftype=stringdef) then
result:=true result:=true
else else