mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-23 02:29:34 +02:00
* Added begin to globtype and version to avoid empty object files.
* Fileexists no longer finds volume labels.
This commit is contained in:
daniel
parent
4cbc19ed93
commit
5b341c7f21
@ -1,113 +1,119 @@
|
||||
{
|
||||
$Id$
|
||||
Copyright (c) 1993-98 by Florian Klaempfl, Pierre Muller
|
||||
|
||||
Global types
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
****************************************************************************
|
||||
}
|
||||
unit globtype;
|
||||
interface
|
||||
|
||||
const
|
||||
maxidlen = 64;
|
||||
|
||||
type
|
||||
{ Switches which can be changed locally }
|
||||
tlocalswitch = (cs_localnone,
|
||||
{ codegen }
|
||||
cs_check_overflow,cs_check_range,cs_check_io,cs_check_stack,
|
||||
cs_omitstackframe,cs_do_assertion,cs_generate_rtti,
|
||||
{ mmx }
|
||||
cs_mmx,cs_mmx_saturation,
|
||||
{ parser }
|
||||
cs_typed_addresses,cs_strict_var_strings,cs_ansistrings
|
||||
);
|
||||
tlocalswitches=set of tlocalswitch;
|
||||
|
||||
{ Switches which can be changed only at the beginning of a new module }
|
||||
tmoduleswitch = (cs_modulenone,
|
||||
{ parser }
|
||||
cs_fp_emulation,cs_extsyntax,cs_openstring,
|
||||
{ support }
|
||||
cs_support_inline,cs_support_goto,cs_support_macro,
|
||||
cs_support_c_operators,
|
||||
{ generation }
|
||||
cs_profile,cs_debuginfo,cs_browser,cs_local_browser,cs_compilesystem,
|
||||
{ linking }
|
||||
cs_smartlink,cs_create_sharedlib,cs_create_staticlib
|
||||
);
|
||||
tmoduleswitches=set of tmoduleswitch;
|
||||
|
||||
{ Switches which can be changed only for a whole program/compilation,
|
||||
mostly set with commandline }
|
||||
tglobalswitch = (cs_globalnone,
|
||||
{ parameter switches }
|
||||
cs_check_unit_name,cs_constructor_name,cs_static_keyword,
|
||||
{ units }
|
||||
cs_load_objpas_unit,
|
||||
cs_load_gpc_unit,
|
||||
{ optimizer }
|
||||
cs_regalloc,cs_uncertainopts,cs_littlesize,cs_optimize,
|
||||
cs_fastoptimize, cs_slowoptimize,
|
||||
{ debugger }
|
||||
cs_gdb_dbx,cs_gdb_gsym,cs_gdb_heaptrc,
|
||||
{ assembling }
|
||||
cs_asm_leave,cs_asm_extern,cs_asm_pipe,cs_asm_source,
|
||||
{ linking }
|
||||
cs_link_extern,cs_link_shared,cs_link_static,cs_link_deffile
|
||||
);
|
||||
tglobalswitches=set of tglobalswitch;
|
||||
|
||||
{ Switches which can be changed by a mode (fpc,tp7,delphi) }
|
||||
tmodeswitch = (m_none,m_all, { needed for keyword }
|
||||
{ generic }
|
||||
m_fpc,m_delphi,m_tp,m_gpc,
|
||||
{ more specific }
|
||||
m_class,m_objpas,m_result,m_string_pchar,m_cvar_support,
|
||||
m_nested_comment,m_tp_procvar,m_repeat_forward,
|
||||
m_pointer_2_procedure, { allows the assignement of pointers to
|
||||
procedure variables }
|
||||
m_autoderef { does auto dereferencing of struct. vars }
|
||||
);
|
||||
tmodeswitches=set of tmodeswitch;
|
||||
|
||||
{ win32 sub system }
|
||||
tapptype = (at_gui,at_cui);
|
||||
|
||||
{ currently parsed block type }
|
||||
tblock_type = (bt_general,bt_type,bt_const);
|
||||
|
||||
stringid = string[maxidlen];
|
||||
|
||||
tnormalset = set of byte; { 256 elements set }
|
||||
pnormalset = ^tnormalset;
|
||||
|
||||
pdouble = ^double;
|
||||
pbyte = ^byte;
|
||||
pword = ^word;
|
||||
plongint = ^longint;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
{
|
||||
{
|
||||
$Id$
|
||||
Copyright (c) 1993-98 by Florian Klaempfl, Pierre Muller
|
||||
|
||||
Global types
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
****************************************************************************
|
||||
}
|
||||
unit globtype;
|
||||
interface
|
||||
|
||||
const
|
||||
maxidlen = 64;
|
||||
|
||||
type
|
||||
{ Switches which can be changed locally }
|
||||
tlocalswitch = (cs_localnone,
|
||||
{ codegen }
|
||||
cs_check_overflow,cs_check_range,cs_check_io,cs_check_stack,
|
||||
cs_omitstackframe,cs_do_assertion,cs_generate_rtti,
|
||||
{ mmx }
|
||||
cs_mmx,cs_mmx_saturation,
|
||||
{ parser }
|
||||
cs_typed_addresses,cs_strict_var_strings,cs_ansistrings
|
||||
);
|
||||
tlocalswitches=set of tlocalswitch;
|
||||
|
||||
{ Switches which can be changed only at the beginning of a new module }
|
||||
tmoduleswitch = (cs_modulenone,
|
||||
{ parser }
|
||||
cs_fp_emulation,cs_extsyntax,cs_openstring,
|
||||
{ support }
|
||||
cs_support_inline,cs_support_goto,cs_support_macro,
|
||||
cs_support_c_operators,
|
||||
{ generation }
|
||||
cs_profile,cs_debuginfo,cs_browser,cs_local_browser,cs_compilesystem,
|
||||
{ linking }
|
||||
cs_smartlink,cs_create_sharedlib,cs_create_staticlib
|
||||
);
|
||||
tmoduleswitches=set of tmoduleswitch;
|
||||
|
||||
{ Switches which can be changed only for a whole program/compilation,
|
||||
mostly set with commandline }
|
||||
tglobalswitch = (cs_globalnone,
|
||||
{ parameter switches }
|
||||
cs_check_unit_name,cs_constructor_name,cs_static_keyword,
|
||||
{ units }
|
||||
cs_load_objpas_unit,
|
||||
cs_load_gpc_unit,
|
||||
{ optimizer }
|
||||
cs_regalloc,cs_uncertainopts,cs_littlesize,cs_optimize,
|
||||
cs_fastoptimize, cs_slowoptimize,
|
||||
{ debugger }
|
||||
cs_gdb_dbx,cs_gdb_gsym,cs_gdb_heaptrc,
|
||||
{ assembling }
|
||||
cs_asm_leave,cs_asm_extern,cs_asm_pipe,cs_asm_source,
|
||||
{ linking }
|
||||
cs_link_extern,cs_link_shared,cs_link_static,cs_link_deffile
|
||||
);
|
||||
tglobalswitches=set of tglobalswitch;
|
||||
|
||||
{ Switches which can be changed by a mode (fpc,tp7,delphi) }
|
||||
tmodeswitch = (m_none,m_all, { needed for keyword }
|
||||
{ generic }
|
||||
m_fpc,m_delphi,m_tp,m_gpc,
|
||||
{ more specific }
|
||||
m_class,m_objpas,m_result,m_string_pchar,m_cvar_support,
|
||||
m_nested_comment,m_tp_procvar,m_repeat_forward,
|
||||
m_pointer_2_procedure, { allows the assignement of pointers to
|
||||
procedure variables }
|
||||
m_autoderef { does auto dereferencing of struct. vars }
|
||||
);
|
||||
tmodeswitches=set of tmodeswitch;
|
||||
|
||||
{ win32 sub system }
|
||||
tapptype = (at_gui,at_cui);
|
||||
|
||||
{ currently parsed block type }
|
||||
tblock_type = (bt_general,bt_type,bt_const);
|
||||
|
||||
stringid = string[maxidlen];
|
||||
|
||||
tnormalset = set of byte; { 256 elements set }
|
||||
pnormalset = ^tnormalset;
|
||||
|
||||
pdouble = ^double;
|
||||
pbyte = ^byte;
|
||||
pword = ^word;
|
||||
plongint = ^longint;
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
begin
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 1998-12-11 00:05:27 peter
|
||||
* splitted from globals.pas
|
||||
|
||||
}
|
||||
|
||||
Revision 1.2 1998-12-23 12:40:48 daniel
|
||||
* Added begin to globtype and version to avoid empty object files.
|
||||
* Fileexists no longer finds volume labels.
|
||||
|
||||
Revision 1.1 1998/12/11 00:05:27 peter
|
||||
* splitted from globals.pas
|
||||
|
||||
}
|
||||
|
||||
|
||||
@ -1,77 +1,68 @@
|
||||
{
|
||||
$Id$
|
||||
Copyright (C) 1993-98 by Florian Klaempfl
|
||||
|
||||
Version/target constants
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
|
||||
****************************************************************************
|
||||
}
|
||||
unit version;
|
||||
interface
|
||||
|
||||
const
|
||||
{ word version for ppu file }
|
||||
wordversion = (0 shl 11)+99;
|
||||
|
||||
{ version string }
|
||||
version_nr = '0';
|
||||
release_nr = '99';
|
||||
patch_nr = '11';
|
||||
version_string = version_nr+'.'+release_nr+'.'+patch_nr;
|
||||
|
||||
{ date string }
|
||||
{$ifdef FPC}
|
||||
date_string = {$I %DATE%};
|
||||
{$else}
|
||||
date_string = 'N/A';
|
||||
{$endif}
|
||||
|
||||
{ target cpu string }
|
||||
{$ifdef i386}
|
||||
target_cpu_string = 'i386';
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
target_cpu_string = 'm68k';
|
||||
{$endif}
|
||||
{$ifdef alpha}
|
||||
target_cpu_string = 'alpha';
|
||||
{$endif}
|
||||
|
||||
{ source cpu string }
|
||||
{$ifdef cpu86}
|
||||
source_cpu_string = 'i386';
|
||||
{$endif}
|
||||
{$ifdef cpu68}
|
||||
source_cpu_string = 'm68k';
|
||||
{$endif}
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
{
|
||||
{
|
||||
$Id$
|
||||
Copyright (C) 1993-98 by Florian Klaempfl
|
||||
|
||||
Version/target constants
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
||||
|
||||
****************************************************************************
|
||||
}
|
||||
unit version;
|
||||
interface
|
||||
|
||||
const
|
||||
{ version string }
|
||||
wordversion = (0 shl 10)+99;
|
||||
|
||||
version_nr = '0';
|
||||
release_nr = '99';
|
||||
patch_nr = '10';
|
||||
version_string = version_nr+'.'+release_nr+'.'+patch_nr;
|
||||
|
||||
{ target string }
|
||||
{$ifdef i386}
|
||||
target_string = 'i386';
|
||||
{$endif}
|
||||
{$ifdef m68k}
|
||||
target_string = 'M680x0';
|
||||
{$endif}
|
||||
{$ifdef alpha}
|
||||
target_string = 'Alpha';
|
||||
{$endif}
|
||||
|
||||
{ date string }
|
||||
{$ifdef FPC}
|
||||
date_string = {$I %DATE%};
|
||||
{$else}
|
||||
date_string = 'N/A';
|
||||
{$endif}
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
begin
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 1998-12-15 10:23:34 peter
|
||||
+ -iSO, -iSP, -iTO, -iTP
|
||||
|
||||
Revision 1.2 1998/12/14 12:58:45 peter
|
||||
* version 0.99.11
|
||||
|
||||
+ globtype,tokens,version unit splitted from globals
|
||||
|
||||
}
|
||||
|
||||
Revision 1.4 1998-12-23 12:40:49 daniel
|
||||
* Added begin to globtype and version to avoid empty object files.
|
||||
* Fileexists no longer finds volume labels.
|
||||
|
||||
Revision 1.1 1998/12/11 00:04:06 peter
|
||||
+ globtype,tokens,version unit splitted from globals
|
||||
|
||||
}
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user