paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-25 11:37:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

- removed unused list parameter from emit_string_const_common()

Browse Source 
git-svn-id: branches/hlcgllvm@28778 -
This commit is contained in:
Jonas Maebe 2014-10-06 20:54:25 +00:00
parent 427b05e97c
commit 3b6269c5d9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/aasmcnst.pas
View File

@ -210,7 +210,7 @@ type
procedure emit_tai_procvar2procdef(p: tai; pvdef: tprocvardef); virtual; procedure emit_tai_procvar2procdef(p: tai; pvdef: tprocvardef); virtual;
protected protected
function emit_string_const_common(list: TAsmList; stringtype: tstringtype; len: asizeint; encoding: tstringencoding; out startlab: tasmlabel):tasmlabofs; function emit_string_const_common(stringtype: tstringtype; len: asizeint; encoding: tstringencoding; out startlab: tasmlabel):tasmlabofs;
procedure begin_aggregate_internal(def: tdef; anonymous: boolean); virtual; procedure begin_aggregate_internal(def: tdef; anonymous: boolean); virtual;
procedure end_aggregate_internal(def: tdef; anonymous: boolean); virtual; procedure end_aggregate_internal(def: tdef; anonymous: boolean); virtual;
{ when building an anonymous record, we cannot immediately insert the { when building an anonymous record, we cannot immediately insert the
@ -798,7 +798,7 @@ implementation
end; end;
function ttai_typedconstbuilder.emit_string_const_common(list: TAsmList; stringtype: tstringtype; len: asizeint; encoding: tstringencoding; out startlab: tasmlabel): tasmlabofs; function ttai_typedconstbuilder.emit_string_const_common(stringtype: tstringtype; len: asizeint; encoding: tstringencoding; out startlab: tasmlabel): tasmlabofs;
var var
string_symofs: asizeint; string_symofs: asizeint;
charptrdef: tdef; charptrdef: tdef;
@ -946,7 +946,7 @@ implementation
options: ttcasmlistoptions; options: ttcasmlistoptions;
begin begin
datatcb:=self.create; datatcb:=self.create;
result:=datatcb.emit_string_const_common(list,st_ansistring,len,encoding,startlab); result:=datatcb.emit_string_const_common(st_ansistring,len,encoding,startlab);
getmem(s,len+1); getmem(s,len+1);
move(data^,s^,len); move(data^,s^,len);
@ -995,7 +995,7 @@ implementation
end end
else else
begin begin
result:=datatcb.emit_string_const_common(list,st_unicodestring,strlength,encoding,startlab); result:=datatcb.emit_string_const_common(st_unicodestring,strlength,encoding,startlab);
end; end;
if cwidechartype.size = 2 then if cwidechartype.size = 2 then
begin begin