slederer/Tridora-CPU
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 3 Wiki Activity Actions

sasm: use filesize() for incbin directive

Browse source
This commit is contained in:
slederer 2024-11-09 19:03:09 +01:00
parent ab57b5ce7a
commit 5ce5bc44b8
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
pcomp/sasm.pas
View file

@ -2041,17 +2041,20 @@ begin
errorExit2('Unrecognized directive', lastToken.tokenText);
end;
procedure readImage(filename:string;size:integer);
procedure readImage(filename:string);
var f:InputFileType;
c:char;
i:integer;
size:integer;
begin
openFileWithDefault(f, filename);
size := filesize(f);
pc := pc + size;
bytesCount := bytesCount + size;
if pass = 2 then
begin
openFileWithDefault(f, filename);
for i := 1 to size do
begin
@ -2059,14 +2062,14 @@ begin
write(outfile,c);
end;
close(f);
end;
close(f);
end;
procedure parseMetaDirective;
var filename:string;
sym:TreeDataRef;
size:integer;
begin
readNextToken;
if lastToken.tokenText = '%INCLUDE' then
@ -2099,8 +2102,7 @@ begin
begin
filename := curToken.tokenText;
readNextToken;
size := parseExpression;
readImage(filename, size);
readImage(filename);
end
else
errorExit2('Invalid meta directive', lastToken.tokenText);