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

Merge pull request #1058 from christianguenter2/ISSUE_1057

Browse Source 
Fix #1057 - Downport
This commit is contained in:
Lars Hvam 2017-11-15 08:24:49 +01:00 committed by GitHub
commit 228e70be1c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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. ENDMETHOD.
METHOD update_cs_number_of_methods. METHOD update_cs_number_of_methods.
DATA cs_cache_entry TYPE seo_cs_cache.
cs_cache_entry-clsname = iv_classname. " Indirect access to keep downward compatibility
cs_cache_entry-no_of_method_impls = iv_number_of_impl_methods. DATA lr_cache_entry TYPE REF TO data.
MODIFY seo_cs_cache FROM cs_cache_entry. 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. ENDMETHOD.
ENDCLASS. ENDCLASS.