paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 11:09:19 +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. ** Copyright 1996 Silicon Graphics, Inc.
** All Rights Reserved. ** All Rights Reserved.
** **
@ -35,15 +35,15 @@ Abstract:
** and Computer Software clause at DFARS 252.227-7013, and/or in similar or ** 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 - ** successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
** rights reserved under the Copyright Laws of the United States. ** rights reserved under the Copyright Laws of the United States.
*) *}
{******************************************************************************} {******************************************************************************}
{ Converted to Delphi by Tom Nuydens (tom@delphi3d.net) } { Converted to Delphi by Tom Nuydens (tom@delphi3d.net) }
{ For the latest updates, visit Delphi3D: http://www.delphi3d.net } { For the latest updates, visit Delphi3D: http://www.delphi3d.net }
{******************************************************************************} {******************************************************************************}
{$MACRO ON}
{$MODE Delphi} {$MODE Delphi}
{$MACRO ON}
{$IFDEF Win32} {$IFDEF Win32}
{$DEFINE extdecl := stdcall} {$DEFINE extdecl := stdcall}
{$ELSE} {$ELSE}

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

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