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