diff options
| author | karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2017-01-14 01:59:57 +0000 |
|---|---|---|
| committer | karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2017-01-14 01:59:57 +0000 |
| commit | 77ac132182b037e3df93cb27fa18073be82550dd (patch) | |
| tree | aad0bdc4e0a3cad2d650d40f1cde0edec300f10b /packages/os4units | |
| parent | c5defa00f0eed3a2617a49e472e17439fa7bcd36 (diff) | |
| download | fpc-77ac132182b037e3df93cb27fa18073be82550dd.tar.gz | |
os4units: fix some exec structures alignment after r35269
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@35295 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/os4units')
| -rw-r--r-- | packages/os4units/src/exec.pas | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/packages/os4units/src/exec.pas b/packages/os4units/src/exec.pas index fa221914ee..5f27f7c20c 100644 --- a/packages/os4units/src/exec.pas +++ b/packages/os4units/src/exec.pas @@ -1019,7 +1019,6 @@ const CMD_NONSTD = 9; -{$PUSH} {$PACKRECORDS C} //********************************************************************** // The interface is the new way for exec libraries. @@ -1049,7 +1048,7 @@ type // some functions, calling convention? end; PInterface = ^TInterface; -{$POP} +{$PACKRECORDS 2} const // Flags for the Flags field in interfaces and as flags parameter for GetInterface |