URL
https://opencores.org/ocsvn/vhld_tb/vhld_tb/trunk
Subversion Repositories vhld_tb
Compare Revisions
- This comparison shows the changes necessary to convert path
/vhld_tb/trunk/source
- from Rev 14 to Rev 17
- ↔ Reverse comparison
Rev 14 → Rev 17
/tb_pkg_body.vhd
1,12 → 1,10
------------------------------------------------------------------------------- |
-- Copyright 2007 Ken Campbell |
-- Copyright 2009 Ken Campbell |
------------------------------------------------------------------------------- |
-- $Author: sckoarn $ |
-- |
-- $Date: 2008-02-24 01:34:11 $ |
-- |
-- $Name: not supported by cvs2svn $ |
-- |
-- $Id: tb_pkg_body.vhd,v 1.3 2008-02-24 01:34:11 sckoarn Exp $ |
-- |
-- $Source: /home/marcus/revision_ctrl_test/oc_cvs/cvs/vhld_tb/source/tb_pkg_body.vhd,v $ |
1005,6 → 1003,7
variable temp_var: var_field_ptr; |
variable current_ptr: var_field_ptr; |
variable index: integer := 1; |
variable len: integer := 0; |
|
begin |
-- if this is NOT the first one |
1033,10 → 1032,11
temp_var.var_value := stim_to_integer(p2,name,line_num); -- convert text_field to integer |
temp_var.var_index := index; |
current_ptr.next_rec := temp_var; |
else |
else -- this is an inline variable |
while(current_ptr.next_rec /= null) loop |
-- if we have defined the current before then die |
assert(current_ptr.var_name(1 to (length - 1)) /= p1(1 to (length - 1))) |
len := fld_len(current_ptr.var_name); |
assert(current_ptr.var_name(1 to len) /= p1(1 to (length - 1))) |
report LF & "Error: Attemping to add a duplicate Inline Variable definition " |
& " on line " & (integer'image(line_num)) & " of file " & name |
severity failure; |
1045,7 → 1045,8
index := index + 1; |
end loop; |
-- if we have defined the current before then die. This checks the last one |
assert(current_ptr.var_name(1 to (length - 1)) /= p1(1 to (length - 1))) |
len := fld_len(current_ptr.var_name); |
assert(current_ptr.var_name(1 to len) /= p1(1 to (length - 1))) |
report LF & "Error: Attemping to add a duplicate Inline Variable definition " |
& " on line " & (integer'image(line_num)) & " of file " & name |
severity failure; |