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

+ getasmsymbol to search for existing assembler symbol only

Browse Source
This commit is contained in:
pierre 1999-03-03 11:59:27 +00:00
parent c9285162a1
commit 5b5622d851
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/aasm.pas
View File

@ -320,6 +320,7 @@ type
asmsymbollist : pasmsymbollist; asmsymbollist : pasmsymbollist;
function newasmsymbol(const s : string) : pasmsymbol; function newasmsymbol(const s : string) : pasmsymbol;
function getasmsymbol(const s : string) : pasmsymbol;
function renameasmsymbol(const sold, snew : string) : pasmsymbol; function renameasmsymbol(const sold, snew : string) : pasmsymbol;
{ label functions } { label functions }
@ -825,6 +826,11 @@ uses
newasmsymbol:=hp; newasmsymbol:=hp;
end; end;
{ returns nil if non existing symbol }
function getasmsymbol(const s : string) : pasmsymbol;
begin
getasmsymbol:=pasmsymbol(asmsymbollist^.search(s));
end;
{ renames an asmsymbol } { renames an asmsymbol }
function renameasmsymbol(const sold, snew : string) : pasmsymbol; function renameasmsymbol(const sold, snew : string) : pasmsymbol;
@ -971,7 +977,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.33 1999-03-02 02:56:08 peter Revision 1.34 1999-03-03 11:59:27 pierre
+ getasmsymbol to search for existing assembler symbol only
Revision 1.33 1999/03/02 02:56:08 peter
+ stabs support for binary writers + stabs support for binary writers
* more fixes and missing updates from the previous commit :( * more fixes and missing updates from the previous commit :(