JavaNativeMethodImpl_OpenJDK6.st
branchperformance-optimizations
changeset 2605 f343a5ef30b6
parent 2601 3d4b433fb25c
child 2618 e7757e5d593c
equal deleted inserted replaced
2604:b9cb81e47766 2605:f343a5ef30b6
  9555     |jClass cls interfaces jInterfaces|
  9555     |jClass cls interfaces jInterfaces|
  9556 
  9556 
  9557     jClass := this.
  9557     jClass := this.
  9558     cls := Reflection classForJavaClassObject:jClass.
  9558     cls := Reflection classForJavaClassObject:jClass.
  9559     interfaces := cls javaMirror getInterfaces.
  9559     interfaces := cls javaMirror getInterfaces.
  9560     jInterfaces := (JavaVM classForName:'java.lang.Class' definedBy:nil) javaArrayClass new:interfaces size.
  9560     jInterfaces := java_lang_Class javaArrayClass new:interfaces size.
  9561     interfaces
  9561     interfaces
  9562         withIndexDo:[:iface :idx | jInterfaces at:idx put:(Reflection javaClassObjectForClass:iface) ].
  9562         withIndexDo:[:iface :idx | jInterfaces at:idx put:(Reflection javaClassObjectForClass:iface) ].
  9563     ^ jInterfaces
  9563     ^ jInterfaces
  9564 
  9564 
  9565     "Modified: / 28-01-2011 / 15:19:11 / Marcel Hlopko <hlopik@gmail.com>"
  9565     "Modified: / 28-01-2011 / 15:19:11 / Marcel Hlopko <hlopik@gmail.com>"
  9566     "Modified: / 22-08-2012 / 11:08:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  9566     "Modified: / 21-05-2013 / 16:25:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  9567 !
  9567 !
  9568 
  9568 
  9569 _java_lang_Class_getModifiers: this
  9569 _java_lang_Class_getModifiers: this
  9570     <javanative: 'java/lang/Class' name: 'getModifiers()I'>
  9570     <javanative: 'java/lang/Class' name: 'getModifiers()I'>
  9571     | cls |
  9571     | cls |
  9837 
  9837 
  9838 _java_lang_Class_registerNatives: this
  9838 _java_lang_Class_registerNatives: this
  9839 
  9839 
  9840     <javanative: 'java/lang/Class' name: 'registerNatives()V'>
  9840     <javanative: 'java/lang/Class' name: 'registerNatives()V'>
  9841 
  9841 
       
  9842     java_lang_Class := this.
       
  9843 
  9842 
  9844 
  9843      "Nothing to do, native method are bound lazily"
  9845      "Nothing to do, native method are bound lazily"
  9844 
  9846 
  9845     "Created: / 20-10-2010 / 11:13:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  9847     "Created: / 20-10-2010 / 11:13:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
  9848     "Modified: / 21-05-2013 / 16:14:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  9846 !
  9849 !
  9847 
  9850 
  9848 _java_lang_Class_setProtectionDomain0: this _: a1
  9851 _java_lang_Class_setProtectionDomain0: this _: a1
  9849 
  9852 
  9850     <javanative: 'java/lang/Class' name: 'setProtectionDomain0(Ljava/security/ProtectionDomain;)V'>
  9853     <javanative: 'java/lang/Class' name: 'setProtectionDomain0(Ljava/security/ProtectionDomain;)V'>
 10169 
 10172 
 10170 _java_lang_Object_registerNatives: this
 10173 _java_lang_Object_registerNatives: this
 10171 
 10174 
 10172     <javanative: 'java/lang/Object' name: 'registerNatives()V'>
 10175     <javanative: 'java/lang/Object' name: 'registerNatives()V'>
 10173 
 10176 
       
 10177     java_lang_Object := this.
       
 10178 
 10174 
 10179 
 10175     "Nothing to do, native method are bound lazily"
 10180     "Nothing to do, native method are bound lazily"
 10176 
 10181 
 10177     "Created: / 19-10-2010 / 12:42:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 10182     "Created: / 19-10-2010 / 12:42:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 10178     "Modified: / 20-10-2010 / 10:57:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 10183     "Modified: / 21-05-2013 / 16:13:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 10179 !
 10184 !
 10180 
 10185 
 10181 _java_lang_Object_wait: this _:a1 _: a2
 10186 _java_lang_Object_wait: this _:a1 _: a2
 10182     <javanative: 'java/lang/Object' name: 'wait(J)V'>
 10187     <javanative: 'java/lang/Object' name: 'wait(J)V'>
 10183     | tmo  handle |
 10188     | tmo  handle |
 10397             classes add: ctx method javaClass.
 10402             classes add: ctx method javaClass.
 10398         ].
 10403         ].
 10399         ctx := ctx sender.
 10404         ctx := ctx sender.
 10400     ].
 10405     ].
 10401 
 10406 
 10402     jclasses := (JavaVM classForName:'java.lang.Class' definedBy:nil) javaArrayClass new: classes size.
 10407     jclasses := java_lang_Class javaArrayClass new: classes size.
 10403     1 to: classes size do:[:i|
 10408     1 to: classes size do:[:i|
 10404         jclasses at: i put: (Reflection javaClassObjectForClass: (classes at: i)).
 10409         jclasses at: i put: (Reflection javaClassObjectForClass: (classes at: i)).
 10405     ].
 10410     ].
 10406     ^jclasses
 10411     ^jclasses
 10407 
 10412 
 10408     "Created: / 12-11-1998 / 18:56:06 / cg"
 10413     "Created: / 12-11-1998 / 18:56:06 / cg"
 10409     "Modified: / 15-11-2011 / 00:27:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 10414     "Modified: / 21-05-2013 / 16:25:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 10410 !
 10415 !
 10411 
 10416 
 10412 _java_lang_Shutdown_halt0: this _:a1
 10417 _java_lang_Shutdown_halt0: this _:a1
 10413 
 10418 
 10414     <javanative: 'java/lang/Shutdown' name: 'halt0(I)V'>
 10419     <javanative: 'java/lang/Shutdown' name: 'halt0(I)V'>
 10916 
 10921 
 10917 _java_lang_System_registerNatives: this
 10922 _java_lang_System_registerNatives: this
 10918 
 10923 
 10919     <javanative: 'java/lang/System' name: 'registerNatives()V'>
 10924     <javanative: 'java/lang/System' name: 'registerNatives()V'>
 10920 
 10925 
       
 10926     java_lang_System := this.
       
 10927 
 10921 
 10928 
 10922     "Nothing to do, native method are bound lazily"
 10929     "Nothing to do, native method are bound lazily"
 10923 
 10930 
 10924     "Created: / 20-10-2010 / 10:56:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 10931     "Created: / 20-10-2010 / 10:56:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
 10932     "Modified: / 21-05-2013 / 16:13:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 10925 !
 10933 !
 10926 
 10934 
 10927 _java_lang_System_setErr0: this _:a1
 10935 _java_lang_System_setErr0: this _:a1
 10928 
 10936 
 10929     <javanative: 'java/lang/System' name: 'setErr0(Ljava/io/PrintStream;)V'>
 10937     <javanative: 'java/lang/System' name: 'setErr0(Ljava/io/PrintStream;)V'>
 13062                 chain add:jClass.
 13070                 chain add:jClass.
 13063             ]
 13071             ]
 13064         ].
 13072         ].
 13065         con := con sender.
 13073         con := con sender.
 13066     ].
 13074     ].
 13067     ^(JavaVM classForName:'java.lang.Class' definedBy:nil) javaArrayClass withAll: chain
 13075     ^java_lang_Class javaArrayClass withAll: chain
 13068 
 13076 
 13069     "Created: / 05-01-1998 / 02:47:00 / cg"
 13077     "Created: / 05-01-1998 / 02:47:00 / cg"
 13070     "Modified: / 24-12-1998 / 00:34:57 / cg"
 13078     "Modified: / 24-12-1998 / 00:34:57 / cg"
 13071     "Modified: / 28-01-2011 / 15:31:28 / Marcel Hlopko <hlopik@gmail.com>"
 13079     "Modified: / 28-01-2011 / 15:31:28 / Marcel Hlopko <hlopik@gmail.com>"
 13072     "Modified: / 09-03-2013 / 17:37:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 13080     "Modified: / 21-05-2013 / 16:25:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 13073 !
 13081 !
 13074 
 13082 
 13075 _java_util_TimeZone_getSystemGMTOffsetID: this
 13083 _java_util_TimeZone_getSystemGMTOffsetID: this
 13076 
 13084 
 13077     <javanative: 'java/util/TimeZone' name: 'getSystemGMTOffsetID()Ljava/lang/String;'>
 13085     <javanative: 'java/util/TimeZone' name: 'getSystemGMTOffsetID()Ljava/lang/String;'>