paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

- disabled check for existence for texceptaddr/tguid/tjmpbuf in the system

Browse Source 
unit for the JVM platform (they do not exist/are not needed there)
    (mantis #31240)

git-svn-id: trunk@35348 -
This commit is contained in:
Jonas Maebe 2017-01-28 14:33:36 +00:00
parent f1a5fbc0df
commit 7013a879c3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/psub.pas
View File

@ -1829,12 +1829,14 @@ implementation
{ check if the definitions of certain types are available which might not be available in older rtls and
which are assigned "on the fly" in types_dec }
{$ifndef jvm}
if not assigned(rec_exceptaddr) then
Message1(cg_f_internal_type_not_found,'TEXCEPTADDR');
if not assigned(rec_tguid) then
Message1(cg_f_internal_type_not_found,'TGUID');
if not assigned(rec_jmp_buf) then
Message1(cg_f_internal_type_not_found,'TJMPBUF');
{$endif}
{ if the procdef is truly a generic (thus takes parameters itself) then
/that/ is our genericdef, not the - potentially - generic struct }