paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:46:00 +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; i : integer;
begin begin
inherited Create; 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; ops:=ppufile.getbyte;
for i:=1 to ops do for i:=1 to ops do
ppuloadoper(ppufile,oper[i-1]); ppuloadoper(ppufile,oper[i-1]);
@ -1342,7 +1343,7 @@ uses
var var
i : integer; i : integer;
begin begin
ppufile.putbyte(byte(condition)); ppufile.putdata(condition,sizeof(tasmcond));
ppufile.putbyte(ops); ppufile.putbyte(ops);
for i:=1 to ops do for i:=1 to ops do
ppuwriteoper(ppufile,oper[i-1]); ppuwriteoper(ppufile,oper[i-1]);
@ -1436,7 +1437,10 @@ uses
end. end.
{ {
$Log$ $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 * first things tai,tnode storing in ppu
Revision 1.4 2002/08/11 14:32:25 peter Revision 1.4 2002/08/11 14:32:25 peter