Lines Matching refs:flagstring
371 my $flagstring = "";
373 $flagstring .= "| CCS_FL_16BIT " if $size eq "2";
374 $flagstring .= "| CCS_FL_32BIT " if $size eq "4";
375 $flagstring .= "| CCS_FL_FLOAT_IREAL " if grep /^float_ireal$/, @flags;
376 $flagstring .= "| CCS_FL_IREAL " if grep /^ireal$/, @flags;
377 $flagstring =~ s/^\| //;
378 $flagstring =~ s/ $//;
379 $flagstring = "($flagstring)" if $flagstring =~ /\|/;
381 $addr = "($addr | $flagstring)" if $flagstring ne "";