IMMEDIATE: Ceci n'est pas un nom.

This commit is contained in:
Rudolf Polzer 2012-05-02 12:13:44 +02:00
parent 0311197941
commit 16e64e8fe3

View File

@ -954,6 +954,8 @@ sub detect_constants($)
{
my $type = $_->{type};
my $name = $progs->{getstring}->($_->{s_name});
$name = ''
if $name eq 'IMMEDIATE';
if($type->{save})
{
for my $i(0..(typesize($_->{type}{type})-1))
@ -1050,6 +1052,8 @@ sub detect_constants($)
for(@{$progs->{globaldefs}})
{
my $s = $progs->{getstring}->($_->{s_name});
$s = ''
if $s eq 'IMMEDIATE';
$_->{debugname} //= "\$" . "$s"
if length $s;
}