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