paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 11:32:40 +01: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, cutils,globals,verbose,
systems, systems,
assemble, assemble,
aasmcpu, aasmbase,aasmcpu,
itcpugas, itcpugas,
cpuinfo, cpuinfo,
cgbase,cgutils; cgbase,cgutils;
@ -119,7 +119,7 @@ unit agavrgas;
else if assigned(symbol) or (offset<>0) then else if assigned(symbol) or (offset<>0) then
begin begin
if assigned(symbol) then if assigned(symbol) then
s:=ReplaceForbiddenChars(symbol.name) s:=ReplaceForbiddenAsmSymbolChars(symbol.name)
else else
s:=''; s:='';
@ -155,7 +155,7 @@ unit agavrgas;
top_ref: top_ref:
if o.ref^.refaddr=addr_full then if o.ref^.refaddr=addr_full then
begin begin
hs:=ReplaceForbiddenChars(o.ref^.symbol.name); hs:=ReplaceForbiddenAsmSymbolChars(o.ref^.symbol.name);
if o.ref^.offset>0 then if o.ref^.offset>0 then
hs:=hs+'+'+tostr(o.ref^.offset) hs:=hs+'+'+tostr(o.ref^.offset)
else else