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 /compiler/nbas.pas | |
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 'compiler/nbas.pas')
-rw-r--r-- | compiler/nbas.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nbas.pas b/compiler/nbas.pas index 502b0bd670..ae068e161c 100644 --- a/compiler/nbas.pas +++ b/compiler/nbas.pas @@ -155,6 +155,7 @@ interface { a node which removes a temp } ttempdeletenode = class(tnode) + tempinfo: ptempinfo; constructor create(const temp: ttempcreatenode); virtual; { this will convert the persistant temp to a normal temp for returning to the other nodes } @@ -169,7 +170,6 @@ interface destructor destroy; override; procedure printnodedata(var t:text);override; protected - tempinfo: ptempinfo; release_to_normal : boolean; private tempidx : longint; |