paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-10 22:39:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* bug with datalabel corrected

Browse Source 
+ assembler errors better commented
  * one nested record crash removed
This commit is contained in:
pierre 1998-09-04 17:34:20 +00:00
parent be80e14900
commit 5bde11ba3b
2 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/assemble.pas
View File

@ -153,14 +153,14 @@ begin
swapvectors; swapvectors;
if (doserror<>0) then if (doserror<>0) then
begin begin
Message(exec_w_cant_call_assembler); Message1(exec_w_cant_call_assembler,tostr(doserror));
aktglobalswitches:=aktglobalswitches+[cs_asm_extern];
callassembler:=false; callassembler:=false;
end end
else else
if (dosexitcode<>0) then if (dosexitcode<>0) then
begin begin
Message(exec_w_error_while_assembling); Message1(exec_w_error_while_assembling,tostr(dosexitcode));
aktglobalswitches:=aktglobalswitches+[cs_asm_extern];
callassembler:=false; callassembler:=false;
end; end;
end; end;
@ -446,7 +446,12 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.19 1998-08-26 10:06:34 peter Revision 1.20 1998-09-04 17:34:20 pierre
* bug with datalabel corrected
+ assembler errors better commented
* one nested record crash removed
Revision 1.19 1998/08/26 10:06:34 peter
* reduce amount of asmfiles generated * reduce amount of asmfiles generated
* no stabs are written in writefilelineinfo when debuginfo is off * no stabs are written in writefilelineinfo when debuginfo is off

14
compiler/comphook.pas
View File

@ -211,13 +211,6 @@ begin
else else
hs:=status.currentsource+'('+tostr(status.currentline)+') '+hs; hs:=status.currentsource+'('+tostr(status.currentline)+') '+hs;
end; end;
{$ifdef Debug}
end
else
begin
if (Level<=V_ShowFile) then
hs:='No line '+hs;
{$endif Debug}
end; end;
{ add the message to the text } { add the message to the text }
hs:=hs+s; hs:=hs+s;
@ -251,7 +244,12 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.6 1998-09-01 17:37:59 peter Revision 1.7 1998-09-04 17:34:21 pierre
* bug with datalabel corrected
+ assembler errors better commented
* one nested record crash removed
Revision 1.6 1998/09/01 17:37:59 peter
* nicer output when column=0 * nicer output when column=0
Revision 1.5 1998/08/18 15:11:51 peter Revision 1.5 1998/08/18 15:11:51 peter