paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 01:52:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* document the fact that ti8086paramanager.getintparaloc allocates a 16-bit parameter, and not a 32-bit one

Browse Source 
git-svn-id: branches/i8086@24255 -
This commit is contained in:
nickysn 2013-04-15 22:08:11 +00:00
parent 1312fd72f2
commit 28c05c1ed5
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/i8086/cpupara.pas
View File

@ -40,10 +40,16 @@ unit cpupara;
function get_volatile_registers_int(calloption : tproccalloption):tcpuregisterset;override; function get_volatile_registers_int(calloption : tproccalloption):tcpuregisterset;override;
function get_volatile_registers_fpu(calloption : tproccalloption):tcpuregisterset;override; function get_volatile_registers_fpu(calloption : tproccalloption):tcpuregisterset;override;
function get_volatile_registers_mm(calloption : tproccalloption):tcpuregisterset;override; function get_volatile_registers_mm(calloption : tproccalloption):tcpuregisterset;override;
{ Returns the location for the nr-st 32 Bit int parameter { Returns the location for the nr-st 16 Bit int parameter
if every parameter before is an 32 Bit int parameter as well if every parameter before is an 16 Bit int parameter as well
and if the calling conventions for the helper routines of the and if the calling conventions for the helper routines of the
rtl are used. rtl are used.
TODO: This allocates 32-bit ints on other CPU architectures. Since
we're small/tiny model only, for now we can get away with allocating
always 16-bit int parameters, but in the future, when we implement
other memory models, this mechanism has to be extended somehow to
support 32-bit addresses on a 16-bit CPU.
} }
procedure getintparaloc(pd : tabstractprocdef; nr : longint; var cgpara : tcgpara);override; procedure getintparaloc(pd : tabstractprocdef; nr : longint; var cgpara : tcgpara);override;
function create_paraloc_info(p : tabstractprocdef; side: tcallercallee):longint;override; function create_paraloc_info(p : tabstractprocdef; side: tcallercallee):longint;override;