diff options
author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-14 23:26:37 +0000 |
---|---|---|
committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-14 23:26:37 +0000 |
commit | 4c484910651f3481a84bc7133e921d784d6e32d8 (patch) | |
tree | f2118f0f09b9823f9727d08475ede374706150fd | |
parent | 0e1a4cb16bee5fdda5dcaf100dcd5dac32559da9 (diff) | |
download | fpc-4c484910651f3481a84bc7133e921d784d6e32d8.tar.gz |
+ introduced the TOmfRecord_COMENT_Subtype abstract class
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@42235 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | compiler/omfbase.pas | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/compiler/omfbase.pas b/compiler/omfbase.pas index 5ccfc88e6e..6c4d312fa9 100644 --- a/compiler/omfbase.pas +++ b/compiler/omfbase.pas @@ -329,6 +329,14 @@ interface property NoList: Boolean read GetNoList write SetNoList; end; + { TOmfRecord_COMENT_Subtype } + + TOmfRecord_COMENT_Subtype = class + public + procedure DecodeFrom(ComentRecord: TOmfRecord_COMENT);virtual;abstract; + procedure EncodeTo(ComentRecord: TOmfRecord_COMENT);virtual;abstract; + end; + { TOmfRecord_LNAMES } TOmfRecord_LNAMES = class(TOmfParsedRecord) |