1 files changed, 13 insertions, 13 deletions
diff --git a/libraries/openieee/std_logic_1164-body.v87 b/libraries/openieee/std_logic_1164-body.v87
index 02bfb0f..b6dd265 100644
--- a/libraries/openieee/std_logic_1164-body.v87
+++ b/libraries/openieee/std_logic_1164-body.v87
@@ -1,4 +1,4 @@
---  This file was generated from std_logic_1164-body.proto
+--  This -*- vhdl -*- file was generated from std_logic_1164-body.proto
 --  This is an implementation of -*- vhdl -*- ieee.std_logic_1164 based only
 --  on the specifications.  This file is part of GHDL.
 --  Copyright (C) 2015 Tristan Gingold
@@ -14,7 +14,7 @@
 --  for more details.
 --
 --  You should have received a copy of the GNU General Public License
---  along with GCC; see the file COPYING3.  If not see
+--  along with GCC; see the file COPYING2.  If not see
 --  <http://www.gnu.org/licenses/>.
 
 --  This is a template file.  To avoid errors and duplication, the python
@@ -119,27 +119,27 @@ package body std_logic_1164 is
      "UX10XX10X";
 
 
-  function "and" (l, r : std_ulogic) return UX01 is
+  function "and" (l : std_ulogic; r : std_ulogic) return UX01 is
   begin
     return and_table (l, r);
   end "and";
 
-  function "nand" (l, r : std_ulogic) return UX01 is
+  function "nand" (l : std_ulogic; r : std_ulogic) return UX01 is
   begin
     return nand_table (l, r);
   end "nand";
 
-  function "or" (l, r : std_ulogic) return UX01 is
+  function "or" (l : std_ulogic; r : std_ulogic) return UX01 is
   begin
     return or_table (l, r);
   end "or";
 
-  function "nor" (l, r : std_ulogic) return UX01 is
+  function "nor" (l : std_ulogic; r : std_ulogic) return UX01 is
   begin
     return nor_table (l, r);
   end "nor";
 
-  function "xor" (l, r : std_ulogic) return UX01 is
+  function "xor" (l : std_ulogic; r : std_ulogic) return UX01 is
   begin
     return xor_table (l, r);
   end "xor";
@@ -450,18 +450,18 @@ package body std_logic_1164 is
     return res;
   end to_stdlogicvector;
 
-  function to_stdulogicvector (b : std_logic_vector) return std_ulogic_vector
+  function to_stdulogicvector (s : std_logic_vector) return std_ulogic_vector
   is
-    subtype res_type is std_ulogic_vector (b'length - 1 downto 0);
+    subtype res_type is std_ulogic_vector (s'length - 1 downto 0);
   begin
-    return res_type (b);
+    return res_type (s);
   end to_stdulogicvector;
 
-  function to_stdlogicvector (b : std_ulogic_vector) return std_logic_vector
+  function to_stdlogicvector (s : std_ulogic_vector) return std_logic_vector
   is
-    subtype res_type is std_logic_vector (b'length - 1 downto 0);
+    subtype res_type is std_logic_vector (s'length - 1 downto 0);
   begin
-    return res_type (b);
+    return res_type (s);
   end to_stdlogicvector;
 
   function to_stdulogic (b : bit) return std_ulogic is