From 842971f59739cc6dde883955d17bd8580192a862 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?K=C3=A1roly=20Balogh?= Date: Mon, 5 Jan 2015 01:20:35 +0000 Subject: [PATCH] morphunits/amunits: fixed wrong argument register location for iffparse/CloseClipboard() git-svn-id: trunk@29403 - --- packages/amunits/src/coreunits/iffparse.pas | 2 +- packages/morphunits/src/iffparse.pas | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/amunits/src/coreunits/iffparse.pas b/packages/amunits/src/coreunits/iffparse.pas index 92589b2432..f8d5100201 100644 --- a/packages/amunits/src/coreunits/iffparse.pas +++ b/packages/amunits/src/coreunits/iffparse.pas @@ -237,7 +237,7 @@ VAR IFFParseBase : pLibrary; FUNCTION AllocIFF : pIFFHandle; syscall IFFParseBase 030; FUNCTION AllocLocalItem(typ : LONGINT location 'd0'; id : LONGINT location 'd1'; ident : LONGINT location 'd2'; dataSize : LONGINT location 'd3') : pLocalContextItem; syscall IFFParseBase 186; -PROCEDURE CloseClipboard(clipHandle : pClipboardHandle location 'd0'); syscall IFFParseBase 252; +PROCEDURE CloseClipboard(clipHandle : pClipboardHandle location 'a0'); syscall IFFParseBase 252; PROCEDURE CloseIFF(iff : pIFFHandle location 'a0'); syscall IFFParseBase 048; FUNCTION CollectionChunk(iff : pIFFHandle location 'a0'; typ : LONGINT location 'd0'; id : LONGINT location 'd1') : LONGINT; syscall IFFParseBase 138; FUNCTION CollectionChunks(iff : pIFFHandle location 'a0'; const propArray : pLONGINT location 'a1'; numPairs : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 144; diff --git a/packages/morphunits/src/iffparse.pas b/packages/morphunits/src/iffparse.pas index 4c87d4f13e..cc769fdddd 100644 --- a/packages/morphunits/src/iffparse.pas +++ b/packages/morphunits/src/iffparse.pas @@ -227,7 +227,7 @@ VAR IFFParseBase : pLibrary; FUNCTION AllocIFF : pIFFHandle; syscall IFFParseBase 030; FUNCTION AllocLocalItem(typ : LONGINT location 'd0'; id : LONGINT location 'd1'; ident : LONGINT location 'd2'; dataSize : LONGINT location 'd3') : pLocalContextItem; syscall IFFParseBase 186; -PROCEDURE CloseClipboard(clipHandle : pClipboardHandle location 'd0'); syscall IFFParseBase 252; +PROCEDURE CloseClipboard(clipHandle : pClipboardHandle location 'a0'); syscall IFFParseBase 252; PROCEDURE CloseIFF(iff : pIFFHandle location 'a0'); syscall IFFParseBase 048; FUNCTION CollectionChunk(iff : pIFFHandle location 'a0'; typ : LONGINT location 'd0'; id : LONGINT location 'd1') : LONGINT; syscall IFFParseBase 138; FUNCTION CollectionChunks(iff : pIFFHandle location 'a0'; const propArray : pLONGINT location 'a1'; numPairs : LONGINT location 'd0') : LONGINT; syscall IFFParseBase 144;