- Removed register lists after pure assembler procedures, they are ignored anyway.

git-svn-id: trunk@25550 -

rtl/go32v2/crt.pp

@@ -376,7 +376,7 @@ asm
         cmpl    %fs:(%edi),%ebx
         je      .LDelayLoop1
 .LDelayLoop2:
-end ['EAX'];
+end;
 
 
 procedure initdelay;assembler;
@@ -404,7 +404,7 @@ asm
         movl    %eax,DelayCnt
         popl %edi
         popl %ebx
-end ['EAX','ECX','EDX'];
+end;
 
 
 procedure Delay(MS: Word);assembler;
@@ -423,7 +423,7 @@ asm
 .LDelay2:
         popl %edi
         popl %ebx
-end ['EAX','ECX','EDX'];
+end;
 
 
 procedure sound(hz : word);

rtl/go32v2/ports.pp

@@ -60,14 +60,14 @@ asm
         movw    p,%dx
         movb    data,%al
         outb    %al,%dx
-end ['EAX','EDX'];
+end;
 
 
 function tport.readport(p : word) : byte;assembler;
 asm
         movw    p,%dx
         inb     %dx,%al
-end ['EAX','EDX'];
+end;
 
 
 procedure tportw.writeport(p : word;data : word);assembler;
@@ -75,14 +75,14 @@ asm
         movw    p,%dx
         movw    data,%ax
         outw    %ax,%dx
-end ['EAX','EDX'];
+end;
 
 
 function tportw.readport(p : word) : word;assembler;
 asm
         movw    p,%dx
         inw     %dx,%ax
-end ['EAX','EDX'];
+end;
 
 
 procedure tportl.writeport(p : word;data : longint);assembler;
@@ -90,13 +90,13 @@ asm
         movw    p,%dx
         movl    data,%eax
         outl    %eax,%dx
-end ['EAX','EDX'];
+end;
 
 
 function tportl.readport(p : word) : longint;assembler;
 asm
         movw    p,%dx
         inl     %dx,%eax
-end ['EAX','EDX'];
+end;
 
 end.