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

* powerpc compilation fix

Browse Source
This commit is contained in:
florian 2002-08-16 05:21:09 +00:00
parent 67abe74589
commit 2de332fa28
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/aasmtai.pas
View File

@ -1326,7 +1326,8 @@ uses
i : integer;
begin
inherited Create;
condition:=tasmcond(ppufile.getbyte);
{ hopefully, we don't get problems with big/litte endian here when cross compiling :/ }
ppufile.getdata(condition,sizeof(tasmcond));
ops:=ppufile.getbyte;
for i:=1 to ops do
ppuloadoper(ppufile,oper[i-1]);
@ -1342,7 +1343,7 @@ uses
var
i : integer;
begin
ppufile.putbyte(byte(condition));
ppufile.putdata(condition,sizeof(tasmcond));
ppufile.putbyte(ops);
for i:=1 to ops do
ppuwriteoper(ppufile,oper[i-1]);
@ -1436,7 +1437,10 @@ uses
end.
{
$Log$
Revision 1.5 2002-08-15 19:10:35 peter
Revision 1.6 2002-08-16 05:21:09 florian
* powerpc compilation fix
Revision 1.5 2002/08/15 19:10:35 peter
* first things tai,tnode storing in ppu
Revision 1.4 2002/08/11 14:32:25 peter