Browse Source

- disabled check for existence for texceptaddr/tguid/tjmpbuf in the system
unit for the JVM platform (they do not exist/are not needed there)
(mantis #31240)

git-svn-id: trunk@35348 -

Jonas Maebe 8 years ago
parent
commit
7013a879c3
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/psub.pas

+ 2 - 0
compiler/psub.pas

@@ -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 }