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

* Fix for tres.pp test by Sergei Gorelkin.

Browse Source 
git-svn-id: trunk@8375 -
This commit is contained in:
yury 2007-09-04 12:28:14 +00:00
parent 3df93c5391
commit ebfd2b6b20
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/elfres32.inc
View File

@ -99,6 +99,12 @@ begin
Result:=0; Result:=0;
if (ResourceName=nil) or (FPCResourceSectionLocation = nil) then if (ResourceName=nil) or (FPCResourceSectionLocation = nil) then
Exit; Exit;
{ This is a temporary fix to stay compatible with fpcres
which currently converts all string types to RT_RCDATA. }
if ResourceType > PChar($FFFF) then
ResourceType := PChar(10);
{ support numeric resource IDs } { support numeric resource IDs }
if ResourceName <= PChar($FFFF) then if ResourceName <= PChar($FFFF) then
begin begin