SCALAR => IS_FIXED

diff --git a/pidl/lib/Parse/Pidl/Typelist.pm b/pidl/lib/Parse/Pidl/Typelist.pm
index 774554f093bdc84722b8ad8c8e374f98ac148d18..100082d8f5044c073b358d70e8dbdcae9fa6365d 100644 (file)
--- a/pidl/lib/Parse/Pidl/Typelist.pm
+++ b/pidl/lib/Parse/Pidl/Typelist.pm
@@ -216,14 +216,18 @@ sub scalar_is_reference($)
 
 sub RegisterScalars()
 {
-       foreach (keys %scalars) {
+       foreach my $t (keys %scalars) {
+               my $is_fixed = 1;
+               $is_fixed = 0 if (grep(/^$t$/, @non_fixed_size_scalars));
+
                addType({
-                       NAME => $_,
+                       NAME => $t,
                        TYPE => "TYPEDEF",
                        BASEFILE => "<builtin>",
                        DATA => {
                                TYPE => "SCALAR",
-                               NAME => $_
+                               NAME => $t,
+                               IS_FIXED => $is_fixed,
                        }
                }
                );