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

+ Fixed bootstrap problem for resources

Browse Source 
git-svn-id: trunk@1013 -
This commit is contained in:
michael 2005-09-01 16:57:03 +00:00
parent 6af1b74202
commit 7184d30fc1
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/options.pas
View File

@ -1829,6 +1829,7 @@ begin
def_system_macro('FPC_HAS_TYPE_EXTENDED'); def_system_macro('FPC_HAS_TYPE_EXTENDED');
def_system_macro('FPC_HAS_TYPE_DOUBLE'); def_system_macro('FPC_HAS_TYPE_DOUBLE');
def_system_macro('FPC_HAS_TYPE_SINGLE'); def_system_macro('FPC_HAS_TYPE_SINGLE');
def_system_macro('FPC_HAS_RESOURCES');
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
def_system_macro('CPU68K'); def_system_macro('CPU68K');

4
rtl/inc/elfres32.inc
View File

@ -41,7 +41,11 @@ type
Var Var
InitRes : Boolean = False; InitRes : Boolean = False;
{$ifdef FPC_HAS_RESOURCES}
FPCResourceSectionLocation : pFPCResourceSectionTable; external name 'FPC_RESLOCATION'; FPCResourceSectionLocation : pFPCResourceSectionTable; external name 'FPC_RESLOCATION';
{$else}
FPCResourceSectionLocation : pFPCResourceSectionTable = Nil;
{$endif}
FPCRuntimeResourceInfoArray : PFPCRuntimeResourceInfo; FPCRuntimeResourceInfoArray : PFPCRuntimeResourceInfo;
ResInfoCount : Cardinal; ResInfoCount : Cardinal;