Browse Source

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

git-svn-id: trunk@11283 -

giulio 17 years ago
parent
commit
048c7224b0
1 changed files with 6 additions and 8 deletions
  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;