|
@@ -1772,6 +1772,9 @@ unit cgcpu;
|
|
srcrefp,dstrefp : treference;
|
|
srcrefp,dstrefp : treference;
|
|
srcref,dstref : treference;
|
|
srcref,dstref : treference;
|
|
begin
|
|
begin
|
|
|
|
+ if (len < 1) then
|
|
|
|
+ exit;
|
|
|
|
+
|
|
if (len = 1) or
|
|
if (len = 1) or
|
|
((len in [2,4]) and
|
|
((len in [2,4]) and
|
|
not needs_unaligned(source.alignment,lentocgsize[len]) and
|
|
not needs_unaligned(source.alignment,lentocgsize[len]) and
|