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

* small x86_64 fixes

Browse Source
This commit is contained in:
florian 2004-04-12 18:59:32 +00:00
parent 2e3fb337ff
commit e678705648
3 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/aasmtai.pas
View File

@ -210,7 +210,7 @@ interface
ait_stabn,ait_stabs,ait_stab_function_name,
{$endif GDB}
ait_cut,ait_marker,ait_align,ait_section,ait_comment,
ait_const_8bit,ait_const_16bit,ait_const_32bit,
ait_const_8bit,ait_const_16bit,ait_const_32bit,ait_const_64bit,
ait_real_32bit,ait_real_64bit,ait_real_80bit,ait_comp_64bit,ait_real_128bit,
ait_non_lazy_symbol_pointer
];
@ -2009,7 +2009,10 @@ implementation
end.
{
$Log$
Revision 1.81 2004-03-16 22:12:10 florian
Revision 1.82 2004-04-12 18:59:32 florian
* small x86_64 fixes
Revision 1.81 2004/03/16 22:12:10 florian
* some alignment issues resolved
* compiler doesn't generate anymore instructions not supported by the linux fpe

11
compiler/aggas.pas
View File

@ -199,8 +199,8 @@ var
const
ait_const2str : array[ait_const_32bit..ait_const_8bit] of string[8]=
(#9'.long'#9,#9'.short'#9,#9'.byte'#9);
ait_const2str : array[ait_const_64bit..ait_const_8bit] of string[8]=
(#9'.quad'#9,#9'.long'#9,#9'.short'#9,#9'.byte'#9);
function ait_section2str(s:TSection):string;
@ -321,7 +321,6 @@ var
hp:=tai(p.first);
while assigned(hp) do
begin
if not(hp.typ in SkipLineInfo) then
begin
hp1 := hp as tailineinfo;
@ -461,6 +460,7 @@ var
AsmWriteln('');
end;
ait_const_64bit,
ait_const_32bit,
ait_const_16bit,
ait_const_8bit :
@ -882,7 +882,10 @@ var
end.
{
$Log$
Revision 1.48 2004-03-17 22:27:41 florian
Revision 1.49 2004-04-12 18:59:32 florian
* small x86_64 fixes
Revision 1.48 2004/03/17 22:27:41 florian
* fixed handling of doubles in a native arm compiler
* fixed handling of typed double constants on arm

7
compiler/pexpr.pas
View File

@ -1888,7 +1888,7 @@ implementation
if code=0 then
begin
consume(_INTCONST);
int_to_type(card,htype);
int_to_type(ic,htype);
p1:=cordconstnode.create(ic,htype,true);
end;
{$else cpu64bit}
@ -2399,7 +2399,10 @@ implementation
end.
{
$Log$
Revision 1.152 2004-03-29 14:42:52 peter
Revision 1.153 2004-04-12 18:59:32 florian
* small x86_64 fixes
Revision 1.152 2004/03/29 14:42:52 peter
* variant array support
Revision 1.151 2004/03/23 22:34:49 peter