From 42eaae824f4073f6a3e81bd71d2378f62dfc3b16 Mon Sep 17 00:00:00 2001 From: Lars Hvam Date: Sat, 7 Nov 2015 06:38:59 +0100 Subject: [PATCH] support larger files, issue #119 --- zabapgit.abap | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/zabapgit.abap b/zabapgit.abap index 5948f683c..859724d17 100644 --- a/zabapgit.abap +++ b/zabapgit.abap @@ -3,7 +3,7 @@ REPORT zabapgit. * See https://github.com/larshp/abapGit/ CONSTANTS: gc_xml_version TYPE string VALUE 'v0.2-alpha', "#EC NOTEXT - gc_abap_version TYPE string VALUE 'v0.74'. "#EC NOTEXT + gc_abap_version TYPE string VALUE 'v0.75'. "#EC NOTEXT ******************************************************************************** * The MIT License (MIT) @@ -9716,8 +9716,13 @@ CLASS lcl_pack IMPLEMENTATION. CONCATENATE '1' lv_type lv_bits+28(4) INTO lv_result. CONCATENATE lv_result '1' lv_bits+21(7) INTO lv_result. CONCATENATE lv_result '0' lv_bits+14(7) INTO lv_result. + ELSEIF lv_bits(7) = '0000000'. + CONCATENATE '1' lv_type lv_bits+28(4) INTO lv_result. + CONCATENATE lv_result '1' lv_bits+21(7) INTO lv_result. + CONCATENATE lv_result '1' lv_bits+14(7) INTO lv_result. + CONCATENATE lv_result '0' lv_bits+7(7) INTO lv_result. ELSE. -* use shifting? +* todo, this IF can be refactored, use shifting? _raise 'Todo, encoding length'. ENDIF.