SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Fix #1057 - Downport

Browse Source
This commit is contained in:
Christian Günter 2017-11-14 19:02:52 +00:00
parent 85ec8de2ec
commit 7d586cf1ef
1 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/zabapgit_object_clas_new.prog.abap
View File

@ -370,10 +370,28 @@ CLASS lcl_oo_class_new IMPLEMENTATION.
ENDMETHOD.
METHOD update_cs_number_of_methods.
DATA cs_cache_entry TYPE seo_cs_cache.
cs_cache_entry-clsname = iv_classname.
cs_cache_entry-no_of_method_impls = iv_number_of_impl_methods.
MODIFY seo_cs_cache FROM cs_cache_entry.
" Indirect access to keep downward compatibility
DATA lr_cache_entry TYPE REF TO data.
FIELD-SYMBOLS: <ls_cache_entry> TYPE any,
<field> TYPE any.
CREATE DATA lr_cache_entry TYPE ('SEO_CS_CACHE').
ASSIGN lr_cache_entry->* TO <ls_cache_entry>.
ASSERT sy-subrc = 0.
ASSIGN COMPONENT 'CLSNAME' OF STRUCTURE <ls_cache_entry>
TO <field>.
ASSERT sy-subrc = 0.
<field> = iv_classname.
ASSIGN COMPONENT 'NO_OF_METHOD_IMPLS' OF STRUCTURE <ls_cache_entry>
TO <field>.
ASSERT sy-subrc = 0.
<field> = iv_number_of_impl_methods.
MODIFY ('SEO_CS_CACHE') FROM <ls_cache_entry>.
ENDMETHOD.
ENDCLASS.