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

fix zlib decompression

Browse Source
This commit is contained in:
larshp 2017-03-23 06:48:12 +00:00
parent 733bbbd811
commit dbf1957c41
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/zabapgit_git.prog.abap
View File

@ -152,7 +152,8 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
CHANGING cv_data TYPE xstring. CHANGING cv_data TYPE xstring.
CLASS-METHODS zlib_decompress CLASS-METHODS zlib_decompress
CHANGING cv_data TYPE xstring CHANGING cv_data TYPE xstring
cv_decompressed TYPE xstring
RAISING lcx_exception. RAISING lcx_exception.
ENDCLASS. "lcl_pack DEFINITION ENDCLASS. "lcl_pack DEFINITION
@ -859,14 +860,15 @@ CLASS lcl_git_pack IMPLEMENTATION.
ENDMETHOD. "decode_tree ENDMETHOD. "decode_tree
METHOD zlib_decompress. METHOD zlib_decompress.
DATA: ls_data TYPE lcl_zlib=>ty_decompress, DATA: ls_data TYPE lcl_zlib=>ty_decompress,
lv_compressed_len TYPE i, lv_compressed_len TYPE i,
lv_decompressed TYPE xstring,
lv_adler32 TYPE lcl_hash=>ty_adler32. lv_adler32 TYPE lcl_hash=>ty_adler32.
ls_data = lcl_zlib=>decompress( cv_data ). ls_data = lcl_zlib=>decompress( cv_data ).
lv_compressed_len = ls_data-compressed_len. lv_compressed_len = ls_data-compressed_len.
lv_decompressed = ls_data-raw. cv_decompressed = ls_data-raw.
IF lv_compressed_len IS INITIAL. IF lv_compressed_len IS INITIAL.
lcx_exception=>raise( 'Decompression falied :o/' ). lcx_exception=>raise( 'Decompression falied :o/' ).
@ -874,7 +876,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
cv_data = cv_data+lv_compressed_len. cv_data = cv_data+lv_compressed_len.
lv_adler32 = lcl_hash=>adler32( lv_decompressed ). lv_adler32 = lcl_hash=>adler32( cv_decompressed ).
IF cv_data(4) <> lv_adler32. IF cv_data(4) <> lv_adler32.
cv_data = cv_data+1. cv_data = cv_data+1.
ENDIF. ENDIF.
@ -969,7 +971,8 @@ CLASS lcl_git_pack IMPLEMENTATION.
IF lv_compressed(lv_compressed_len) <> lv_data(lv_compressed_len). IF lv_compressed(lv_compressed_len) <> lv_data(lv_compressed_len).
"Lets try with zlib before error in out for good "Lets try with zlib before error in out for good
"This fixes issues with TFS 2017 and visualstudio.com Git repos "This fixes issues with TFS 2017 and visualstudio.com Git repos
zlib_decompress( CHANGING cv_data = lv_data ). zlib_decompress( CHANGING cv_data = lv_data
cv_decompressed = lv_decompressed ).
ELSE. ELSE.
lv_data = lv_data+lv_compressed_len. lv_data = lv_data+lv_compressed_len.
ENDIF. ENDIF.
@ -979,7 +982,8 @@ CLASS lcl_git_pack IMPLEMENTATION.
* '7801', call custom implementation of DEFLATE algorithm. * '7801', call custom implementation of DEFLATE algorithm.
* The custom implementation could handle both, but most likely the kernel * The custom implementation could handle both, but most likely the kernel
* implementation runs faster than the custom ABAP. * implementation runs faster than the custom ABAP.
zlib_decompress( CHANGING cv_data = lv_data ). zlib_decompress( CHANGING cv_data = lv_data
cv_decompressed = lv_decompressed ).
ENDIF. ENDIF.
lv_data = lv_data+4. " skip adler checksum lv_data = lv_data+4. " skip adler checksum