diff options
| author | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-10-06 20:54:25 +0000 |
|---|---|---|
| committer | jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-10-06 20:54:25 +0000 |
| commit | 5041d368bbec6d1a15eaa257f1d7ff193addfda4 (patch) | |
| tree | 1021ea7afe0dcf2e211e08ab8a7580c3b9e64e03 /compiler/aasmcnst.pas | |
| parent | fa6791952fd582e089c4e18b85613e50aab0c07b (diff) | |
| download | fpc-5041d368bbec6d1a15eaa257f1d7ff193addfda4.tar.gz | |
- removed unused list parameter from emit_string_const_common()
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/hlcgllvm@28778 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/aasmcnst.pas')
| -rw-r--r-- | compiler/aasmcnst.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/aasmcnst.pas b/compiler/aasmcnst.pas index 0611aafea1..95a0353c91 100644 --- a/compiler/aasmcnst.pas +++ b/compiler/aasmcnst.pas @@ -210,7 +210,7 @@ type procedure emit_tai_procvar2procdef(p: tai; pvdef: tprocvardef); virtual; 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 end_aggregate_internal(def: tdef; anonymous: boolean); virtual; { when building an anonymous record, we cannot immediately insert the @@ -798,7 +798,7 @@ implementation 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 string_symofs: asizeint; charptrdef: tdef; @@ -946,7 +946,7 @@ implementation options: ttcasmlistoptions; begin 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); move(data^,s^,len); @@ -995,7 +995,7 @@ implementation end else 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; if cwidechartype.size = 2 then begin |