OpenCores
URL https://opencores.org/ocsvn/fully-pipelined-edge-detection-algorithms/fully-pipelined-edge-detection-algorithms/trunk

Subversion Repositories fully-pipelined-edge-detection-algorithms

Compare Revisions

  • This comparison shows the changes necessary to convert path 
    /fully-pipelined-edge-detection-algorithms/trunk
    from Rev 15 to Rev 16
    ↔ Reverse comparison
  •

Rev 15 → Rev 16

/src/OperatorOverloading_pkg.vhd
0,0 → 1,89
----------------------------------------------------------------------------------
-- Company:
-- Engineer: MUHAMMED KOCAOGLU
--
-- Create Date: 01/02/2022 12:21:40 AM
-- Design Name:
-- Module Name: OperatorOverloading_pkg - Behavioral
-- Project Name:
-- Target Devices:
-- Tool Versions:
-- Description:
--
-- Dependencies:
--
-- Revision:
-- Revision 0.01 - File Created
-- Additional Comments:
--
----------------------------------------------------------------------------------
LIBRARY IEEE;
USE IEEE.STD_LOGIC_1164.ALL;
USE IEEE.NUMERIC_STD.ALL;
--USE IEEE.STD_LOGIC_ARITH.ALL;
--USE IEEE.STD_LOGIC_UNSIGNED.ALL;
 
PACKAGE OperatorOverloading_pkg IS
TYPE array2D IS ARRAY (NATURAL RANGE <>) OF STD_LOGIC_VECTOR;
TYPE array3D IS ARRAY (NATURAL RANGE <>) OF array2D;
 
FUNCTION "*" (L : array3D; R : array3D) RETURN array3D;
FUNCTION "&" (L : STD_LOGIC_VECTOR; R : array3D) RETURN array3D;
FUNCTION "&" (L : array3D; R : array3D) RETURN array3D;
END PACKAGE OperatorOverloading_pkg;
 
PACKAGE BODY OperatorOverloading_pkg IS
---- D E P T H 2
-- D
-- E
-- P
-- T
-- H
-- 1
-- multiplication overloading for 2d and 3d array
FUNCTION "*" (L : array3D; R : array3D) RETURN array3D IS
CONSTANT DEPTH1 : NATURAL := L'length - 1;
CONSTANT DEPTH2 : NATURAL := L(0)'length - 1;
CONSTANT DEPTH3 : NATURAL := L(0)(0)'length - 1;
CONSTANT DEPTH4 : NATURAL := R(0)(0)'length;
VARIABLE result : array3D (0 TO DEPTH1)(0 TO DEPTH2)(DEPTH3 + DEPTH4 DOWNTO 0);
BEGIN
FOR i IN 0 TO DEPTH1 LOOP
FOR j IN 0 TO DEPTH2 LOOP
result(i)(j) := STD_LOGIC_VECTOR(signed(L(i)(j)) * signed(R(i)(j)));
END LOOP;
END LOOP;
RETURN result;
END;
 
FUNCTION "&" (L : STD_LOGIC_VECTOR; R : array3D) RETURN array3D IS
CONSTANT DEPTH1 : NATURAL := R'length - 1;
CONSTANT DEPTH2 : NATURAL := R(0)'length - 1;
CONSTANT DEPTH3 : NATURAL := R(0)(0)'length - 1;
CONSTANT DEPTH4 : NATURAL := L'length;
VARIABLE result : array3D (0 TO DEPTH1)(0 TO DEPTH2)(DEPTH4 + DEPTH3 DOWNTO 0);
BEGIN
FOR i IN 0 TO DEPTH1 LOOP
FOR j IN 0 TO DEPTH2 LOOP
result(i)(j) := L & R(i)(j);
END LOOP;
END LOOP;
RETURN result;
END;
 
FUNCTION "&" (L : array3D; R : array3D) RETURN array3D IS
CONSTANT DEPTH1 : NATURAL := R'length - 1;
CONSTANT DEPTH2 : NATURAL := R(0)'length - 1;
CONSTANT DEPTH3 : NATURAL := R(0)(0)'length - 1;
CONSTANT DEPTH4 : NATURAL := L(0)(0)'length;
VARIABLE result : array3D (0 TO DEPTH1)(0 TO DEPTH2)(DEPTH4 + DEPTH3 DOWNTO 0);
BEGIN
FOR i IN 0 TO DEPTH1 LOOP
FOR j IN 0 TO DEPTH2 LOOP
result(i)(j) := L(i)(j) & R(i)(j);
END LOOP;
END LOOP;
RETURN result;
END;
 
END PACKAGE BODY OperatorOverloading_pkg;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.