paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 20:39:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation after r20801

Browse Source 
git-svn-id: trunk@20895 -
This commit is contained in:
Jonas Maebe 2012-04-15 21:11:10 +00:00
parent d442d14e0c
commit cdefb6720f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/avr/agavrgas.pas
View File

@ -54,7 +54,7 @@ unit agavrgas;
cutils,globals,verbose,
systems,
assemble,
aasmcpu,
aasmbase,aasmcpu,
itcpugas,
cpuinfo,
cgbase,cgutils;
@ -119,7 +119,7 @@ unit agavrgas;
else if assigned(symbol) or (offset<>0) then
begin
if assigned(symbol) then
s:=ReplaceForbiddenChars(symbol.name)
s:=ReplaceForbiddenAsmSymbolChars(symbol.name)
else
s:='';
@ -155,7 +155,7 @@ unit agavrgas;
top_ref:
if o.ref^.refaddr=addr_full then
begin
hs:=ReplaceForbiddenChars(o.ref^.symbol.name);
hs:=ReplaceForbiddenAsmSymbolChars(o.ref^.symbol.name);
if o.ref^.offset>0 then
hs:=hs+'+'+tostr(o.ref^.offset)
else