paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:29:20 +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, ait_stabn,ait_stabs,ait_stab_function_name,
{$endif GDB} {$endif GDB}
ait_cut,ait_marker,ait_align,ait_section,ait_comment, 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_real_32bit,ait_real_64bit,ait_real_80bit,ait_comp_64bit,ait_real_128bit,
ait_non_lazy_symbol_pointer ait_non_lazy_symbol_pointer
]; ];
@ -2009,7 +2009,10 @@ implementation
end. end.
{ {
$Log$ $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 * some alignment issues resolved
* compiler doesn't generate anymore instructions not supported by the linux fpe * compiler doesn't generate anymore instructions not supported by the linux fpe

11
compiler/aggas.pas
View File

@ -199,8 +199,8 @@ var
const const
ait_const2str : array[ait_const_32bit..ait_const_8bit] of string[8]= ait_const2str : array[ait_const_64bit..ait_const_8bit] of string[8]=
(#9'.long'#9,#9'.short'#9,#9'.byte'#9); (#9'.quad'#9,#9'.long'#9,#9'.short'#9,#9'.byte'#9);
function ait_section2str(s:TSection):string; function ait_section2str(s:TSection):string;
@ -321,7 +321,6 @@ var
hp:=tai(p.first); hp:=tai(p.first);
while assigned(hp) do while assigned(hp) do
begin begin
if not(hp.typ in SkipLineInfo) then if not(hp.typ in SkipLineInfo) then
begin begin
hp1 := hp as tailineinfo; hp1 := hp as tailineinfo;
@ -461,6 +460,7 @@ var
AsmWriteln(''); AsmWriteln('');
end; end;
ait_const_64bit,
ait_const_32bit, ait_const_32bit,
ait_const_16bit, ait_const_16bit,
ait_const_8bit : ait_const_8bit :
@ -882,7 +882,10 @@ var
end. end.
{ {
$Log$ $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 doubles in a native arm compiler
* fixed handling of typed double constants on arm * fixed handling of typed double constants on arm

7
compiler/pexpr.pas
View File

@ -1888,7 +1888,7 @@ implementation
if code=0 then if code=0 then
begin begin
consume(_INTCONST); consume(_INTCONST);
int_to_type(card,htype); int_to_type(ic,htype);
p1:=cordconstnode.create(ic,htype,true); p1:=cordconstnode.create(ic,htype,true);
end; end;
{$else cpu64bit} {$else cpu64bit}
@ -2399,7 +2399,10 @@ implementation
end. end.
{ {
$Log$ $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 * variant array support
Revision 1.151 2004/03/23 22:34:49 peter Revision 1.151 2004/03/23 22:34:49 peter