mirror of
https://github.com/byteworksinc/ORCA-C.git
synced 2024-06-18 11:29:30 +00:00
Preserve qualifiers when changing float/double/comp parameters to extended.
Changing the type is still non-standard, but at least this allows us to detect and report write-to-const errors.
This commit is contained in:
parent
6f0b94bb7c
commit
8eda03436a
|
@ -3885,7 +3885,8 @@ if isFunction then begin
|
||||||
if lp^.itype^.kind = scalarType then
|
if lp^.itype^.kind = scalarType then
|
||||||
if lp^.itype^.baseType in [cgReal,cgDouble,cgComp] then
|
if lp^.itype^.baseType in [cgReal,cgDouble,cgComp] then
|
||||||
{all floating-points are passed as extended}
|
{all floating-points are passed as extended}
|
||||||
lp^.itype := extendedPtr;
|
lp^.itype :=
|
||||||
|
MakeQualifiedType(extendedPtr, lp^.itype^.qualifiers);
|
||||||
nextPdisp := nextPdisp + long(lp^.itype^.size).lsw;
|
nextPdisp := nextPdisp + long(lp^.itype^.size).lsw;
|
||||||
if (long(lp^.itype^.size).lsw = 1)
|
if (long(lp^.itype^.size).lsw = 1)
|
||||||
and (lp^.itype^.kind = scalarType) then
|
and (lp^.itype^.kind = scalarType) then
|
||||||
|
|
Loading…
Reference in New Issue
Block a user