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

* assembler type output command line was case sensitive

Browse Source
This commit is contained in:
pierre 1998-10-13 09:13:09 +00:00
parent ff45eacd79
commit bede68c06e
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/systems.pas
View File

@ -191,14 +191,14 @@ unit systems;
target_ar : tarinfo; target_ar : tarinfo;
source_os : tosinfo; source_os : tosinfo;
function set_string_target(const s : string) : boolean; function set_string_target(s : string) : boolean;
function set_string_asm(const s : string) : boolean; function set_string_asm(s : string) : boolean;
function set_string_asmmode(const s:string;var t:tasmmode):boolean; function set_string_asmmode(s:string;var t:tasmmode):boolean;
implementation implementation
uses uses
verbose; globals,verbose;
const const
@ -863,11 +863,13 @@ end;
Load from string Load from string
****************************************************************************} ****************************************************************************}
function set_string_target(const s : string) : boolean; function set_string_target(s : string) : boolean;
var var
i : longint; i : longint;
begin begin
set_string_target:=false; set_string_target:=false;
{ this should be case insensitive !! PM }
s:=upper(s);
for i:=0 to (sizeof(target_infos) div sizeof(ttargetinfo))-1 do for i:=0 to (sizeof(target_infos) div sizeof(ttargetinfo))-1 do
if target_infos[ttarget(i)].short_name=s then if target_infos[ttarget(i)].short_name=s then
begin begin
@ -877,11 +879,13 @@ begin
end; end;
function set_string_asm(const s : string) : boolean; function set_string_asm(s : string) : boolean;
var var
i : longint; i : longint;
begin begin
set_string_asm:=false; set_string_asm:=false;
{ this should be case insensitive !! PM }
s:=upper(s);
for i:=0 to (sizeof(as_infos) div sizeof(tasminfo))-1 do for i:=0 to (sizeof(as_infos) div sizeof(tasminfo))-1 do
if as_infos[tasm(i)].idtxt=s then if as_infos[tasm(i)].idtxt=s then
begin begin
@ -891,11 +895,13 @@ begin
end; end;
function set_string_asmmode(const s:string;var t:tasmmode):boolean; function set_string_asmmode(s:string;var t:tasmmode):boolean;
var var
i : longint; i : longint;
begin begin
set_string_asmmode:=false; set_string_asmmode:=false;
{ this should be case insensitive !! PM }
s:=upper(s);
for i:=0 to (sizeof(asmmodeinfos) div sizeof(tasmmodeinfo))-1 do for i:=0 to (sizeof(asmmodeinfos) div sizeof(tasmmodeinfo))-1 do
if asmmodeinfos[tasmmode(i)].idtxt=s then if asmmodeinfos[tasmmode(i)].idtxt=s then
begin begin
@ -1014,7 +1020,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.39 1998-10-13 08:19:42 pierre Revision 1.40 1998-10-13 09:13:09 pierre
* assembler type output command line was case sensitive
Revision 1.39 1998/10/13 08:19:42 pierre
+ source_os is now set correctly for cross-processor compilers + source_os is now set correctly for cross-processor compilers
(tos contains all target_infos and (tos contains all target_infos and
we use CPU86 and CPU68 conditionnals to we use CPU86 and CPU68 conditionnals to