Ver Fonte

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

git-svn-id: trunk@5052 -
Almindor há 19 anos atrás
pai
commit
ad1c431896
2 ficheiros alterados com 9 adições e 9 exclusões
  1. 3 3
      packages/extra/opengl/gl.pp
  2. 6 6
      packages/extra/opengl/glu.pp

+ 3 - 3
packages/extra/opengl/gl.pp

@@ -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 ([email protected])                        }
 { For the latest updates, visit Delphi3D: http://www.delphi3d.net              }
 {******************************************************************************}
 
-{$MACRO ON}
 {$MODE Delphi}
+{$MACRO ON}
 {$IFDEF Win32}
   {$DEFINE extdecl := stdcall}
 {$ELSE}

+ 6 - 6
packages/extra/opengl/glu.pp

@@ -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 ([email protected])                        }