wbgen_common.lua: more checks

2476a8d6 · Tomasz Wlostowski · 369a3a29 · 2476a8d6
Commit 2476a8d6 authored Jun 26, 2012 by Tomasz Wlostowski
Hide whitespace changes
Inline Side-by-side

Showing with 14 additions and 2 deletions

wbgen_common.lua wbgen_common.lua +14 -2

No files found.
--- a/wbgen_common.lua
+++ b/wbgen_common.lua
@@ -116,9 +116,10 @@ end
 -- function checks and calculates size of field "field" in register "reg"
 function calc_size(field, reg)
 -- monostable or bit-field? default size to 1 if not specified
+	
    if(field.type == MONOSTABLE or field.type == BIT) then
 			field.size = 1;
-    elseif (field.type == SLV) then
+    elseif (field.type == SLV or field.type == PASS_THROUGH) then
 -- SLV fields must have defined size
 			if(field.size == nil)  then
 		    die("no size declared for SLV-type field '".. field.name.."'");
@@ -277,6 +278,17 @@ function csel(cond, tr, fl)
  end
 end

+function check_field_types(field)
+	if(field.type == nil) then
+			die("no type declared for field: "..field.name);
+		end
+end
+
+function check_obj_names_prefixes(obj)
+	if(obj.name == nil) then
+			die("no name declared for object: "..obj.size);
+		end
+end

 function fix_prefix(obj)
 	if(obj.c_prefix == nil or obj.hdl_prefix==nil) then
@@ -336,7 +348,7 @@ end

 function check_max_size(reg)
    if(reg.total_size > DATA_BUS_WIDTH and reg.__type == TYPE_REG) then 
-        die ("register ", reg.name, " size exceeds data bus witdh (", DATA_BUS_WIDTH, " bits)"); 
+        die ("register ".. reg.name.. " size exceeds data bus witdh (".. DATA_BUS_WIDTH.. " bits)"); 
    end
 end