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

* fixed tabs

Browse Source
This commit is contained in:
peter 1998-09-11 17:35:33 +00:00
parent c4a71b4fd9
commit ca51e0365a
1 changed files with 342 additions and 339 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

681
compiler/systems.pas
View File

@ -1,23 +1,23 @@
{ {
$Id$ $Id$
Copyright (C) 1995,97 by Florian Klaempfl Copyright (C) 1995,97 by Florian Klaempfl
This unit contains information about the target systems supported This unit contains information about the target systems supported
(these are not processor specific) (these are not processor specific)
This progsam is free software; you can redistribute it and/or modify This progsam is free software; you can redistribute it and/or modify
iu under the terms of the GNU General Public License as published by iu under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or the Free Software Foundation; either version 3 of the License, or
(at your option) any later version. (at your option) any later version.
This program is distributed in the hope that it will be useful, This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details. GNU General Public License for more details.
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge- MA 02139, USA. Foundation, Inc., 675 Mass Ave, Cambridge- MA 02139, USA.
**************************************************************************** ****************************************************************************
} }
@ -26,145 +26,145 @@ unit systems;
interface interface
type type
tendian = (endian_little,en_big_endian); tendian = (endian_little,en_big_endian);
ttargetcpu=(i386,m68k,alpha); ttargetcpu=(i386,m68k,alpha);
tprocessors = ( tprocessors = (
{$ifdef i386} {$ifdef i386}
Class386,ClassP5,ClassP6 Class386,ClassP5,ClassP6
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
MC68000,MC68100,MC68020 MC68000,MC68100,MC68020
{$endif} {$endif}
); );
tasmmode= ( tasmmode= (
{$ifdef i386} {$ifdef i386}
I386_ATT,I386_INTEL,I386_DIRECT I386_ATT,I386_INTEL,I386_DIRECT
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
M68K_MOT M68K_MOT
{$endif} {$endif}
); );
ttarget = ( ttarget = (
{$ifdef i386} {$ifdef i386}
target_GO32V1,target_GO32V2,target_LINUX,target_OS2,target_WIN32 target_GO32V1,target_GO32V2,target_LINUX,target_OS2,target_WIN32
{$endif i386} {$endif i386}
{$ifdef m68k} {$ifdef m68k}
target_Amiga,target_Atari,target_Mac68k,target_Linux,target_PalmOS target_Amiga,target_Atari,target_Mac68k,target_Linux,target_PalmOS
{$endif} {$endif}
); );
tasm = ( tasm = (
{$ifdef i386} {$ifdef i386}
as_o,as_o_aout,as_asw,as_nasmcoff, as_nasmelf, as_nasmobj, as_o,as_o_aout,as_asw,as_nasmcoff, as_nasmelf, as_nasmobj,
as_tasm, as_masm as_tasm, as_masm
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
as_o,as_gas,as_mit,as_mot as_o,as_gas,as_mit,as_mot
{$endif} {$endif}
); );
tlink = ( tlink = (
{$ifdef i386} {$ifdef i386}
link_ld,link_ldgo32v1, link_ldgo32v2, link_ldw, link_ldos2 link_ld,link_ldgo32v1, link_ldgo32v2, link_ldw, link_ldos2
{$endif i386} {$endif i386}
{$ifdef m68k} {$ifdef m68k}
link_ld link_ld
{$endif} {$endif}
); );
tar = ( tar = (
{$ifdef i386} {$ifdef i386}
ar_ar,ar_arw ar_ar,ar_arw
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
ar_ar ar_ar
{$endif} {$endif}
); );
tos = ( tos = (
{$ifdef i386} {$ifdef i386}
os_GO32V1,os_GO32V2, os_Linux, os_OS2, os_WIN32 os_GO32V1,os_GO32V2, os_Linux, os_OS2, os_WIN32
{$endif i387} {$endif i387}
{$ifdef m68k} {$ifdef m68k}
os_Amiga, os_Atari, os_Mac68k, os_Linux, os_PalmOS os_Amiga, os_Atari, os_Mac68k, os_Linux, os_PalmOS
{$endif} {$endif}
); );
tosinfo = packed record tosinfo = packed record
name : string[30]; name : string[30];
sharedlibext, sharedlibext,
staticlibext, staticlibext,
sourceext, sourceext,
pasext, pasext,
exeext, exeext,
scriptext : string[4]; scriptext : string[4];
libprefix : string[3]; libprefix : string[3];
Cprefix : string[2]; Cprefix : string[2];
newline : string[2]; newline : string[2];
endian : tendian; endian : tendian;
use_function_relative_addresses : boolean; use_function_relative_addresses : boolean;
end; end;
tasminfo = record tasminfo = record
id : tasm; id : tasm;
idtxt : string[8]; idtxt : string[8];
asmbin : string[8]; asmbin : string[8];
asmcmd : string[50]; asmcmd : string[50];
externals : boolean; externals : boolean;
labelprefix : string[2]; labelprefix : string[2];
comment : string[2]; comment : string[2];
end; end;
tlinkinfo = record tlinkinfo = record
linkbin : string[8]; linkbin : string[8];
linkcmd : string[50]; linkcmd : string[50];
bindbin : string[8]; bindbin : string[8];
bindcmd : string[50]; bindcmd : string[50];
stripopt : string[2]; stripopt : string[2];
libpathprefix : string[13]; libpathprefix : string[13];
libpathsuffix : string[2]; libpathsuffix : string[2];
groupstart : string[8]; groupstart : string[8];
groupend : string[2]; groupend : string[2];
inputstart : string[8]; inputstart : string[8];
inputend : string[2]; inputend : string[2];
libprefix : string[2]; libprefix : string[2];
end; end;
tarinfo = record tarinfo = record
arbin : string[8]; arbin : string[8];
arcmd : string[50]; arcmd : string[50];
end; end;
ttargetinfo = record ttargetinfo = record
target : ttarget; target : ttarget;
short_name : string[8]; short_name : string[8];
unit_env : string[12]; unit_env : string[12];
system_unit : string[8]; system_unit : string[8];
smartext, smartext,
unitext, unitext,
unitlibext, unitlibext,
asmext, asmext,
objext, objext,
exeext : string[4]; exeext : string[4];
os : tos; os : tos;
link : tlink; link : tlink;
assem : tasm; assem : tasm;
ar : tar; ar : tar;
heapsize, heapsize,
maxheapsize, maxheapsize,
stacksize : longint; stacksize : longint;
end; end;
tasmmodeinfo=record tasmmodeinfo=record
id : tasmmode; id : tasmmode;
idtxt : string[8]; idtxt : string[8];
end; end;
@ -178,7 +178,7 @@ unit systems;
{$endif m68k} {$endif m68k}
var var
target_info : ttargetinfo; target_info : ttargetinfo;
target_os : tosinfo; target_os : tosinfo;
target_asm : tasminfo; target_asm : tasminfo;
target_link : tlinkinfo; target_link : tlinkinfo;
@ -209,11 +209,11 @@ implementation
libprefix : ''; libprefix : '';
Cprefix : '_'; Cprefix : '_';
newline : #13#10; newline : #13#10;
endian : endian_little; endian : endian_little;
use_function_relative_addresses : true use_function_relative_addresses : true
), ),
( (
name : 'GO32 V2 DOS extender'; name : 'GO32 V2 DOS extender';
sharedlibext : '.dll'; sharedlibext : '.dll';
staticlibext : '.a'; staticlibext : '.a';
sourceext : '.pp'; sourceext : '.pp';
@ -238,7 +238,7 @@ implementation
Cprefix : ''; Cprefix : '';
newline : #10; newline : #10;
endian : endian_little; endian : endian_little;
use_function_relative_addresses : true use_function_relative_addresses : true
), ),
( (
name : 'OS/2 via EMX'; name : 'OS/2 via EMX';
@ -283,7 +283,7 @@ implementation
newline : #10; newline : #10;
endian : en_big_endian; endian : en_big_endian;
use_function_relative_addresses : false use_function_relative_addresses : false
), ),
( (
name : 'Atari ST/STE'; name : 'Atari ST/STE';
sharedlibext : '.dll'; sharedlibext : '.dll';
@ -328,7 +328,7 @@ implementation
), ),
( (
name : 'PalmOS'; name : 'PalmOS';
sharedlibext : '.so'; sharedlibext : '.so';
staticlibext : '.a'; staticlibext : '.a';
sourceext : '.pp'; sourceext : '.pp';
pasext : '.pas'; pasext : '.pas';
@ -356,7 +356,7 @@ implementation
asmbin : 'as'; asmbin : 'as';
asmcmd : '-D -o $OBJ $ASM'; asmcmd : '-D -o $OBJ $ASM';
externals : false; externals : false;
labelprefix : '.L'; labelprefix : '.L';
comment : '# ' comment : '# '
) )
,( ,(
@ -373,7 +373,7 @@ implementation
idtxt : 'ASW'; idtxt : 'ASW';
asmbin : 'asw'; asmbin : 'asw';
asmcmd : '-D -o $OBJ $ASM'; asmcmd : '-D -o $OBJ $ASM';
externals : false; externals : false;
labelprefix : '.L'; labelprefix : '.L';
comment : '# ' comment : '# '
) )
@ -387,7 +387,7 @@ implementation
comment : '; ' comment : '; '
) )
,( ,(
id : as_nasmelf; id : as_nasmelf;
idtxt : 'NASMELF'; idtxt : 'NASMELF';
asmbin : 'nasm'; asmbin : 'nasm';
asmcmd : '-f elf -o $OBJ $ASM'; asmcmd : '-f elf -o $OBJ $ASM';
@ -418,7 +418,7 @@ implementation
idtxt : 'MASM'; idtxt : 'MASM';
asmbin : 'masm'; asmbin : 'masm';
asmcmd : '$ASM $OBJ'; asmcmd : '$ASM $OBJ';
externals : true; externals : true;
labelprefix : '.L'; labelprefix : '.L';
comment : '; ' comment : '; '
) )
@ -494,7 +494,7 @@ implementation
groupend : '-)'; groupend : '-)';
inputstart : ''; inputstart : '';
inputend : ''; inputend : '';
libprefix : '-l' libprefix : '-l'
) )
,( ,(
linkbin : 'ld'; linkbin : 'ld';
@ -508,7 +508,7 @@ implementation
groupend : '-)'; groupend : '-)';
inputstart : ''; inputstart : '';
inputend : ''; inputend : '';
libprefix : '-l' libprefix : '-l'
) )
,( ,(
linkbin : 'ldw'; linkbin : 'ldw';
@ -528,15 +528,15 @@ implementation
linkbin : 'ld'; { Os/2 } linkbin : 'ld'; { Os/2 }
linkcmd : '-o $EXE @$RES'; linkcmd : '-o $EXE @$RES';
bindbin : 'emxbind'; bindbin : 'emxbind';
bindcmd : '-b -k$STACKKB -h$HEAPMB -o $EXE.exe $EXE -aim -s$DOSHEAPKB'; bindcmd : '-b -k$STACKKB -h$HEAPMB -o $EXE.exe $EXE -aim -s$DOSHEAPKB';
stripopt : '-s'; stripopt : '-s';
libpathprefix : '-L'; libpathprefix : '-L';
libpathsuffix : ''; libpathsuffix : '';
groupstart : ''; {Linker is too primitive...} groupstart : ''; {Linker is too primitive...}
groupend : ''; groupend : '';
inputstart : ''; inputstart : '';
inputend : ''; inputend : '';
libprefix : '-l' libprefix : '-l'
) )
{$endif i386} {$endif i386}
{$ifdef m68k} {$ifdef m68k}
@ -549,11 +549,11 @@ implementation
libpathprefix : 'SEARCH_DIR('; libpathprefix : 'SEARCH_DIR(';
libpathsuffix : ')'; libpathsuffix : ')';
groupstart : 'GROUP('; groupstart : 'GROUP(';
groupend : ')'; groupend : ')';
inputstart : 'INPUT('; inputstart : 'INPUT(';
inputend : ')'; inputend : ')';
libprefix : '-l' libprefix : '-l'
) )
{$endif m68k} {$endif m68k}
); );
@ -584,42 +584,42 @@ implementation
****************************************************************************} ****************************************************************************}
target_infos : array[ttarget] of ttargetinfo = ( target_infos : array[ttarget] of ttargetinfo = (
{$ifdef i386} {$ifdef i386}
( (
target : target_GO32V1; target : target_GO32V1;
short_name : 'GO32V1'; short_name : 'GO32V1';
unit_env : 'GO32V1UNITS'; unit_env : 'GO32V1UNITS';
system_unit : 'SYSTEM'; system_unit : 'SYSTEM';
smartext : '.sl'; smartext : '.sl';
unitext : '.pp1'; unitext : '.pp1';
unitlibext : '.ppl'; unitlibext : '.ppl';
asmext : '.s1'; asmext : '.s1';
objext : '.o1'; objext : '.o1';
exeext : ''; { The linker produces a.out } exeext : ''; { The linker produces a.out }
os : os_GO32V1; os : os_GO32V1;
link : link_ldgo32v1; link : link_ldgo32v1;
assem : as_o; assem : as_o;
ar : ar_ar; ar : ar_ar;
heapsize : 2048*1024; heapsize : 2048*1024;
maxheapsize : 32768*1024; maxheapsize : 32768*1024;
stacksize : 16384 stacksize : 16384
), ),
( (
target : target_GO32V2; target : target_GO32V2;
short_name : 'GO32V2'; short_name : 'GO32V2';
unit_env : 'GO32V2UNITS'; unit_env : 'GO32V2UNITS';
system_unit : 'SYSTEM'; system_unit : 'SYSTEM';
smartext : '.sl'; smartext : '.sl';
unitext : '.ppu'; unitext : '.ppu';
unitlibext : '.ppl'; unitlibext : '.ppl';
asmext : '.s'; asmext : '.s';
objext : '.o'; objext : '.o';
exeext : '.exe'; exeext : '.exe';
os : os_GO32V2; os : os_GO32V2;
link : link_ldgo32v2; link : link_ldgo32v2;
assem : as_o; assem : as_o;
ar : ar_ar; ar : ar_ar;
heapsize : 2048*1024; heapsize : 2048*1024;
maxheapsize : 32768*1024; maxheapsize : 32768*1024;
stacksize : 16384 stacksize : 16384
), ),
( (
@ -629,43 +629,43 @@ implementation
system_unit : 'syslinux'; system_unit : 'syslinux';
smartext : '.sl'; smartext : '.sl';
unitext : '.ppu'; unitext : '.ppu';
unitlibext : '.ppl'; unitlibext : '.ppl';
asmext : '.s'; asmext : '.s';
objext : '.o'; objext : '.o';
exeext : ''; exeext : '';
os : os_Linux; os : os_Linux;
link : link_ld; link : link_ld;
assem : as_o; assem : as_o;
ar : ar_ar; ar : ar_ar;
heapsize : 2048*1024; heapsize : 2048*1024;
maxheapsize : 32768*1024; maxheapsize : 32768*1024;
stacksize : 8192 stacksize : 8192
), ),
( (
target : target_OS2; target : target_OS2;
short_name : 'OS2'; short_name : 'OS2';
unit_env : 'OS2UNITS'; unit_env : 'OS2UNITS';
system_unit : 'SYSOS2'; system_unit : 'SYSOS2';
smartext : '.sl'; smartext : '.sl';
unitext : '.ppo'; unitext : '.ppo';
unitlibext : '.ppl'; unitlibext : '.ppl';
asmext : '.so2'; asmext : '.so2';
objext : '.oo2'; objext : '.oo2';
exeext : ''; { The linker produces a.out } exeext : ''; { The linker produces a.out }
os : os_OS2; os : os_OS2;
link : link_ldos2; link : link_ldos2;
assem : as_o_aout; assem : as_o_aout;
ar : ar_ar; ar : ar_ar;
heapsize : 256*1024; heapsize : 256*1024;
maxheapsize : 32768*1024; maxheapsize : 32768*1024;
stacksize : 32768 stacksize : 32768
), ),
( (
target : target_WIN32; target : target_WIN32;
short_name : 'WIN32'; short_name : 'WIN32';
unit_env : 'WIN32UNITS'; unit_env : 'WIN32UNITS';
system_unit : 'SYSWIN32'; system_unit : 'SYSWIN32';
smartext : '.sl'; smartext : '.sl';
unitext : '.ppw'; unitext : '.ppw';
unitlibext : '.ppl'; unitlibext : '.ppl';
asmext : '.s'; asmext : '.s';
@ -674,139 +674,139 @@ implementation
os : os_Win32; os : os_Win32;
link : link_ldw; link : link_ldw;
assem : as_asw; assem : as_asw;
ar : ar_arw; ar : ar_arw;
heapsize : 8192*1024; { Until growing heap works !! (PFV) } heapsize : 8192*1024; { Until growing heap works !! (PFV) }
maxheapsize : 32768*1024; maxheapsize : 32768*1024;
stacksize : 32768 stacksize : 32768
) )
{$endif i386} {$endif i386}
{$ifdef m68k} {$ifdef m68k}
( (
target : target_Amiga; target : target_Amiga;
short_name : 'AMIGA'; short_name : 'AMIGA';
unit_env : ''; unit_env : '';
system_unit : 'sysamiga'; system_unit : 'sysamiga';
smartext : '.sl'; smartext : '.sl';
unitext : '.ppa'; unitext : '.ppa';
unitlibext : '.ppl'; unitlibext : '.ppl';
asmext : '.asm'; asmext : '.asm';
objext : '.o'; objext : '.o';
exeext : ''; exeext : '';
os : os_Amiga; os : os_Amiga;
link : link_ld; link : link_ld;
assem : as_o; assem : as_o;
ar : ar_ar; ar : ar_ar;
heapsize : 128*1024; heapsize : 128*1024;
maxheapsize : 32768*1024; maxheapsize : 32768*1024;
stacksize : 8192 stacksize : 8192
), ),
( (
target : target_Atari; target : target_Atari;
short_name : 'ATARI'; short_name : 'ATARI';
unit_env : ''; unit_env : '';
system_unit : 'SYSATARI'; system_unit : 'SYSATARI';
smartext : '.sl'; smartext : '.sl';
unitext : '.ppt'; unitext : '.ppt';
unitlibext : '.ppl'; unitlibext : '.ppl';
asmext : '.s'; asmext : '.s';
objext : '.o'; objext : '.o';
exeext : ''; exeext : '';
os : os_Atari; os : os_Atari;
link : link_ld; link : link_ld;
assem : as_o; assem : as_o;
ar : ar_ar; ar : ar_ar;
heapsize : 16*1024; heapsize : 16*1024;
maxheapsize : 32768*1024; maxheapsize : 32768*1024;
stacksize : 8192 stacksize : 8192
), ),
( (
target : target_Mac68k; target : target_Mac68k;
short_name : 'MACOS'; short_name : 'MACOS';
unit_env : ''; unit_env : '';
system_unit : 'sysmac'; system_unit : 'sysmac';
smartext : '.sl'; smartext : '.sl';
unitext : '.ppt'; unitext : '.ppt';
unitlibext : '.ppl'; unitlibext : '.ppl';
asmext : '.s'; asmext : '.s';
objext : '.o'; objext : '.o';
exeext : ''; exeext : '';
os : os_Mac68k; os : os_Mac68k;
link : link_ld; link : link_ld;
assem : as_o; assem : as_o;
ar : ar_ar; ar : ar_ar;
heapsize : 128*1024; heapsize : 128*1024;
maxheapsize : 32768*1024; maxheapsize : 32768*1024;
stacksize : 8192 stacksize : 8192
), ),
( (
target : target_Linux; target : target_Linux;
short_name : 'LINUX'; short_name : 'LINUX';
unit_env : 'LINUXUNITS'; unit_env : 'LINUXUNITS';
system_unit : 'syslinux'; system_unit : 'syslinux';
smartext : '.sl'; smartext : '.sl';
unitext : '.ppu'; unitext : '.ppu';
unitlibext : '.ppl'; unitlibext : '.ppl';
asmext : '.s'; asmext : '.s';
objext : '.o'; objext : '.o';
exeext : ''; exeext : '';
os : os_Linux; os : os_Linux;
link : link_ld; link : link_ld;
assem : as_o; assem : as_o;
ar : ar_ar; ar : ar_ar;
heapsize : 128*1024; heapsize : 128*1024;
maxheapsize : 32768*1024; maxheapsize : 32768*1024;
stacksize : 8192 stacksize : 8192
), ),
( (
target : target_PalmOS; target : target_PalmOS;
short_name : 'PALMOS'; short_name : 'PALMOS';
unit_env : 'PALMUNITS'; unit_env : 'PALMUNITS';
system_unit : 'syspalm'; system_unit : 'syspalm';
smartext : '.sl'; smartext : '.sl';
unitext : '.ppu'; unitext : '.ppu';
unitlibext : '.ppl'; unitlibext : '.ppl';
asmext : '.s'; asmext : '.s';
objext : '.o'; objext : '.o';
exeext : ''; exeext : '';
os : os_PalmOS; os : os_PalmOS;
link : link_ld; link : link_ld;
assem : as_o; assem : as_o;
ar : ar_ar; ar : ar_ar;
heapsize : 128*1024; heapsize : 128*1024;
maxheapsize : 32768*1024; maxheapsize : 32768*1024;
stacksize : 8192 stacksize : 8192
) )
{$endif m68k} {$endif m68k}
); );
{**************************************************************************** {****************************************************************************
AsmModeInfo AsmModeInfo
****************************************************************************} ****************************************************************************}
asmmodeinfos : array[tasmmode] of tasmmodeinfo = ( asmmodeinfos : array[tasmmode] of tasmmodeinfo = (
{$ifdef i386} {$ifdef i386}
( (
id : I386_DIRECT; id : I386_DIRECT;
idtxt : 'DIRECT' idtxt : 'DIRECT'
), ),
( (
id : I386_INTEL; id : I386_INTEL;
idtxt : 'INTEL' idtxt : 'INTEL'
), ),
( (
id : I386_ATT; id : I386_ATT;
idtxt : 'ATT' idtxt : 'ATT'
) )
{$endif i386} {$endif i386}
{$ifdef m68k} {$ifdef m68k}
( (
id : M68K_MOT; id : M68K_MOT;
idtxt : 'MOT' idtxt : 'MOT'
) )
{$endif m68k} {$endif m68k}
); );
{**************************************************************************** {****************************************************************************
Helpers Helpers
****************************************************************************} ****************************************************************************}
procedure set_target(t : ttarget); procedure set_target(t : ttarget);
@ -907,7 +907,7 @@ begin
{$ifdef ATARI} {$ifdef ATARI}
default_os(target_Atari); default_os(target_Atari);
{$else} {$else}
{$ifdef MACOS} {$ifdef MACOS}
default_os(target_MAC68k); default_os(target_MAC68k);
{$else} {$else}
default_os(target_Amiga); default_os(target_Amiga);
@ -918,7 +918,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.34 1998-09-11 12:27:55 pierre Revision 1.35 1998-09-11 17:35:33 peter
* fixed tabs
Revision 1.34 1998/09/11 12:27:55 pierre
* restored m68k part * restored m68k part
Revision 1.33.2.1 1998/09/11 12:06:00 pierre Revision 1.33.2.1 1998/09/11 12:06:00 pierre
@ -961,7 +964,7 @@ end.
* first version of rtti support * first version of rtti support
Revision 1.22 1998/06/17 14:10:21 peter Revision 1.22 1998/06/17 14:10:21 peter
* small os2 fixes * small os2 fixes
* fixed interdependent units with newppu (remake3 under linux works now) * fixed interdependent units with newppu (remake3 under linux works now)
Revision 1.20 1998/06/15 15:38:14 pierre Revision 1.20 1998/06/15 15:38:14 pierre