Changeset 77 for branches/Transpascal/Compiler/USourceCode.pas

Timestamp:

Oct 22, 2010, 9:22:55 AM (14 years ago)

Author:

george

Message:

• Compiler producer for C language separated to GCC and Dynamic C dialect.
• Enhanced: Parse record functions body.

File:

• branches/Transpascal/Compiler/USourceCode.pas (modified) (3 diffs)

branches/Transpascal/Compiler/USourceCode.pas

@@ -153 +153 @@
 
   TType = class
-    System: Boolean;
+    Internal: Boolean;
     Parent: TTypeList;
     Name: string;
@@ -259 +259 @@
   end;
 
+  TFunctionType = (ftFunction, ftProcedure, ftConstructor, ftDestructor);
+
   TFunction = class(TCommonBlock)
   public
-    System: Boolean;
-    HaveResult: Boolean;
+    Internal: Boolean;
+    FunctionType: TFunctionType;
     Parameters: TParameterList;
     ResultType: TType;
@@ -769 +771 @@
     while (I < UsedModules.Count) and (not Assigned(Result)) do begin
       with TUsedModule(UsedModules[I]) do
+        if Assigned(Module) then
         with Module do
           Result := SearchType(AName, False);