Просмотр исходного кода

Merged revisions 11283 via svnmerge from
http://svn.freepascal.org/svn/fpc/trunk

........
r11283 | giulio | 2008-06-26 15:43:21 +0200 (gio, 26 giu 2008) | 3 lines

go32v2 graph: fix for seg_bytemove so that it works with oldfpccall and register calling
conventions.
........

git-svn-id: branches/fixes_2_2@11297 -

giulio 17 лет назад
Родитель
Сommit
fff41a67e3
1 измененных файлов с 6 добавлено и 8 удалено
  1. 6 8
      packages/graph/src/go32v2/graph.pp

+ 6 - 8
packages/graph/src/go32v2/graph.pp

@@ -152,19 +152,17 @@ const
       push es
       push ds
       cld
-      mov ecx,count
-      mov esi,source
-      mov edi,dest
-      mov ax,dseg
-      mov es,ax
-      mov ax,sseg
-      mov ds,ax
+      mov es, dseg
+      mov esi, source
+      mov edi, dest
+      mov ecx, count
+      mov ds,sseg
       rep movsb
       pop ds
       pop es
       pop esi
       pop edi
-    end ['ECX','EAX'];
+    end ['ECX'];
 {$endif tp}
 
  Procedure CallInt10(val_ax : word); assembler;