mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-24 20:49:16 +02:00
* don't perform the automatic insertion of typecasts in case register
allocation hasn't been performed, because then reused "registers" could have multiple types git-svn-id: trunk@34121 -
This commit is contained in:
parent
0cce590982
commit
31b70ecfd3
@ -626,6 +626,8 @@ implementation
|
|||||||
i: longint;
|
i: longint;
|
||||||
hal: tasmlisttype;
|
hal: tasmlisttype;
|
||||||
begin
|
begin
|
||||||
|
if cs_no_regalloc in current_settings.globalswitches then
|
||||||
|
exit;
|
||||||
storefilepos:=current_filepos;
|
storefilepos:=current_filepos;
|
||||||
current_filepos:=current_module.mainfilepos;
|
current_filepos:=current_module.mainfilepos;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user