* change .align to .balign

rtl/i386/strings.inc

@@ -37,7 +37,7 @@ asm
         jz      .LStrCopyDone
         decl    %ecx
         jnz     .LStrCopyAlignLoop
-        .align  16
+        .balign  16
 .LStrCopyAligned:
         movl    (%esi),%eax
         addl    $4,%esi
@@ -98,7 +98,7 @@ asm
         movl    maxlen,%ecx
         movl    dest,%edi
         orl     %ecx,%ecx
-        jz      .LSTRLCOPY2 
+        jz      .LSTRLCOPY2
         cld
 .LSTRLCOPY1:
         lodsb
@@ -128,7 +128,7 @@ asm
         scasb
         movl    $0xfffffffe,%eax
         subl    %ecx,%eax
-.LNil:        
+.LNil:
 end ['EDI','ECX','EAX'];
 
 
@@ -292,7 +292,7 @@ asm
         decl    %esi
         jnz     .LSTRSCANALIGNLOOP
         jmp     .LSTRSCANLOOP
-        .align  16
+        .balign  16
 .LSTRSCANLOOP:
         movl    (%edi),%eax
         movl    %eax,%esi
@@ -343,7 +343,7 @@ end ['EAX','ECX','ESI','EDI','EDX'];
 
 function strrscan(p : pchar;c : char) : pchar;assembler;
 asm
-	xorl    %eax,%eax
+        xorl    %eax,%eax
         movl    p,%edi
         orl     %edi,%edi
         jz      .LSTRRSCAN
@@ -372,8 +372,8 @@ end ['EAX','ECX','EDI'];
 function strupper(p : pchar) : pchar;assembler;
 asm
         movl    p,%esi
-	orl     %esi,%esi
-	jz      .LStrUpperNil
+        orl     %esi,%esi
+        jz      .LStrUpperNil
         movl    %esi,%edi
 .LSTRUPPER1:
         lodsb
@@ -414,7 +414,10 @@ end ['EAX','ESI','EDI'];
 
 {
   $Log$
-  Revision 1.9  2000-06-11 14:25:23  jonas
+  Revision 1.10  2000-06-12 19:53:32  peter
+    * change .align to .balign
+
+  Revision 1.9  2000/06/11 14:25:23  jonas
     * much faster strcopy and strscan procedures
 
   Revision 1.8  2000/03/28 11:14:33  jonas

rtl/i386/stringss.inc

@@ -17,15 +17,8 @@
 
 function strpas(p : pchar) : string;
 begin
-{$ifndef NEWATT}
-  strpas:='';
-{$endif}
 asm
-{$ifdef NEWATT}
         movl    __RESULT,%edi
-{$else}
-        movl    8(%ebp),%edi
-{$endif}
         movl    p,%esi
         // at the end, add 255 to cl to get the string length (byte(1+255) = 0)
         movb    $1,%cl
@@ -39,7 +32,7 @@ asm
         addl    $3,%esi
         // Store everything already, since the temp string = 255 chars anyway
         // The length byte will contain zero this way, but it will be
-        // overwritten at the end, so it doesn't matter       
+        // overwritten at the end, so it doesn't matter
         movl    %eax,(%edi)
         // test the second char (we shifted left 8 bits)
         testl   $0x0ff0000,%eax
@@ -51,7 +44,7 @@ asm
         testl   $0x0ff000000,%eax
         jz      .LStrPasDone
         incb    %cl
-        .align  16
+        .balign  16
 .LStrPasLoop:
         movl    (%esi),%eax
         addl    $4,%esi
@@ -80,11 +73,7 @@ asm
 .LStrPasByte:
         incb    %cl
 .LStrPasDone:
-{$ifdef NEWATT}
         movl    __RESULT,%edi
-{$else}
-        movl    8(%ebp),%edi
-{$endif}
         addb    $255,%cl
         movb    %cl,(%edi)
 end ['EAX','ECX','ESI','EDI'];
@@ -109,7 +98,10 @@ end ['EDI','EAX','ECX'];
 
 {
   $Log$
-  Revision 1.12  2000-06-12 13:17:56  jonas
+  Revision 1.13  2000-06-12 19:53:32  peter
+    * change .align to .balign
+
+  Revision 1.12  2000/06/12 13:17:56  jonas
     * fixed typo :(
 
   Revision 1.11  2000/06/12 08:33:26  jonas