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

* force att reading

Browse Source
This commit is contained in:
peter 1998-05-30 14:30:21 +00:00
parent 1d389f6211
commit a9e0837f1e
2 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/i386/i386.inc
View File

@ -15,6 +15,8 @@
**********************************************************************} **********************************************************************}
{$ASMMODE ATT}
{**************************************************************************** {****************************************************************************
Move / Fill Move / Fill
****************************************************************************} ****************************************************************************}
@ -147,7 +149,7 @@ end;
Object Helpers Object Helpers
****************************************************************************} ****************************************************************************}
{$I386_DIRECT} {$ASMMODE DIRECT}
procedure int_help_constructor;assembler; [public,alias:'HELP_CONSTRUCTOR']; procedure int_help_constructor;assembler; [public,alias:'HELP_CONSTRUCTOR'];
asm asm
@ -309,6 +311,8 @@ asm
addl $4,%esp addl $4,%esp
end; end;
{$ASMMODE ATT}
{**************************************************************************** {****************************************************************************
String String
@ -704,7 +708,6 @@ begin
end; end;
{$I386_ATT}
Function Random(L: LongInt): LongInt;assembler; Function Random(L: LongInt): LongInt;assembler;
asm asm
@ -720,7 +723,10 @@ end;
{ {
$Log$ $Log$
Revision 1.10 1998-05-25 10:40:49 peter Revision 1.11 1998-05-30 14:30:21 peter
* force att reading
Revision 1.10 1998/05/25 10:40:49 peter
* remake3 works again on tflily * remake3 works again on tflily
Revision 1.5 1998/04/29 13:28:19 peter Revision 1.5 1998/04/29 13:28:19 peter

7
rtl/i386/strings.pp
View File

@ -92,6 +92,8 @@ interface
implementation implementation
{$ASMMODE ATT}
function strcopy(dest,source : pchar) : pchar; function strcopy(dest,source : pchar) : pchar;
begin begin
@ -585,7 +587,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 1998-05-23 01:14:06 peter Revision 1.3 1998-05-30 14:30:22 peter
* force att reading
Revision 1.2 1998/05/23 01:14:06 peter
+ I386_ATT switch + I386_ATT switch
} }