Changeset 77 for branches/Transpascal/Compiler/Analyze/UParser.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/Analyze/UParser.pas (modified) (2 diffs)

branches/Transpascal/Compiler/Analyze/UParser.pas

@@ -64 +64 @@
     procedure Expect(Code: string);
     procedure ErrorMessage(const Text: string; const Arguments: array of const;
-      TokenOffset: Integer);
+      TokenOffset: Integer = -1);
     property OnErrorMessage: TErrorMessageEvent read FOnErrorMessage write FOnErrorMessage;
     property OnDebugLog: TDebugLogEvent read FOnDebugLog write FOnDebugLog;
@@ -80 +80 @@
 
 procedure TBaseParser.ErrorMessage(const Text: string; const Arguments: array of const;
-  TokenOffset: Integer);
+  TokenOffset: Integer = -1);
 begin
   if Assigned(FOnErrorMessage) then