| |
LCS-2016-015 |
| |
7 |
| |
24-Mar-2017 |
| |
Voting |
| |
Jim Lewis |
| |
Main.JimLewis and Main.PatrickLehmann |
| |
Examples History Report Calling Path |
| |
CALL_..._NAME = Call stack with SIMPLE_NAME, PATH_NAME, INSTANCE_NAME |
use work.textio.all;
package ENV is
. . .
[OTHER LCS Adding to std.env]
type CALL_PATH_ELEMENT is record
name : LINE;
file_name : LINE;
file_path : LINE;
file_line : POSITIVE;
end record;
-- function "=" (anonymous, anonymous: CALL_PATH_ELEMENT) return BOOLEAN;
-- function "/=" (anonymous, anonymous: CALL_PATH_ELEMENT) return BOOLEAN;
impure function TO_STRING (call_path : CALL_PATH_ELEMENT ) return STRING;
type CALL_PATH_VECTOR is array (natural range <>) of CALL_PATH_ELEMENT;
-- function "=" (anonymous, anonymous: CALL_PATH_VECTOR) return BOOLEAN;
-- function "/=" (anonymous, anonymous: CALL_PATH_VECTOR) return BOOLEAN;
impure function TO_STRING (call_path : CALL_PATH_VECTOR; Separator : STRING := "" & LF ) return STRING;
type CALL_PATH_VECTOR_PTR is access CALL_PATH_VECTOR;
-- function "=" (anonymous, anonymous: CALL_PATH_VECTOR_PTR) return BOOLEAN;
-- function "/=" (anonymous, anonymous: CALL_PATH_VECTOR_PTR) return BOOLEAN;
-- procedure DEALLOCATE (P: inout CALL_PATH_VECTOR_PTR);
impure function TO_STRING (call_path : CALL_PATH_VECTOR_PTR; Separator : STRING := "" & LF ) return STRING;
impure function GET_CALL_PATH return CALL_PATH_VECTOR_PTR;
end package ENV;