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

* weird bug fixed :

Browse Source 
a pchar ' ' (simple space or any other letter) was found to
    be equal to a string of length zero !!!
    thus printing out non sense
    found that out while checking Control-C !!
  + added column info also in RHIDE format as
    it might be usefull later
This commit is contained in:
pierre 1998-08-04 13:22:46 +00:00
parent c9c4bfe19e
commit e12c7a240a
2 changed files with 30 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/cg386con.pas
View File

@ -172,7 +172,10 @@ implementation
begin begin
same_string:=true; same_string:=true;
{$ifndef UseAnsiString} {$ifndef UseAnsiString}
for i:=1 to length(p^.values^) do { weird error here !!! }
{ pchar ' ' was found equal to string '' !!!! }
{ gave strange output in exceptions !! PM }
for i:=0 to length(p^.values^) do
if pai_string(hp1)^.str[i]<>p^.values^[i] then if pai_string(hp1)^.str[i]<>p^.values^[i] then
{$else} {$else}
for i:=0 to p^.length do for i:=0 to p^.length do
@ -362,7 +365,16 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.9 1998-07-20 18:40:10 florian Revision 1.10 1998-08-04 13:22:46 pierre
* weird bug fixed :
a pchar ' ' (simple space or any other letter) was found to
be equal to a string of length zero !!!
thus printing out non sense
found that out while checking Control-C !!
+ added column info also in RHIDE format as
it might be usefull later
Revision 1.9 1998/07/20 18:40:10 florian
* handling of ansi string constants should now work * handling of ansi string constants should now work
Revision 1.8 1998/07/20 10:23:00 florian Revision 1.8 1998/07/20 10:23:00 florian

19
compiler/verb_def.pas
View File

@ -139,10 +139,14 @@ begin
end; end;
if (Level<=V_ShowFile) and (status.currentline>0) then if (Level<=V_ShowFile) and (status.currentline>0) then
begin begin
{ Adding the column should not confuse RHIDE,
even if it does not yet use it PM }
if Use_Rhide then if Use_Rhide then
hs:=lower(bstoslash(status.currentsource))+':'+tostr(status.currentline)+': '+hs hs:=lower(bstoslash(status.currentsource))+':'+tostr(status.currentline)
+':'+tostr(status.currentcolumn)+': '+hs
else else
hs:=status.currentsource+'('+tostr(status.currentline)+','+tostr(status.currentcolumn)+') '+hs; hs:=status.currentsource+'('+tostr(status.currentline)
+','+tostr(status.currentcolumn)+') '+hs;
end; end;
{ add the message to the text } { add the message to the text }
hs:=hs+s; hs:=hs+s;
@ -185,7 +189,16 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.13 1998-07-14 14:47:12 peter Revision 1.14 1998-08-04 13:22:48 pierre
* weird bug fixed :
a pchar ' ' (simple space or any other letter) was found to
be equal to a string of length zero !!!
thus printing out non sense
found that out while checking Control-C !!
+ added column info also in RHIDE format as
it might be usefull later
Revision 1.13 1998/07/14 14:47:12 peter
* released NEWINPUT * released NEWINPUT
Revision 1.12 1998/07/07 11:20:19 peter Revision 1.12 1998/07/07 11:20:19 peter