paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 14:09:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixes comments to be lazarus parsable before {$MODE DELPHI}

Browse Source 
git-svn-id: trunk@5052 -
This commit is contained in:
Almindor 2006-10-29 09:01:25 +00:00
parent 80d856aa33
commit ad1c431896
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/extra/opengl/gl.pp
View File

@ -20,7 +20,7 @@ Abstract:
--*)
(*
{*
** Copyright 1996 Silicon Graphics, Inc.
** All Rights Reserved.
**
@ -35,15 +35,15 @@ Abstract:
** and Computer Software clause at DFARS 252.227-7013, and/or in similar or
** successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
** rights reserved under the Copyright Laws of the United States.
*)
*}
{******************************************************************************}
{ Converted to Delphi by Tom Nuydens (tom@delphi3d.net) }
{ For the latest updates, visit Delphi3D: http://www.delphi3d.net }
{******************************************************************************}
{$MACRO ON}
{$MODE Delphi}
{$MACRO ON}
{$IFDEF Win32}
{$DEFINE extdecl := stdcall}
{$ELSE}

12
packages/extra/opengl/glu.pp
View File

@ -5,7 +5,7 @@
These units are free to use
}
(*++ BUILD Version: 0004 // Increment this if a change has global effects
{*++ BUILD Version: 0004 // Increment this if a change has global effects
Copyright (c) 1985-95, Microsoft Corporation
@ -18,9 +18,9 @@ Abstract:
Procedure declarations, constant definitions and macros for the OpenGL
Utility Library.
--*)
--*}
(*
{*
** Copyright 1991-1993, Silicon Graphics, Inc.
** All Rights Reserved.
**
@ -35,9 +35,9 @@ Abstract:
** and Computer Software clause at DFARS 252.227-7013, and/or in similar or
** successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
** rights reserved under the Copyright Laws of the United States.
*)
*}
(*
{*
** Return the error string associated with a particular error code.
** This will return 0 for an invalid error code.
**
@ -45,7 +45,7 @@ Abstract:
** is defined as follows:
**
** LPCTSTR APIENTRY gluErrorStringWIN (GLenum errCode);
*)
*}
{******************************************************************************}
{ Converted to Delphi by Tom Nuydens (tom@delphi3d.net) }