paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 05:59:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed asmsynchronize

Browse Source
This commit is contained in:
peter 1998-10-15 16:19:42 +00:00
parent d91210671d
commit 8d1adfae43
1 changed files with 26 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
compiler/assemble.pas
View File

@ -365,52 +365,47 @@ begin
end;
end;
{Touch Assembler and object time to ppu time is there is a ppufilename}
{Touch Assembler and object time to ppu time is there is a ppufilename}
procedure TAsmList.Synchronize;
var
f : file;
l : longint;
begin
{$ifdef linux}
if not DoPipe then
{$endif linux}
begin
{Touch Assembler time to ppu time is there is a ppufilename}
if Assigned(current_module^.ppufilename) then
{Touch Assembler time to ppu time is there is a ppufilename}
if Assigned(current_module^.ppufilename) then
begin
Assign(f,current_module^.ppufilename^);
{$I-}
reset(f,1);
{$I+}
if ioresult=0 then
begin
Assign(f,current_module^.ppufilename^);
getftime(f,l);
close(f);
assign(f,asmfile);
{$I-}
reset(f,1);
{$I+}
if ioresult=0 then
begin
getftime(f,l);
setftime(f,l);
close(f);
assign(f,asmfile);
{$I-}
reset(f,1);
{$I+}
end;
if not(cs_asm_extern in aktglobalswitches) then
begin
assign(f,objfile);
{$I-}
reset(f,1);
{$I+}
if ioresult=0 then
begin
setftime(f,l);
close(f);
end;
if not(cs_asm_extern in aktglobalswitches) then
begin
assign(f,objfile);
{$I-}
reset(f,1);
{$I+}
if ioresult=0 then
begin
setftime(f,l);
close(f);
end;
end;
end;
end;
close(outfile);
end;
end;
end;
@ -526,7 +521,10 @@ end;
end.
{
$Log$
Revision 1.28 1998-10-14 15:56:43 pierre
Revision 1.29 1998-10-15 16:19:42 peter
* fixed asmsynchronize
Revision 1.28 1998/10/14 15:56:43 pierre
* all references to comp suppressed for m68k
Revision 1.27 1998/10/13 16:50:01 pierre