diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2012-04-11 18:01:57 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2012-04-11 18:01:57 +0000 |
| commit | 9dd6406ea4d3a76951c1aefae0eb5edf573ff585 (patch) | |
| tree | c586cc664a47582fb6264aca11240ffcbd246b02 /compiler/dbgstabs.pas | |
| parent | a25fe04b2aad4f884fa9425c284b8f45847bba83 (diff) | |
| download | fpc-9dd6406ea4d3a76951c1aefae0eb5edf573ff585.tar.gz | |
+ generic implementation of ReplaceForbiddenAsmSymbolChars() instead
of the AVR-specific ifdef'ed variant
o since the only special character we use in mangled names on all platforms
is $, added a new field to tasminfo called "dollarsign" that holds the
character $'s should be replaced with (if it doesn't have to be replaced,
leave it at $)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@20801 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/dbgstabs.pas')
| -rw-r--r-- | compiler/dbgstabs.pas | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/compiler/dbgstabs.pas b/compiler/dbgstabs.pas index 625a58d6a8..c0d1702f1b 100644 --- a/compiler/dbgstabs.pas +++ b/compiler/dbgstabs.pas @@ -125,10 +125,8 @@ implementation result := Sym.Name else result := Sym.RealName; -{$ifdef avr} - if target_asm.id=as_gas then - result:=ReplaceForbiddenChars(result); -{$endif avr} + if target_asm.dollarsign<>'$' then + result:=ReplaceForbiddenAsmSymbolChars(result); end; function GetSymTableName(SymTable : TSymTable) : string; @@ -137,10 +135,8 @@ implementation result := SymTable.Name^ else result := SymTable.RealName^; -{$ifdef avr} - if target_asm.id=as_gas then - result:=ReplaceForbiddenChars(result); -{$endif avr} + if target_asm.dollarsign<>'$' then + result:=ReplaceForbiddenAsmSymbolChars(result); end; const |