diff options
| author | peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-10-02 20:00:06 +0000 |
|---|---|---|
| committer | peter <peter@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2006-10-02 20:00:06 +0000 |
| commit | 67dab3491f0cc1d8ea4347f924e7df624da7734a (patch) | |
| tree | d8b1174ff081c81866e033e72ee361cfdcd65c4b /rtl/powerpc | |
| parent | 62c19c1fc9909d929ada9206078d1193d33cfd68 (diff) | |
| download | fpc-67dab3491f0cc1d8ea4347f924e7df624da7734a.tar.gz | |
* string concat changed from function to procedure to
allow runtime optimization if the destination is the
same as a source parameter
* tassignmentnode now sets aktassignmentnode global that can be used
to use the left node as a destination parameter and
skip the assignment
* disabled all cpu specific shortstr concat/append
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@4770 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'rtl/powerpc')
| -rw-r--r-- | rtl/powerpc/powerpc.inc | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rtl/powerpc/powerpc.inc b/rtl/powerpc/powerpc.inc index b9995e22ad..f2451b7f70 100644 --- a/rtl/powerpc/powerpc.inc +++ b/rtl/powerpc/powerpc.inc @@ -868,6 +868,8 @@ asm end; {$endif FPC_SYSTEM_HAS_FPC_SHORTSTR_ASSIGN} +{$ifndef STR_CONCAT_PROCS} + (* {$ifndef FPC_SYSTEM_HAS_FPC_SHORTSTR_CONCAT} {$define FPC_SYSTEM_HAS_FPC_SHORTSTR_CONCAT} @@ -959,6 +961,8 @@ asm end; {$endif FPC_SYSTEM_HAS_FPC_SHORTSTR_APPEND_SHORTSTR} +{$endif STR_CONCAT_PROCS} + (* {$define FPC_SYSTEM_HAS_FPC_SHORTSTR_COMPARE} function fpc_shortstr_compare(const dstr,sstr:shortstring): longint; [public,alias:'FPC_SHORTSTR_COMPARE']; compilerproc; |