[Home] [Help]
960: -- Scope: compile_logic_file
961: PROCEDURE flush_constant_pool IS
962:
963: l_raw RAW(32767) := HEXTORAW ( ConstantPool_buffer );
964: l_len BINARY_INTEGER := UTL_RAW.LENGTH ( l_raw );
965:
966: BEGIN
967:
968: IF ( l_len > 0 ) THEN
975: -- Scope: compile_logic_file
976: PROCEDURE flush_code_memory IS
977:
978: l_raw RAW(32767) := HEXTORAW ( CodeMemory_buffer );
979: l_len BINARY_INTEGER := UTL_RAW.LENGTH ( l_raw );
980:
981: BEGIN
982:
983: IF ( l_len > 0 ) THEN
1110:
1111: BEGIN
1112:
1113: code_buffer_ptr := code_buffer_ptr + l_len;
1114: code_ptr := code_ptr + UTL_RAW.LENGTH ( p_code );
1115:
1116: IF ( code_buffer_ptr >= const_codememory_buffersize ) THEN
1117:
1118: flush_code_memory ();
1129: -- Scope: compile_logic_file
1130: FUNCTION emit_data ( p_data IN RAW ) RETURN PLS_INTEGER IS
1131:
1132: l_pool_ptr PLS_INTEGER;
1133: l_len BINARY_INTEGER := UTL_RAW.LENGTH ( p_data );
1134:
1135: l_data VARCHAR2(32767 BYTE) := RAWTOHEX ( p_data );
1136: l_data_len BINARY_INTEGER := LENGTHB ( l_data );
1137:
1232:
1233: --According to the logic file format, second four bytes from the end store the
1234: --size of the Constant Pool.
1235:
1236: l_size := UTL_RAW.CAST_TO_BINARY_INTEGER ( DBMS_LOB.SUBSTR ( l_fce_file, 4, DBMS_LOB.GETLENGTH ( l_fce_file ) - 7 ));
1237: l_tail := DBMS_LOB.GETLENGTH ( l_fce_file ) - 8 - l_size;
1238:
1239: IF ( l_size > 0 ) THEN ConstantPool := DBMS_LOB.SUBSTR ( l_fce_file, l_size, 1 ); END IF;
1240: IF ( l_tail > 0 ) THEN CodeMemory := DBMS_LOB.SUBSTR ( l_fce_file, l_tail, l_size + 1 ); END IF;
1343:
1344: IF ( cz_fce_compile_utils.assert_unsigned_word ( LENGTHB ( p_string ))) THEN
1345:
1346: l_pool_ptr := emit_data ( const_string_tag || cz_fce_compile_utils.unsigned_word ( LENGTHB ( p_string )) ||
1347: UTL_RAW.CAST_TO_RAW ( p_string ));
1348: h_StringConstantHash( p_string ) := l_pool_ptr;
1349:
1350: ELSE
1351:
7023:
7024: l_exist_mask_ := HEXTORAW ( t_acc_contributors ( p_target_id )( p_index ).effective_usage_mask );
7025: l_new_mask_ := HEXTORAW ( this_effective_usages );
7026:
7027: l_common_mask := RAWTOHEX ( UTL_RAW.BIT_OR ( l_exist_mask_, l_new_mask_ ));
7028:
7029: IF ( l_common_mask <> const_mask_no_usages ) THEN
7030:
7031: --Usages, defined only for the existing contribution record.
7029: IF ( l_common_mask <> const_mask_no_usages ) THEN
7030:
7031: --Usages, defined only for the existing contribution record.
7032:
7033: l_exist_mask := RAWTOHEX ( UTL_RAW.BIT_OR ( l_exist_mask_, UTL_RAW.BIT_COMPLEMENT ( l_new_mask_ )));
7034:
7035: --Usages, defined only for the new contribution.
7036:
7037: l_new_mask := RAWTOHEX ( UTL_RAW.BIT_OR ( UTL_RAW.BIT_COMPLEMENT ( l_exist_mask_ ), l_new_mask_ ));
7033: l_exist_mask := RAWTOHEX ( UTL_RAW.BIT_OR ( l_exist_mask_, UTL_RAW.BIT_COMPLEMENT ( l_new_mask_ )));
7034:
7035: --Usages, defined only for the new contribution.
7036:
7037: l_new_mask := RAWTOHEX ( UTL_RAW.BIT_OR ( UTL_RAW.BIT_COMPLEMENT ( l_exist_mask_ ), l_new_mask_ ));
7038:
7039: IF ( l_common_mask = t_acc_contributors ( p_target_id )( p_index ).effective_usage_mask ) THEN
7040:
7041: --New usage mask containt the existing or masks are equal, combine contributions on the existing
7235: l_count := l_count + 1;
7236:
7237: t_acc_contributors ( p_target_id )( l_count ).effective_from := this_effective_from;
7238: t_acc_contributors ( p_target_id )( l_count ).effective_until := this_effective_until;
7239: t_acc_contributors ( p_target_id )( l_count ).effective_usage_mask := RAWTOHEX ( UTL_RAW.BIT_COMPLEMENT ( this_effective_usages ));
7240:
7241: t_acc_contributors ( p_target_id )( l_count ).interval_key := NULL;
7242: t_acc_contributors ( p_target_id )( l_count ).quantifiers := t_acc_quantifiers ( p_target_id );
7243: t_acc_contributors ( p_target_id )( l_count ).hash_quantifiers := h_acc_quantifiers ( p_target_id );