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

* fixed the name changes

Browse Source
This commit is contained in:
peter 1998-06-24 14:06:33 +00:00
parent f1082542f9
commit fe323891cf
6 changed files with 62 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/pp.pas
View File

@ -177,6 +177,7 @@ uses
{$O import}
{$O os2_targ}
{$O win_targ}
{$O asmutils}
{$ifdef gdb}
{$O gdb}
{$endif gdb}
@ -194,20 +195,21 @@ uses
{$O aopt386}
{$O cgai386}
{$O i386}
{$O radi386}
{$O rai386}
{$O ratti386}
{$O ra386dir}
{$O ra386int}
{$O ra386att}
{$O tgeni386}
{$O ag386int}
{$O ag386att}
{$O ag386nsm}
{$O asmutils}
{$endif}
{$ifdef m68k}
{$O opts68k}
{$O cg68k}
{$O ra68k}
{$O ra68kmot}
{$O ag68kgas}
{$O ag68kmot}
{$O ag68kmit}
{$endif}
{$endif useoverlay}
@ -392,7 +394,10 @@ begin
end.
{
$Log$
Revision 1.17 1998-06-23 08:59:22 daniel
Revision 1.18 1998-06-24 14:06:33 peter
* fixed the name changes
Revision 1.17 1998/06/23 08:59:22 daniel
* Recommitted.
Revision 1.16 1998/06/17 14:10:17 peter

13
compiler/pstatmnt.pas
View File

@ -602,18 +602,18 @@ unit pstatmnt;
case aktasmmode of
{$ifdef i386}
{$ifndef NoRA386Att}
I386_ATT : asmstat:=ratti386.assemble;
I386_ATT : asmstat:=ra386att.assemble;
{$endif NoRA386Att}
{$ifndef NoRA386Int}
I386_INTEL : asmstat:=rai386.assemble;
I386_INTEL : asmstat:=ra386int.assemble;
{$endif NoRA386Int}
{$ifndef NoRA386Dir}
I386_DIRECT : asmstat:=radi386.assemble;
I386_DIRECT : asmstat:=ra386dir.assemble;
{$endif NoRA386Dir}
{$endif}
{$ifdef m68k}
{$ifndef NoRA68kMot}
M68K_MOT : asmstat:=ra68k.assemble;
M68K_MOT : asmstat:=ra68kmot.assemble;
{$endif NoRA68kMot}
{$endif}
else
@ -1136,7 +1136,10 @@ unit pstatmnt;
end.
{
$Log$
Revision 1.20 1998-06-23 14:00:16 peter
Revision 1.21 1998-06-24 14:06:34 peter
* fixed the name changes
Revision 1.20 1998/06/23 14:00:16 peter
* renamed RA* units
Revision 1.19 1998/06/08 22:59:50 peter

11
compiler/ra386att.pas
View File

@ -20,7 +20,7 @@
****************************************************************************
}
Unit Ratti386;
Unit Ra386att;
{**********************************************************************}
{ WARNING }
{**********************************************************************}
@ -3673,7 +3673,7 @@ end;
var
old_exit: pointer;
procedure ratti386_exit;{$ifndef FPC}far;{$endif}
procedure ra386att_exit;{$ifndef FPC}far;{$endif}
begin
if assigned(iasmops) then
@ -3686,12 +3686,15 @@ Begin
line:=''; { Initialization of line variable.
No 255 char coonst string in version 0.9.1 MVC}
old_exit := exitproc;
exitproc := @ratti386_exit;
exitproc := @ra386att_exit;
end.
{
$Log$
Revision 1.1 1998-06-23 14:00:17 peter
Revision 1.2 1998-06-24 14:06:36 peter
* fixed the name changes
Revision 1.1 1998/06/23 14:00:17 peter
* renamed RA* units
Revision 1.13 1998/06/16 08:56:29 peter

7
compiler/ra386dir.pas
View File

@ -20,7 +20,7 @@
****************************************************************************
}
unit radi386;
unit Ra386dir;
interface
@ -239,7 +239,10 @@ unit radi386;
end.
{
$Log$
Revision 1.1 1998-06-23 14:00:18 peter
Revision 1.2 1998-06-24 14:06:37 peter
* fixed the name changes
Revision 1.1 1998/06/23 14:00:18 peter
* renamed RA* units
Revision 1.5 1998/06/12 10:32:32 pierre

29
compiler/ra386int.pas
View File

@ -20,7 +20,7 @@
****************************************************************************
}
Unit Rai386;
Unit Ra386int;
{**********************************************************************}
{ WARNING }
@ -216,15 +216,6 @@ var
end;
procedure rai386_exit;{$ifndef FPC}far;{$endif}
begin
if assigned(iasmops) then
dispose(iasmops);
exitproc:=old_exit;
end;
{---------------------------------------------------------------------}
{ Routines for the tokenizing }
{---------------------------------------------------------------------}
@ -3370,13 +3361,25 @@ var
end;
Begin
procedure ra386int_exit;{$ifndef FPC}far;{$endif}
begin
if assigned(iasmops) then
dispose(iasmops);
exitproc:=old_exit;
end;
begin
old_exit:=exitproc;
exitproc:=@rai386_exit;
exitproc:=@ra386int_exit;
end.
{
$Log$
Revision 1.1 1998-06-23 14:00:18 peter
Revision 1.2 1998-06-24 14:06:38 peter
* fixed the name changes
Revision 1.1 1998/06/23 14:00:18 peter
* renamed RA* units
Revision 1.11 1998/06/16 08:56:28 peter

25
compiler/ra68kmot.pas
View File

@ -20,7 +20,7 @@
****************************************************************************
}
Unit Ra68k;
Unit Ra68kMot;
{**********************************************************************}
{ WARNING }
{**********************************************************************}
@ -137,13 +137,6 @@ var
end;
procedure ra68k_exit;far;
begin
if assigned(iasmops) then
dispose(iasmops);
exitproc:=old_exit;
end;
{---------------------------------------------------------------------}
{ Routines for the tokenizing }
{---------------------------------------------------------------------}
@ -2166,13 +2159,25 @@ var
Message(assem_d_finish_motorola);
end;
procedure ra68kmot_exit;{$ifndef FPC}far;{$endif}
begin
if assigned(iasmops) then
dispose(iasmops);
exitproc:=old_exit;
end;
Begin
old_exit:=exitproc;
exitproc:=@ra68k_exit;
exitproc:=@ra68kmot_exit;
end.
{
$Log$
Revision 1.1 1998-06-23 14:00:20 peter
Revision 1.2 1998-06-24 14:06:39 peter
* fixed the name changes
Revision 1.1 1998/06/23 14:00:20 peter
* renamed RA* units
Revision 1.5 1998/06/12 10:32:31 pierre