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

* removed ie20050111

Browse Source
This commit is contained in:
florian 2005-01-12 10:02:22 +00:00
parent 947246873d
commit b28dbc570d
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ncgcal.pas
View File

@ -748,8 +748,6 @@ implementation
{$endif PASS2INLINE} {$endif PASS2INLINE}
begin begin
{$ifdef cputargethasfixedstack} {$ifdef cputargethasfixedstack}
if (assigned(tmpparaloc^.next)) then
internalerror(20050111);
reference_reset_base(href,callerparaloc^.reference.index,callerparaloc^.reference.offset); reference_reset_base(href,callerparaloc^.reference.index,callerparaloc^.reference.offset);
{ copy parameters in case they were moved to a temp. location because we've a fixed stack } { copy parameters in case they were moved to a temp. location because we've a fixed stack }
case tmpparaloc^.loc of case tmpparaloc^.loc of
@ -1262,7 +1260,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.194 2005-01-10 21:50:05 jonas Revision 1.195 2005-01-12 10:02:22 florian
* removed ie20050111
Revision 1.194 2005/01/10 21:50:05 jonas
+ support for passing records in registers under darwin + support for passing records in registers under darwin
* tcgpara now also has an intsize field, which contains the size in * tcgpara now also has an intsize field, which contains the size in
bytes of the whole parameter bytes of the whole parameter