mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:43:04 +01:00
* all references to comp suppressed for m68k
This commit is contained in:
pierre
parent
8d823b38c3
commit
d4854b6324
@ -224,8 +224,11 @@ unit aasm;
|
||||
tai_comp = object(tai)
|
||||
value : bestreal;
|
||||
constructor init(_value : bestreal);
|
||||
{$ifdef i386}
|
||||
{ usefull for 64 bits apps, maybe later }
|
||||
{ comp is not defined on m68k processors !! }
|
||||
constructor init_comp(_value : comp);
|
||||
{$endif i386}
|
||||
end;
|
||||
|
||||
|
||||
@ -566,6 +569,7 @@ uses
|
||||
value:=_value;
|
||||
end;
|
||||
|
||||
{$ifdef i386}
|
||||
constructor tai_comp.init_comp(_value : comp);
|
||||
|
||||
begin
|
||||
@ -573,6 +577,7 @@ uses
|
||||
typ:=ait_comp;
|
||||
value:=_value;
|
||||
end;
|
||||
{$endif i386}
|
||||
|
||||
{****************************************************************************
|
||||
TAI_STRING
|
||||
@ -907,7 +912,10 @@ uses
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.22 1998-10-12 12:20:38 pierre
|
||||
Revision 1.23 1998-10-14 15:56:37 pierre
|
||||
* all references to comp suppressed for m68k
|
||||
|
||||
Revision 1.22 1998/10/12 12:20:38 pierre
|
||||
+ added tai_const_symbol_offset
|
||||
for r : pointer = @var.field;
|
||||
* better message for different arg names on implementation
|
||||
|
||||
@ -76,7 +76,7 @@ unit ag68kgas;
|
||||
double2str:='0d'+hs
|
||||
end;
|
||||
|
||||
|
||||
(* TO SUPPORT SOONER OR LATER!!!
|
||||
function comp2str(d : bestreal) : string;
|
||||
type
|
||||
pdouble = ^double;
|
||||
@ -91,7 +91,7 @@ unit ag68kgas;
|
||||
{$endif}
|
||||
dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
|
||||
comp2str:=double2str(dd^);
|
||||
end;
|
||||
end; *)
|
||||
|
||||
|
||||
function getreferencestring(const ref : treference) : string;
|
||||
@ -418,9 +418,10 @@ unit ag68kgas;
|
||||
AsmWriteLn(#9'.extend'#9+double2str(pai_extended(hp)^.value));
|
||||
{ comp type is difficult to write so use double }
|
||||
end;
|
||||
{ TO SUPPORT SOONER OR LATER!!!
|
||||
ait_comp : Begin
|
||||
AsmWriteLn(#9'.double'#9+comp2str(pai_extended(hp)^.value));
|
||||
end;
|
||||
end; }
|
||||
ait_direct : begin
|
||||
AsmWritePChar(pai_direct(hp)^.str);
|
||||
AsmLn;
|
||||
@ -678,7 +679,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.17 1998-10-13 13:10:08 peter
|
||||
Revision 1.18 1998-10-14 15:56:39 pierre
|
||||
* all references to comp suppressed for m68k
|
||||
|
||||
Revision 1.17 1998/10/13 13:10:08 peter
|
||||
* new style for m68k/i386 infos and enums
|
||||
|
||||
Revision 1.16 1998/10/12 12:27:44 pierre
|
||||
|
||||
@ -76,6 +76,7 @@ unit ag68kmit;
|
||||
end;
|
||||
|
||||
|
||||
(* TO SUPPORT SOONER OR LATER!!!
|
||||
function comp2str(d : bestreal) : string;
|
||||
type
|
||||
pdouble = ^double;
|
||||
@ -90,7 +91,7 @@ unit ag68kmit;
|
||||
{$endif}
|
||||
dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
|
||||
comp2str:=double2str(dd^);
|
||||
end;
|
||||
end; *)
|
||||
|
||||
|
||||
function getreferencestring(const ref : treference) : string;
|
||||
@ -430,9 +431,10 @@ unit ag68kmit;
|
||||
AsmWriteLn(#9'.extend'#9+double2str(pai_extended(hp)^.value));
|
||||
{ comp type is difficult to write so use double }
|
||||
end;
|
||||
{ TO SUPPORT SOONER OR LATER!!!
|
||||
ait_comp : Begin
|
||||
AsmWriteLn(#9'.double'#9+comp2str(pai_extended(hp)^.value));
|
||||
end;
|
||||
end; }
|
||||
ait_direct : begin
|
||||
AsmWritePChar(pai_direct(hp)^.str);
|
||||
AsmLn;
|
||||
@ -656,7 +658,10 @@ ait_stab_function_name : funcname:=pai_stab_function_name(hp)^.str;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.13 1998-10-12 12:20:44 pierre
|
||||
Revision 1.14 1998-10-14 15:56:40 pierre
|
||||
* all references to comp suppressed for m68k
|
||||
|
||||
Revision 1.13 1998/10/12 12:20:44 pierre
|
||||
+ added tai_const_symbol_offset
|
||||
for r : pointer = @var.field;
|
||||
* better message for different arg names on implementation
|
||||
|
||||
@ -57,6 +57,7 @@ unit ag68kmot;
|
||||
end;
|
||||
|
||||
|
||||
(* TO SUPPORT SOONER OR LATER!!!
|
||||
function comp2str(d : bestreal) : string;
|
||||
type
|
||||
pdouble = ^double;
|
||||
@ -71,7 +72,7 @@ unit ag68kmot;
|
||||
{$endif}
|
||||
dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
|
||||
comp2str:=double2str(dd^);
|
||||
end;
|
||||
end; *)
|
||||
|
||||
|
||||
function getreferencestring(const ref : treference) : string;
|
||||
@ -539,7 +540,10 @@ ait_labeled_instruction :
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.11 1998-10-12 12:20:45 pierre
|
||||
Revision 1.12 1998-10-14 15:56:41 pierre
|
||||
* all references to comp suppressed for m68k
|
||||
|
||||
Revision 1.11 1998/10/12 12:20:45 pierre
|
||||
+ added tai_const_symbol_offset
|
||||
for r : pointer = @var.field;
|
||||
* better message for different arg names on implementation
|
||||
|
||||
@ -53,6 +53,7 @@ unit ag68kmpw;
|
||||
end;
|
||||
|
||||
|
||||
(* TO SUPPORT SOONER OR LATER!!!
|
||||
function comp2str(d : bestreal) : string;
|
||||
type
|
||||
pdouble = ^double;
|
||||
@ -67,7 +68,7 @@ unit ag68kmpw;
|
||||
{$endif}
|
||||
dd:=pdouble(@c); { this makes a bitwise copy of c into a double }
|
||||
comp2str:=double2str(dd^);
|
||||
end;
|
||||
end; *)
|
||||
|
||||
const
|
||||
line_length = 70;
|
||||
@ -578,7 +579,10 @@ ait_labeled_instruction :
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 1998-10-12 12:20:47 pierre
|
||||
Revision 1.4 1998-10-14 15:56:42 pierre
|
||||
* all references to comp suppressed for m68k
|
||||
|
||||
Revision 1.3 1998/10/12 12:20:47 pierre
|
||||
+ added tai_const_symbol_offset
|
||||
for r : pointer = @var.field;
|
||||
* better message for different arg names on implementation
|
||||
|
||||
@ -65,6 +65,7 @@ type
|
||||
Procedure AsmLn;
|
||||
procedure AsmCreate;
|
||||
procedure AsmClose;
|
||||
procedure Synchronize;
|
||||
procedure WriteTree(p:paasmoutput);virtual;
|
||||
procedure WriteAsmList;virtual;
|
||||
end;
|
||||
@ -364,6 +365,54 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
{Touch Assembler and object time to ppu time is there is a ppufilename}
|
||||
procedure TAsmList.Synchronize;
|
||||
var
|
||||
f : file;
|
||||
l : longint;
|
||||
begin
|
||||
{$ifdef linux}
|
||||
if not DoPipe then
|
||||
{$endif linux}
|
||||
begin
|
||||
{Touch Assembler time to ppu time is there is a ppufilename}
|
||||
if Assigned(current_module^.ppufilename) then
|
||||
begin
|
||||
Assign(f,current_module^.ppufilename^);
|
||||
{$I-}
|
||||
reset(f,1);
|
||||
{$I+}
|
||||
if ioresult=0 then
|
||||
begin
|
||||
getftime(f,l);
|
||||
close(f);
|
||||
assign(f,asmfile);
|
||||
{$I-}
|
||||
reset(f,1);
|
||||
{$I+}
|
||||
if ioresult=0 then
|
||||
begin
|
||||
setftime(f,l);
|
||||
close(f);
|
||||
end;
|
||||
if not(cs_asm_extern in aktglobalswitches) then
|
||||
begin
|
||||
assign(f,objfile);
|
||||
{$I-}
|
||||
reset(f,1);
|
||||
{$I+}
|
||||
if ioresult=0 then
|
||||
begin
|
||||
setftime(f,l);
|
||||
close(f);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
close(outfile);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
procedure TAsmList.WriteTree(p:paasmoutput);
|
||||
begin
|
||||
@ -459,6 +508,7 @@ begin
|
||||
a^.WriteAsmList;
|
||||
a^.AsmClose;
|
||||
a^.DoAssemble;
|
||||
a^.synchronize;
|
||||
dispose(a,Done);
|
||||
end;
|
||||
|
||||
@ -476,7 +526,10 @@ end;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.27 1998-10-13 16:50:01 pierre
|
||||
Revision 1.28 1998-10-14 15:56:43 pierre
|
||||
* all references to comp suppressed for m68k
|
||||
|
||||
Revision 1.27 1998/10/13 16:50:01 pierre
|
||||
* undid some changes of Peter that made the compiler wrong
|
||||
for m68k (I had to reinsert some ifdefs)
|
||||
* removed several memory leaks under m68k
|
||||
|
||||
Loading…
Reference in New Issue
Block a user