[Home] [Help]
903: -- Scope: compile_logic_file
904: PROCEDURE flush_constant_pool IS
905:
906: l_raw RAW(32767) := HEXTORAW ( ConstantPool_buffer );
907: l_len BINARY_INTEGER := UTL_RAW.LENGTH ( l_raw );
908:
909: BEGIN
910:
911: IF ( l_len > 0 ) THEN
918: -- Scope: compile_logic_file
919: PROCEDURE flush_code_memory IS
920:
921: l_raw RAW(32767) := HEXTORAW ( CodeMemory_buffer );
922: l_len BINARY_INTEGER := UTL_RAW.LENGTH ( l_raw );
923:
924: BEGIN
925:
926: IF ( l_len > 0 ) THEN
1053:
1054: BEGIN
1055:
1056: code_buffer_ptr := code_buffer_ptr + l_len;
1057: code_ptr := code_ptr + UTL_RAW.LENGTH ( p_code );
1058:
1059: IF ( code_buffer_ptr >= const_codememory_buffersize ) THEN
1060:
1061: flush_code_memory ();
1072: -- Scope: compile_logic_file
1073: FUNCTION emit_data ( p_data IN RAW ) RETURN PLS_INTEGER IS
1074:
1075: l_pool_ptr PLS_INTEGER;
1076: l_len BINARY_INTEGER := UTL_RAW.LENGTH ( p_data );
1077:
1078: l_data VARCHAR2(32767 BYTE) := RAWTOHEX ( p_data );
1079: l_data_len BINARY_INTEGER := LENGTHB ( l_data );
1080:
1175:
1176: --According to the logic file format, second four bytes from the end store the
1177: --size of the Constant Pool.
1178:
1179: l_size := UTL_RAW.CAST_TO_BINARY_INTEGER ( DBMS_LOB.SUBSTR ( l_fce_file, 4, DBMS_LOB.GETLENGTH ( l_fce_file ) - 7 ));
1180: l_tail := DBMS_LOB.GETLENGTH ( l_fce_file ) - 8 - l_size;
1181:
1182: IF ( l_size > 0 ) THEN ConstantPool := DBMS_LOB.SUBSTR ( l_fce_file, l_size, 1 ); END IF;
1183: IF ( l_tail > 0 ) THEN CodeMemory := DBMS_LOB.SUBSTR ( l_fce_file, l_tail, l_size + 1 ); END IF;
1286:
1287: IF ( cz_fce_compile_utils.assert_unsigned_word ( LENGTHB ( p_string ))) THEN
1288:
1289: l_pool_ptr := emit_data ( const_string_tag || cz_fce_compile_utils.unsigned_word ( LENGTHB ( p_string )) ||
1290: UTL_RAW.CAST_TO_RAW ( p_string ));
1291: h_StringConstantHash( p_string ) := l_pool_ptr;
1292:
1293: ELSE
1294:
6898:
6899: l_exist_mask_ := HEXTORAW ( t_acc_contributors ( p_target_id )( p_index ).effective_usage_mask );
6900: l_new_mask_ := HEXTORAW ( this_effective_usages );
6901:
6902: l_common_mask := RAWTOHEX ( UTL_RAW.BIT_OR ( l_exist_mask_, l_new_mask_ ));
6903:
6904: IF ( l_common_mask <> const_mask_no_usages ) THEN
6905:
6906: --Usages, defined only for the existing contribution record.
6904: IF ( l_common_mask <> const_mask_no_usages ) THEN
6905:
6906: --Usages, defined only for the existing contribution record.
6907:
6908: l_exist_mask := RAWTOHEX ( UTL_RAW.BIT_OR ( l_exist_mask_, UTL_RAW.BIT_COMPLEMENT ( l_new_mask_ )));
6909:
6910: --Usages, defined only for the new contribution.
6911:
6912: l_new_mask := RAWTOHEX ( UTL_RAW.BIT_OR ( UTL_RAW.BIT_COMPLEMENT ( l_exist_mask_ ), l_new_mask_ ));
6908: l_exist_mask := RAWTOHEX ( UTL_RAW.BIT_OR ( l_exist_mask_, UTL_RAW.BIT_COMPLEMENT ( l_new_mask_ )));
6909:
6910: --Usages, defined only for the new contribution.
6911:
6912: l_new_mask := RAWTOHEX ( UTL_RAW.BIT_OR ( UTL_RAW.BIT_COMPLEMENT ( l_exist_mask_ ), l_new_mask_ ));
6913:
6914: IF ( l_common_mask = t_acc_contributors ( p_target_id )( p_index ).effective_usage_mask ) THEN
6915:
6916: --New usage mask containt the existing or masks are equal, combine contributions on the existing
7101: l_count := l_count + 1;
7102:
7103: t_acc_contributors ( p_target_id )( l_count ).effective_from := this_effective_from;
7104: t_acc_contributors ( p_target_id )( l_count ).effective_until := this_effective_until;
7105: t_acc_contributors ( p_target_id )( l_count ).effective_usage_mask := RAWTOHEX ( UTL_RAW.BIT_COMPLEMENT ( this_effective_usages ));
7106:
7107: t_acc_contributors ( p_target_id )( l_count ).interval_key := NULL;
7108: t_acc_contributors ( p_target_id )( l_count ).quantifiers := t_acc_quantifiers ( p_target_id );
7109: t_acc_contributors ( p_target_id )( l_count ).hash_quantifiers := h_acc_quantifiers ( p_target_id );