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

* comp is now written with its bit pattern to the ppu instead as an extended

Browse Source
This commit is contained in:
florian 2003-04-24 13:03:01 +00:00
parent cca5ca2ab9
commit 47a3437dba
4 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/aasmtai.pas
View File

@ -1050,14 +1050,14 @@ uses
constructor tai_comp_64bit.ppuload(t:taitype;ppufile:tcompilerppufile); constructor tai_comp_64bit.ppuload(t:taitype;ppufile:tcompilerppufile);
begin begin
inherited ppuload(t,ppufile); inherited ppuload(t,ppufile);
value:=ppufile.getreal; ppufile.putdata(value,sizeof(value));
end; end;
procedure tai_comp_64bit.ppuwrite(ppufile:tcompilerppufile); procedure tai_comp_64bit.ppuwrite(ppufile:tcompilerppufile);
begin begin
inherited ppuwrite(ppufile); inherited ppuwrite(ppufile);
ppufile.putreal(value); ppufile.getdata(value,sizeof(value));
end; end;
@ -1814,7 +1814,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.23 2003-04-22 14:33:38 peter Revision 1.24 2003-04-24 13:03:01 florian
* comp is now written with its bit pattern to the ppu instead as an extended
Revision 1.23 2003/04/22 14:33:38 peter
* removed some notes/hints * removed some notes/hints
Revision 1.22 2003/04/22 10:09:34 daniel Revision 1.22 2003/04/22 10:09:34 daniel

7
compiler/pdecsub.pas
View File

@ -98,7 +98,7 @@ implementation
currpara:=tparaitem(pd.para.last); currpara:=tparaitem(pd.para.last);
while assigned(currpara) do while assigned(currpara) do
begin begin
{ need high parameter ? } { needs high parameter ? }
if paramanager.push_high_param(currpara.paratype.def,pd.proccalloption) then if paramanager.push_high_param(currpara.paratype.def,pd.proccalloption) then
begin begin
if assigned(currpara.parasym) then if assigned(currpara.parasym) then
@ -2129,7 +2129,10 @@ const
end. end.
{ {
$Log$ $Log$
Revision 1.114 2003-04-23 13:12:26 peter Revision 1.115 2003-04-24 13:03:01 florian
* comp is now written with its bit pattern to the ppu instead as an extended
Revision 1.114 2003/04/23 13:12:26 peter
* fix po_comp setting for fpc mode * fix po_comp setting for fpc mode
Revision 1.113 2003/04/23 10:12:51 peter Revision 1.113 2003/04/23 10:12:51 peter

7
compiler/ppu.pas
View File

@ -41,7 +41,7 @@ type
{$endif Test_Double_checksum} {$endif Test_Double_checksum}
const const
CurrentPPUVersion=33; CurrentPPUVersion=34;
{ buffer sizes } { buffer sizes }
maxentrysize = 1024; maxentrysize = 1024;
@ -985,7 +985,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.32 2003-04-23 14:42:07 daniel Revision 1.33 2003-04-24 13:03:01 florian
* comp is now written with its bit pattern to the ppu instead as an extended
Revision 1.32 2003/04/23 14:42:07 daniel
* Further register allocator work. Compiler now smaller with new * Further register allocator work. Compiler now smaller with new
allocator than without. allocator than without.
* Somebody forgot to adjust ppu version number * Somebody forgot to adjust ppu version number

9
compiler/psub.pas
View File

@ -115,9 +115,9 @@ implementation
{ insert in local symtable } { insert in local symtable }
{$ifdef powerpc} {$ifdef powerpc}
{ this requires us to setup a stack frame, which gives problem in the linux syscall helpers (JM) } { this requires us to setup a stack frame, which gives problem in the linux syscall helpers (JM) }
if not(po_assembler in aktprocdef.procoptions) or if not(po_assembler in aktprocdef.procoptions) then
not(paramanager.ret_in_reg(aktprocdef.rettype.def,aktprocdef.proccalloption)) then
{$endif powerpc} {$endif powerpc}
// not(paramanager.ret_in_reg(aktprocdef.rettype.def,aktprocdef.proccalloption)) then
begin begin
symtablestack.insert(aktprocdef.funcretsym); symtablestack.insert(aktprocdef.funcretsym);
symtablestack.insertvardata(aktprocdef.funcretsym); symtablestack.insertvardata(aktprocdef.funcretsym);
@ -884,7 +884,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.102 2003-04-23 12:35:34 florian Revision 1.103 2003-04-24 13:03:01 florian
* comp is now written with its bit pattern to the ppu instead as an extended
Revision 1.102 2003/04/23 12:35:34 florian
* fixed several issues with powerpc * fixed several issues with powerpc
+ applied a patch from Jonas for nested function calls (PowerPC only) + applied a patch from Jonas for nested function calls (PowerPC only)
* ... * ...