mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
630aa5c493
inlining, because that results in alignment settings of "0"
(voidtype.savesize = 0 -> size2align(0) = 0), which is interpreted
by the code generators as unaligned (and is actually even invalid
nowadays). This caused errors on NDS when writing to memory mapped
I/O devices (mantis #13343)
git-svn-id: trunk@12916 -
27 lines
598 B
ObjectPascal
27 lines
598 B
ObjectPascal
{ %interactive }
|
|
|
|
{$inline on}
|
|
uses
|
|
ctypes;
|
|
const
|
|
MATRIX_TRANSLATE : pcint32 = pointer($04000470);
|
|
|
|
function floattof32(n: cfloat): cint32; inline;
|
|
begin
|
|
floattof32 := cint32(n);
|
|
end;
|
|
|
|
procedure glTranslate3f32({ x, y,} z: cint32); inline;
|
|
begin
|
|
MATRIX_TRANSLATE^ := z;
|
|
end;
|
|
|
|
begin
|
|
{ check that the inlined version of glTranslate3f32 does *NOT* perform
|
|
an unaligned store (i.e., make sure it performs one 4 byte store
|
|
rather than 4 one byte stores on platforms that require aligned memory
|
|
accesses)
|
|
}
|
|
glTranslate3f32(floattof32(-1.0));
|
|
end.
|