diff options
| author | peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2005-10-02 11:08:58 +0000 |
|---|---|---|
| committer | peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2005-10-02 11:08:58 +0000 |
| commit | 2b6b5886655168dcee78e3b71197239af043b044 (patch) | |
| tree | b22e5f3babca4d40a8bc715dcb9aea893700b78f /compiler/rautils.pas | |
| parent | 6b0bd3ce955b6692466f812c641a3c4efc828b18 (diff) | |
| download | fpc-2b6b5886655168dcee78e3b71197239af043b044.tar.gz | |
* string constants are now array of char until
they are converted to a specific string type
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@1254 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/rautils.pas')
| -rw-r--r-- | compiler/rautils.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/rautils.pas b/compiler/rautils.pas index c42455d701..1c97d8a129 100644 --- a/compiler/rautils.pas +++ b/compiler/rautils.pas @@ -1415,7 +1415,7 @@ end; pc: PChar; Begin getmem(pc,length(s)+1); - p.concat(Tai_string.Create_length_pchar(strpcopy(pc,s),length(s))); + p.concat(Tai_string.Create_pchar(strpcopy(pc,s),length(s))); end; Procedure ConcatPasString(p : TAAsmoutput;s:string); |