projects/ldc: gen/irstate.cpp annotate

annotate gen/irstate.cpp @ 883:b52d5de7783f

GC defines and linkage changes.

author	Christian Kamm <kamm incasoftware de>
date	Thu, 08 Jan 2009 18:20:02 +0100
parents	017ca8645a1f
children	1714836f2c0b

rev	line source
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1 /* DMDFE backend stubs
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2 * This file contains the implementations of the backend routines.
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3 * For dmdfe these do nothing but print a message saying the module
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	4 * has been parsed. Substitute your own behaviors for these routimes.
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	5 */
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	6
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	7 #include <cstdarg>
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	8
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	9 #include "gen/llvm.h"
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	10
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	11 #include "mtype.h"
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	12 #include "declaration.h"
309 d59c363fccad [svn r330] Implemented synchronized statements. lindquist parents: 262 diff changeset	13 #include "statement.h"
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	14
4 e116aa1488e6 [svn r8] changed backend includes to always use the gen/<foo>.h prefix lindquist parents: 1 diff changeset	15 #include "gen/irstate.h"
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	16 #include "tollvm.h"
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	17
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	18 IRState* gIR = 0;
73 b706170e24a9 [svn r77] Fixed foreach on slice. lindquist parents: 54 diff changeset	19 const llvm::TargetData* gTargetData = 0;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	20
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	21 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	22 IRScope::IRScope()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	23 {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	24 begin = end = NULL;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	25 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	26
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	27 IRScope::IRScope(llvm::BasicBlock* b, llvm::BasicBlock* e)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	28 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	29 begin = b;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	30 end = e;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	31 builder.SetInsertPoint(b);
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	32 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	33
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	34 //////////////////////////////////////////////////////////////////////////////////////////
145 8f704cb9969b [svn r150] fixes #16 and #17, implements GotoCaseStatement ChristianK parents: 136 diff changeset	35 IRLoopScope::IRLoopScope()
8f704cb9969b [svn r150] fixes #16 and #17, implements GotoCaseStatement ChristianK parents: 136 diff changeset	36 {
8f704cb9969b [svn r150] fixes #16 and #17, implements GotoCaseStatement ChristianK parents: 136 diff changeset	37 }
8f704cb9969b [svn r150] fixes #16 and #17, implements GotoCaseStatement ChristianK parents: 136 diff changeset	38
311 9967a3270837 [svn r332] Fix codegen for continue within switch. ChristianK parents: 309 diff changeset	39 IRLoopScope::IRLoopScope(Statement* s, EnclosingHandler* enclosinghandler, llvm::BasicBlock* b, llvm::BasicBlock* e, bool isSwitch)
145 8f704cb9969b [svn r150] fixes #16 and #17, implements GotoCaseStatement ChristianK parents: 136 diff changeset	40 {
8f704cb9969b [svn r150] fixes #16 and #17, implements GotoCaseStatement ChristianK parents: 136 diff changeset	41 begin = b;
8f704cb9969b [svn r150] fixes #16 and #17, implements GotoCaseStatement ChristianK parents: 136 diff changeset	42 end = e;
262 88252a1af660 [svn r280] Fixed a bunch of issues with switch statements. Ended up a bit far reaching... lindquist parents: 252 diff changeset	43 //builder.SetInsertPoint(b);
145 8f704cb9969b [svn r150] fixes #16 and #17, implements GotoCaseStatement ChristianK parents: 136 diff changeset	44 this->s = s;
309 d59c363fccad [svn r330] Implemented synchronized statements. lindquist parents: 262 diff changeset	45 this->enclosinghandler = enclosinghandler;
311 9967a3270837 [svn r332] Fix codegen for continue within switch. ChristianK parents: 309 diff changeset	46 this->isSwitch = isSwitch;
145 8f704cb9969b [svn r150] fixes #16 and #17, implements GotoCaseStatement ChristianK parents: 136 diff changeset	47 }
8f704cb9969b [svn r150] fixes #16 and #17, implements GotoCaseStatement ChristianK parents: 136 diff changeset	48
8f704cb9969b [svn r150] fixes #16 and #17, implements GotoCaseStatement ChristianK parents: 136 diff changeset	49 //////////////////////////////////////////////////////////////////////////////////////////
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	50 IRState::IRState()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	51 {
161 3a891cfcd249 [svn r177] moved variable for interface info type from being local static to being within IRState ChristianK parents: 148 diff changeset	52 interfaceInfoType = NULL;
309 d59c363fccad [svn r330] Implemented synchronized statements. lindquist parents: 262 diff changeset	53 mutexType = NULL;
323 0d52412d5b1a [svn r344] Fixed some very minor issues with the usage listing when calling llvmdc with no arguments. lindquist parents: 315 diff changeset	54 moduleRefType = NULL;
309 d59c363fccad [svn r330] Implemented synchronized statements. lindquist parents: 262 diff changeset	55
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	56 dmodule = 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	57 module = 0;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	58 emitMain = false;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	59 mainFunc = 0;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	60 ir.state = this;
233 76ee1bbe487e [svn r249] Changed inline asm clobbers to a set instead of a list so we don't get duplicate clobbers. lindquist parents: 232 diff changeset	61 asmBlock = NULL;
252 e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 233 diff changeset	62
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 233 diff changeset	63 dwarfCUs = NULL;
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 233 diff changeset	64 dwarfSPs = NULL;
e3355ce5444b [svn r269] Fixed dwarf debug info for structs. lindquist parents: 233 diff changeset	65 dwarfGVs = NULL;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	66 }
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	67
136 0e28624814e8 [svn r140] did a lot of the work towards being able to pass multiple modules on the command line. not complete yet though lindquist parents: 113 diff changeset	68 IrFunction* IRState::func()
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	69 {
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	70 assert(!functions.empty() && "Function stack is empty!");
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	71 return functions.back();
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	72 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	73
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	74 llvm::Function* IRState::topfunc()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	75 {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	76 assert(!functions.empty() && "Function stack is empty!");
100 5071469303d4 [svn r104] TONS OF FIXES. lindquist parents: 94 diff changeset	77 return functions.back()->func;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	78 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	79
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	80 TypeFunction* IRState::topfunctype()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	81 {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	82 assert(!functions.empty() && "Function stack is empty!");
100 5071469303d4 [svn r104] TONS OF FIXES. lindquist parents: 94 diff changeset	83 return functions.back()->type;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	84 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	85
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	86 llvm::Instruction* IRState::topallocapoint()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	87 {
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	88 assert(!functions.empty() && "AllocaPoint stack is empty!");
100 5071469303d4 [svn r104] TONS OF FIXES. lindquist parents: 94 diff changeset	89 return functions.back()->allocapoint;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	90 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	91
136 0e28624814e8 [svn r140] did a lot of the work towards being able to pass multiple modules on the command line. not complete yet though lindquist parents: 113 diff changeset	92 IrStruct* IRState::topstruct()
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	93 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	94 assert(!structs.empty() && "Struct vector is empty!");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	95 return structs.back();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	96 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	97
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	98 IRScope& IRState::scope()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	99 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	100 assert(!scopes.empty());
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	101 return scopes.back();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	102 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	103
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	104 llvm::BasicBlock* IRState::scopebb()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	105 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	106 IRScope& s = scope();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	107 assert(s.begin);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	108 return s.begin;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	109 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	110 llvm::BasicBlock* IRState::scopeend()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	111 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	112 IRScope& s = scope();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	113 assert(s.end);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	114 return s.end;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	115 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	116 bool IRState::scopereturned()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	117 {
14 0e86428ee567 [svn r18] * Initial support for switch statements - No string switches yet. lindquist parents: 6 diff changeset	118 //return scope().returned;
0e86428ee567 [svn r18] * Initial support for switch statements - No string switches yet. lindquist parents: 6 diff changeset	119 return !scopebb()->empty() && scopebb()->back().isTerminator();
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	120 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	121
315 a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	122 CallOrInvoke* IRState::CreateCallOrInvoke(LLValue* Callee, const char* Name)
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	123 {
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	124 LLSmallVector<LLValue*, 1> args;
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	125 return CreateCallOrInvoke(Callee, args.begin(), args.end(), Name);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	126 }
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	127
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	128 CallOrInvoke* IRState::CreateCallOrInvoke(LLValue* Callee, LLValue* Arg1, const char* Name)
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	129 {
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	130 LLSmallVector<LLValue*, 1> args;
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	131 args.push_back(Arg1);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	132 return CreateCallOrInvoke(Callee, args.begin(), args.end(), Name);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	133 }
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	134
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	135 CallOrInvoke* IRState::CreateCallOrInvoke2(LLValue* Callee, LLValue* Arg1, LLValue* Arg2, const char* Name)
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	136 {
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	137 LLSmallVector<LLValue*, 2> args;
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	138 args.push_back(Arg1);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	139 args.push_back(Arg2);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	140 return CreateCallOrInvoke(Callee, args.begin(), args.end(), Name);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	141 }
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	142
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	143 CallOrInvoke* IRState::CreateCallOrInvoke3(LLValue* Callee, LLValue* Arg1, LLValue* Arg2, LLValue* Arg3, const char* Name)
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	144 {
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	145 LLSmallVector<LLValue*, 3> args;
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	146 args.push_back(Arg1);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	147 args.push_back(Arg2);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	148 args.push_back(Arg3);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	149 return CreateCallOrInvoke(Callee, args.begin(), args.end(), Name);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	150 }
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	151
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	152 CallOrInvoke* IRState::CreateCallOrInvoke4(LLValue* Callee, LLValue* Arg1, LLValue* Arg2, LLValue* Arg3, LLValue* Arg4, const char* Name)
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	153 {
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	154 LLSmallVector<LLValue*, 4> args;
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	155 args.push_back(Arg1);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	156 args.push_back(Arg2);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	157 args.push_back(Arg3);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	158 args.push_back(Arg4);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	159 return CreateCallOrInvoke(Callee, args.begin(), args.end(), Name);
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	160 }
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	161
a9697749e898 [svn r336] Made sure calls within a landing pad area are invokes. ChristianK parents: 311 diff changeset	162
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	163 //////////////////////////////////////////////////////////////////////////////////////////
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	164
493 017ca8645a1f Make llvmdc work with llvm 2.4svn revision 54614. Breaks compatibility with llvm 2.3. Christian Kamm <kamm incasoftware de> parents: 334 diff changeset	165 IRBuilder<>* IRBuilderHelper::operator->()
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	166 {
493 017ca8645a1f Make llvmdc work with llvm 2.4svn revision 54614. Breaks compatibility with llvm 2.3. Christian Kamm <kamm incasoftware de> parents: 334 diff changeset	167 IRBuilder<>& b = state->scope().builder;
40 8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	168 assert(b.GetInsertBlock() != NULL);
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	169 return &b;
8b0e809563df [svn r44] Lots of bug fixes. lindquist parents: 31 diff changeset	170 }

Mercurial > projects > ldc

annotate gen/irstate.cpp @ 883:b52d5de7783f