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

* Added begin to globtype and version to avoid empty object files.

Browse Source 
* Fileexists no longer finds volume labels.
This commit is contained in:
daniel 1998-12-23 12:40:48 +00:00
parent 4cbc19ed93
commit 5b341c7f21
2 changed files with 185 additions and 188 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

230
compiler/globtype.pas
View File

@ -1,113 +1,119 @@
{ {
$Id$ $Id$
Copyright (c) 1993-98 by Florian Klaempfl, Pierre Muller Copyright (c) 1993-98 by Florian Klaempfl, Pierre Muller
Global types Global types
This program is free software; you can redistribute it and/or modify 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 it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or the Free Software Foundation; either version 2 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.
**************************************************************************** ****************************************************************************
} }
unit globtype; unit globtype;
interface interface
const const
maxidlen = 64; maxidlen = 64;
type type
{ Switches which can be changed locally } { Switches which can be changed locally }
tlocalswitch = (cs_localnone, tlocalswitch = (cs_localnone,
{ codegen } { codegen }
cs_check_overflow,cs_check_range,cs_check_io,cs_check_stack, cs_check_overflow,cs_check_range,cs_check_io,cs_check_stack,
cs_omitstackframe,cs_do_assertion,cs_generate_rtti, cs_omitstackframe,cs_do_assertion,cs_generate_rtti,
{ mmx } { mmx }
cs_mmx,cs_mmx_saturation, cs_mmx,cs_mmx_saturation,
{ parser } { parser }
cs_typed_addresses,cs_strict_var_strings,cs_ansistrings cs_typed_addresses,cs_strict_var_strings,cs_ansistrings
); );
tlocalswitches=set of tlocalswitch; tlocalswitches=set of tlocalswitch;
{ Switches which can be changed only at the beginning of a new module } { Switches which can be changed only at the beginning of a new module }
tmoduleswitch = (cs_modulenone, tmoduleswitch = (cs_modulenone,
{ parser } { parser }
cs_fp_emulation,cs_extsyntax,cs_openstring, cs_fp_emulation,cs_extsyntax,cs_openstring,
{ support } { support }
cs_support_inline,cs_support_goto,cs_support_macro, cs_support_inline,cs_support_goto,cs_support_macro,
cs_support_c_operators, cs_support_c_operators,
{ generation } { generation }
cs_profile,cs_debuginfo,cs_browser,cs_local_browser,cs_compilesystem, cs_profile,cs_debuginfo,cs_browser,cs_local_browser,cs_compilesystem,
{ linking } { linking }
cs_smartlink,cs_create_sharedlib,cs_create_staticlib cs_smartlink,cs_create_sharedlib,cs_create_staticlib
); );
tmoduleswitches=set of tmoduleswitch; tmoduleswitches=set of tmoduleswitch;
{ Switches which can be changed only for a whole program/compilation, { Switches which can be changed only for a whole program/compilation,
mostly set with commandline } mostly set with commandline }
tglobalswitch = (cs_globalnone, tglobalswitch = (cs_globalnone,
{ parameter switches } { parameter switches }
cs_check_unit_name,cs_constructor_name,cs_static_keyword, cs_check_unit_name,cs_constructor_name,cs_static_keyword,
{ units } { units }
cs_load_objpas_unit, cs_load_objpas_unit,
cs_load_gpc_unit, cs_load_gpc_unit,
{ optimizer } { optimizer }
cs_regalloc,cs_uncertainopts,cs_littlesize,cs_optimize, cs_regalloc,cs_uncertainopts,cs_littlesize,cs_optimize,
cs_fastoptimize, cs_slowoptimize, cs_fastoptimize, cs_slowoptimize,
{ debugger } { debugger }
cs_gdb_dbx,cs_gdb_gsym,cs_gdb_heaptrc, cs_gdb_dbx,cs_gdb_gsym,cs_gdb_heaptrc,
{ assembling } { assembling }
cs_asm_leave,cs_asm_extern,cs_asm_pipe,cs_asm_source, cs_asm_leave,cs_asm_extern,cs_asm_pipe,cs_asm_source,
{ linking } { linking }
cs_link_extern,cs_link_shared,cs_link_static,cs_link_deffile cs_link_extern,cs_link_shared,cs_link_static,cs_link_deffile
); );
tglobalswitches=set of tglobalswitch; tglobalswitches=set of tglobalswitch;
{ Switches which can be changed by a mode (fpc,tp7,delphi) } { Switches which can be changed by a mode (fpc,tp7,delphi) }
tmodeswitch = (m_none,m_all, { needed for keyword } tmodeswitch = (m_none,m_all, { needed for keyword }
{ generic } { generic }
m_fpc,m_delphi,m_tp,m_gpc, m_fpc,m_delphi,m_tp,m_gpc,
{ more specific } { more specific }
m_class,m_objpas,m_result,m_string_pchar,m_cvar_support, m_class,m_objpas,m_result,m_string_pchar,m_cvar_support,
m_nested_comment,m_tp_procvar,m_repeat_forward, m_nested_comment,m_tp_procvar,m_repeat_forward,
m_pointer_2_procedure, { allows the assignement of pointers to m_pointer_2_procedure, { allows the assignement of pointers to
procedure variables } procedure variables }
m_autoderef { does auto dereferencing of struct. vars } m_autoderef { does auto dereferencing of struct. vars }
); );
tmodeswitches=set of tmodeswitch; tmodeswitches=set of tmodeswitch;
{ win32 sub system } { win32 sub system }
tapptype = (at_gui,at_cui); tapptype = (at_gui,at_cui);
{ currently parsed block type } { currently parsed block type }
tblock_type = (bt_general,bt_type,bt_const); tblock_type = (bt_general,bt_type,bt_const);
stringid = string[maxidlen]; stringid = string[maxidlen];
tnormalset = set of byte; { 256 elements set } tnormalset = set of byte; { 256 elements set }
pnormalset = ^tnormalset; pnormalset = ^tnormalset;
pdouble = ^double; pdouble = ^double;
pbyte = ^byte; pbyte = ^byte;
pword = ^word; pword = ^word;
plongint = ^longint; plongint = ^longint;
implementation implementation
end.
{ begin
end.
{
$Log$ $Log$
Revision 1.1 1998-12-11 00:05:27 peter Revision 1.2 1998-12-23 12:40:48 daniel
* splitted from globals.pas * 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
}

143
compiler/version.pas
View File

@ -1,77 +1,68 @@
{ {
$Id$ $Id$
Copyright (C) 1993-98 by Florian Klaempfl Copyright (C) 1993-98 by Florian Klaempfl
Version/target constants Version/target constants
This program is free software; you can redistribute it and/or modify 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 it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or the Free Software Foundation; either version 2 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.
**************************************************************************** ****************************************************************************
} }
unit version; unit version;
interface interface
const const
{ word version for ppu file } { version string }
wordversion = (0 shl 11)+99; wordversion = (0 shl 10)+99;
{ version string } version_nr = '0';
version_nr = '0'; release_nr = '99';
release_nr = '99'; patch_nr = '10';
patch_nr = '11'; version_string = version_nr+'.'+release_nr+'.'+patch_nr;
version_string = version_nr+'.'+release_nr+'.'+patch_nr;
{ target string }
{ date string } {$ifdef i386}
{$ifdef FPC} target_string = 'i386';
date_string = {$I %DATE%}; {$endif}
{$else} {$ifdef m68k}
date_string = 'N/A'; target_string = 'M680x0';
{$endif} {$endif}
{$ifdef alpha}
{ target cpu string } target_string = 'Alpha';
{$ifdef i386} {$endif}
target_cpu_string = 'i386';
{$endif} { date string }
{$ifdef m68k} {$ifdef FPC}
target_cpu_string = 'm68k'; date_string = {$I %DATE%};
{$endif} {$else}
{$ifdef alpha} date_string = 'N/A';
target_cpu_string = 'alpha'; {$endif}
{$endif}
{ source cpu string } implementation
{$ifdef cpu86}
source_cpu_string = 'i386'; begin
{$endif} end.
{$ifdef cpu68} {
source_cpu_string = 'm68k';
{$endif}
implementation
end.
{
$Log$ $Log$
Revision 1.3 1998-12-15 10:23:34 peter Revision 1.4 1998-12-23 12:40:49 daniel
+ -iSO, -iSP, -iTO, -iTP * Added begin to globtype and version to avoid empty object files.
* Fileexists no longer finds volume labels.
Revision 1.2 1998/12/14 12:58:45 peter
* version 0.99.11 Revision 1.1 1998/12/11 00:04:06 peter
+ globtype,tokens,version unit splitted from globals
+ globtype,tokens,version unit splitted from globals
}
}