Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commit4b4e365

Browse files
committed
Replace stamp with fixed name for IL gen
1 parent2788ed2 commit4b4e365

File tree

2 files changed

+3
-3
lines changed

2 files changed

+3
-3
lines changed

‎src/Compiler/TypedTree/TypedTree.fs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4298,7 +4298,7 @@ type AnonRecdTypeInfo =
42984298

42994299
/// Get the ILTypeRef for the generated type implied by the anonymous type
43004300
memberx.ILTypeRef=
4301-
letilTypeName= sprintf"<>f__AnonymousType%s%u`%d"(match x.TupInfowith TupInfo.Const b->if bthen"1000"else"")(uint32 x.Stamp) x.SortedIds.Length
4301+
letilTypeName= sprintf"<>f__AnonymousType%s%u`%d"(match x.TupInfowith TupInfo.Const b->if bthen"1000"else"")(uint32 x.IlTypeName) x.SortedIds.Length
43024302
mkILTyRef(x.Assembly.ILScopeRef, ilTypeName)
43034303

43044304
static memberNewUnlinked():AnonRecdTypeInfo=

‎src/Compiler/TypedTree/TypedTreePickle.fs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -701,7 +701,7 @@ let pickleObjWithDanglingCcus inMem file g scope p x =
701701
oentities=NodeOutTable<_,_>.Create((fun(tc: Tycon)-> tc.Stamp),(fun tc-> tc.LogicalName),(fun tc-> tc.Range), id,"otycons")
702702
otypars=NodeOutTable<_,_>.Create((fun(tp: Typar)-> tp.Stamp),(fun tp-> tp.DisplayName),(fun tp-> tp.Range), id,"otypars")
703703
ovals=NodeOutTable<_,_>.Create((fun(v: Val)-> v.Stamp),(fun v-> v.LogicalName),(fun v-> v.Range), id,"ovals")
704-
oanoninfos=NodeOutTable<_,_>.Create((fun(v: AnonRecdTypeInfo)-> v.Stamp),(fun v-> string v.Stamp),(fun _-> range0), id,"oanoninfos")
704+
oanoninfos=NodeOutTable<_,_>.Create((fun(v: AnonRecdTypeInfo)-> v.Stamp),(fun v-> string v.IlTypeName),(fun _-> range0), id,"oanoninfos")
705705
ostrings=Table<_>.Create"ostrings"
706706
onlerefs=Table<_>.Create"onlerefs"
707707
opubpaths=Table<_>.Create"opubpaths"
@@ -726,7 +726,7 @@ let pickleObjWithDanglingCcus inMem file g scope p x =
726726
oentities=NodeOutTable<_,_>.Create((fun(tc: Tycon)-> tc.Stamp),(fun tc-> tc.LogicalName),(fun tc-> tc.Range), id,"otycons")
727727
otypars=NodeOutTable<_,_>.Create((fun(tp: Typar)-> tp.Stamp),(fun tp-> tp.DisplayName),(fun tp-> tp.Range), id,"otypars")
728728
ovals=NodeOutTable<_,_>.Create((fun(v: Val)-> v.Stamp),(fun v-> v.LogicalName),(fun v-> v.Range),(fun osgn-> osgn),"ovals")
729-
oanoninfos=NodeOutTable<_,_>.Create((fun(v: AnonRecdTypeInfo)-> v.Stamp),(fun v-> string v.Stamp),(fun _-> range0), id,"oanoninfos")
729+
oanoninfos=NodeOutTable<_,_>.Create((fun(v: AnonRecdTypeInfo)-> v.Stamp),(fun v-> string v.IlTypeName),(fun _-> range0), id,"oanoninfos")
730730
ostrings=Table<_>.Create"ostrings (fake)"
731731
opubpaths=Table<_>.Create"opubpaths (fake)"
732732
onlerefs=Table<_>.Create"onlerefs (fake)"

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp