git-svn-id: http://moon:8086/svn/vhdl/trunk@1095 cc03376c-175c-47c8-b038-4cd826a8556b
47 lines
1.5 KiB
VHDL
47 lines
1.5 KiB
VHDL
-- Copyright (C) 1991-2015 Altera Corporation. All rights reserved.
|
|
-- Your use of Altera Corporation's design tools, logic functions
|
|
-- and other software and tools, and its AMPP partner logic
|
|
-- functions, and any output files from any of the foregoing
|
|
-- (including device programming or simulation files), and any
|
|
-- associated documentation or information are expressly subject
|
|
-- to the terms and conditions of the Altera Program License
|
|
-- Subscription Agreement, the Altera Quartus II License Agreement,
|
|
-- the Altera MegaCore Function License Agreement, or other
|
|
-- applicable license agreement, including, without limitation,
|
|
-- that your use is for the sole purpose of programming logic
|
|
-- devices manufactured by Altera and sold by Altera or its
|
|
-- authorized distributors. Please refer to the applicable
|
|
-- agreement for further details.
|
|
-- Quartus II 15.0.0 Build 145 04/22/2015
|
|
library std;
|
|
use std.standard.all;
|
|
|
|
package altera_standard_functions is
|
|
|
|
function maximum (L, R: integer) return integer;
|
|
function minimum (L, R: integer) return integer;
|
|
|
|
end altera_standard_functions;
|
|
|
|
package body altera_standard_functions is
|
|
|
|
function maximum (L, R: integer) return integer is
|
|
begin
|
|
if L > R then
|
|
return L;
|
|
else
|
|
return R;
|
|
end if;
|
|
end maximum;
|
|
|
|
function minimum (L, R: integer) return integer is
|
|
begin
|
|
if L > R then
|
|
return R;
|
|
else
|
|
return L;
|
|
end if;
|
|
end minimum;
|
|
|
|
end altera_standard_functions;
|