paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 13:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-08-21 09:11:24 +02:00
parent 06d99b1e68
commit f069f27267
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/types.pp
View File

@ -177,6 +177,7 @@ type
constructor Create(const ax,ay,az:single); constructor Create(const ax,ay,az:single);
procedure Offset(const adeltax,adeltay,adeltaz:single); inline; procedure Offset(const adeltax,adeltay,adeltaz:single); inline;
procedure Offset(const adelta:TPoint3D); inline; procedure Offset(const adelta:TPoint3D); inline;
public
case Integer of case Integer of
0: (data:TSingle3Array); 0: (data:TSingle3Array);
1: (x,y,z : single); 1: (x,y,z : single);