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

* removed uses verbose which is not possible! this unit may not use

Browse Source 
any other unit !
This commit is contained in:
peter 1998-10-15 16:20:41 +00:00
parent 8d1adfae43
commit c6593ec44e
1 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/systems.pas
View File

@ -197,9 +197,6 @@ unit systems;
implementation implementation
uses
globals,verbose;
const const
{**************************************************************************** {****************************************************************************
@ -875,6 +872,19 @@ implementation
Helpers Helpers
****************************************************************************} ****************************************************************************}
function upper(const s : string) : string;
var
i : longint;
begin
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then
upper[i]:=char(byte(s[i])-32)
else
upper[i]:=s[i];
upper[0]:=s[0];
end;
function set_target_os(t:tos):boolean; function set_target_os(t:tos):boolean;
var var
i : longint; i : longint;
@ -1030,8 +1040,9 @@ procedure set_source_os(t:tos);
var var
i : longint; i : longint;
begin begin
{ can't use message() here (PFV) }
if source_os.name<>'' then if source_os.name<>'' then
Message(exec_w_source_os_redefined); Writeln('Warning: Source OS Redefined!');
for i:=1 to oscnt do for i:=1 to oscnt do
if os_infos[i].id=t then if os_infos[i].id=t then
begin begin
@ -1130,7 +1141,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.44 1998-10-14 11:28:25 florian Revision 1.45 1998-10-15 16:20:41 peter
* removed uses verbose which is not possible! this unit may not use
any other unit !
Revision 1.44 1998/10/14 11:28:25 florian
* emitpushreferenceaddress gets now the asmlist as parameter * emitpushreferenceaddress gets now the asmlist as parameter
* m68k version compiles with -duseansistrings * m68k version compiles with -duseansistrings