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

* Move inlcude platform.inc before

Browse Source 
interface, so that global switches are allowed

git-svn-id: trunk@5885 -
This commit is contained in:
pierre 2007-01-11 12:23:29 +00:00
parent d2711a7013
commit f9e00ff2d9
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fv/memory.pas
View File

@ -45,12 +45,12 @@
UNIT Memory; UNIT Memory;
{====Include file to sort compiler platform out =====================}
{$I Platform.inc}
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>} {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
INTERFACE INTERFACE
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>} {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
{====Include file to sort compiler platform out =====================}
{$I Platform.inc}
{====================================================================} {====================================================================}
{==== Compiler directives ===========================================} {==== Compiler directives ===========================================}

2
fv/tabs.pas
View File

@ -21,6 +21,7 @@
****************************************************************************} ****************************************************************************}
unit tabs; unit tabs;
{$I platform.inc} (* Multi-platform support defines *)
{$CODEPAGE cp437} {$CODEPAGE cp437}
interface interface
@ -28,7 +29,6 @@ interface
uses uses
objects, drivers, views, fvconsts; objects, drivers, views, fvconsts;
{$I platform.inc} (* Multi-platform support defines *)
type type
PTabItem = ^TTabItem; PTabItem = ^TTabItem;