From a9e0837f1e8e4b505dfec5221461601c4f3ac3a7 Mon Sep 17 00:00:00 2001 From: peter Date: Sat, 30 May 1998 14:30:21 +0000 Subject: [PATCH] * force att reading --- rtl/i386/i386.inc | 12 +++++++++--- rtl/i386/strings.pp | 7 ++++++- 2 files changed, 15 insertions(+), 4 deletions(-) diff --git a/rtl/i386/i386.inc b/rtl/i386/i386.inc index 3ada653395..b53ff73bf7 100644 --- a/rtl/i386/i386.inc +++ b/rtl/i386/i386.inc @@ -15,6 +15,8 @@ **********************************************************************} +{$ASMMODE ATT} + {**************************************************************************** Move / Fill ****************************************************************************} @@ -147,7 +149,7 @@ end; Object Helpers ****************************************************************************} -{$I386_DIRECT} +{$ASMMODE DIRECT} procedure int_help_constructor;assembler; [public,alias:'HELP_CONSTRUCTOR']; asm @@ -309,6 +311,8 @@ asm addl $4,%esp end; +{$ASMMODE ATT} + {**************************************************************************** String @@ -704,7 +708,6 @@ begin end; -{$I386_ATT} Function Random(L: LongInt): LongInt;assembler; asm @@ -720,7 +723,10 @@ end; { $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 Revision 1.5 1998/04/29 13:28:19 peter diff --git a/rtl/i386/strings.pp b/rtl/i386/strings.pp index 118fcfb767..5c2675f18f 100644 --- a/rtl/i386/strings.pp +++ b/rtl/i386/strings.pp @@ -92,6 +92,8 @@ interface implementation +{$ASMMODE ATT} + function strcopy(dest,source : pchar) : pchar; begin @@ -585,7 +587,10 @@ end. { $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 }